[vb6] problema connessione

[marcello3000]

Ho creato questo

Private Sub Form_Load()
Winsock1.LocalPort = 100
Winsock1.Listen
End Sub


Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub


Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
'tcpserver.peekData non svuota la variabile dopo aver inviato i dati al text1
tcpServer.GetData strData
Text1.Text = strData

End Sub


Private Sub Command1_Click()
tcpServer.SendData Text2.Text
End Sub

ma al click sul command 1 mi dice
errore necessario oggetto (il text2.text c'è)

[Jupy64]

ma scusa, quanti 3ad apri con la stessa domanda??? non è mica tanto corretto sai!!!
comunque l'errore non è dovuto a Text2.Text , ma a tcpServer.SendData , probabilmente non c'è un oggetto con quel nome!!

[marcello3000]

il fatto è che quello ormai non lo guardava nessuno
comunque il tcpServer non so come inserirlo,se lo scrivo tutto a mano è come se lo avessi,mi spuntano le opzioni però in alto a destra nella listbox degli oggetti non c'è..quindi come faccio ad inserirlo e a risolvere?
grazie

[Jupy64]

ma, quel codice lo hai scritto tu o lo hai preso cosi com'è da qualche parte??
Il tcpServer non è nient'altro che un oggetto winsock a cui è stato dato quel nome!

[marcello3000]

Originariamente inviato da Jupy64
ma, quel codice lo hai scritto tu o lo hai preso cosi com'è da qualche parte??
Il tcpServer non è nient'altro che un oggetto winsock a cui è stato dato quel nome!

ahhhhhhhhhhhhh ecco perchè!!!!!!!!
grazie mille !!

[marcello3000]

Ho un problema,ho seguito queste due guide:
http://digilander.libero.it/VBItalia...ni/winsock.htm
http://digilander.libero.it/VBItalia...i/winsock2.htm

e ho scritto questo codice:

Private Sub Command1_Click()
tcpServer.SendData Text2.Text
End Sub

Private Sub Form_Load()
tcpServer.LocalPort = 100
tcpServer.Listen

End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then
tcserver.Close
End If
tcpServer.Accept requestID
End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
'tcpserver.PeekData non cancella il contenuto in arrivo precedent
'dopo averlo messo in text1.text
tcpServer.GetData strData
Text1.Text = strData
End Sub

il problema è che se clicco sul commandButton mi dà l'errore

40006
Protocollo o stato della connessione errato per la transazione richiesta o la richiesta

che devo fare?
grazie