[VB6] Winsock - invio cilcico

[*pao]

Devo effettuare un invio ciclico di un messaggio

quindi, in un ciclo For
chiudo il winsock
mi connetto alla porta
invio il messaggio

For i = 0 to 10
WS.Close
WS.Connect lblIP, Porta(i)
WS.SendData "Messaggio"
next

però sul metodo SendData, mi da errore perchè lo state del winsock è 6 (connessione in corso).
Ma perchè non mi completa la connessione?

[Luciano79]

Non vorrei dirti una boiata, perchè ci ho provato qualche tempo fa, ma credo che non puoi inviare dati subito dopo aver tentato di aprire una connessione, devi prima dargli il tempo di connettersi (spesso si tratta anche di secondi). Se non fosse così, col tuo codice ci vorrebbe un attimo per trovare qualsiasi password :sgrat:

[xegallo]

il senddata mettilo nell'evento connected del socket

'procedura che fa il ciclo
 
  For i = 0 To 10
      ws.Close
      ws.Connect lblIP, Porta(i)
      Do Until ws.State = sckConnected
          DoEvents
      Loop
   Next

Private Sub ws_Connect()

   ws.SendData "Messaggio"

End Sub

p.s.: se la esegui passo passo non entrerà mai

[*pao]

avevo provato anch'io col doevents, ma senza metterlo in ciclo!!
grazie 1000