[VB6] Winsock: non spedisce i dati

[SUPERMIKY]

Ciao a tutti, sto scrivendo un'applicazione in vb6 che tra
le altre cose utilizza il winsock. ho questo problema. mi trovo
ad aver scritto un testo e l'ip del destinatario e cerco di inviare
al winsock destinatario (in listen sulla porta 1515) il testo.
L'interprete mi dà il seguente errore:
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
ERRORE DI RUNTIME '40006'
Protocollo o stato della connessione errato per la transazione richiesta
o la richiesta.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Io effettuo la connessione così:
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Private Sub TastoOk_Click()
PcDestinatario = Text1.Text
PortaDestinataria = 1515
Winsock2(0).Connect PcDestinatario, PortaDestinataria
Call Winsock2(0).SendData(Text2.Text)
Winsock2(0).Close
End Sub
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Cosa sbaglio? Il (0) nel nome del Winsock è l'Index.
Ho dovuto metterlo perchè dopo uso lo stesso Winsock per ricevere
dei dati e quell'Index è indispensabile.

Grazie!! risposte anke x email(mzuccala@libero.it)

[triky]

ti da errore per il semplice motivo che subito dopo che invii la richiesta di connessione invii dei dati, è una sequenza troppo veloce, quando invii i dati non sarai ancora collegati, io ti consiglio di mettere un loop tra il connect e il senddata che gira fino a quando nn ti connetti (o quando da errore)

[ddies]

si appunto prova a fare un loop.

Oppure nella mia chat fatta in vb ho risolto con doevents