[VB6]Problema errore winsock.

[Cobrettis]

Scusate, ma sono ancora io con un ultimo problema ( almeno spero). Vi posto il codice e vi spiego il problema.

Dim y As Integer
Dim u As Integer
For y = 0 To List1.ListCount - 1
List1.ListIndex = y
For u = 1 To connessione
Winsock1(u).SendData ")))" & List1.Text
Next u
Next y

Questo codice mi permette di inviare ai client connessi al mio server, i nickname degli utenti online. Il problema è che appena un client va offline, e ne entra un altro; il server mi da un errore ( run time error 40006) alla riga n° 6. Mi da errore quando il ciclo arriva all'index del winsock andato offline. Ho provato a scrivere:

Dim y As Integer
Dim u As Integer
For y = 0 To List1.ListCount - 1
List1.ListIndex = y
For u = 1 To connessione
If Winsock1(u).State <> sckConnected Then
Winsock1(u).SendData ")))" & List1.Text
Else
End If
Next u
Next y

Scrivendo così dalla parte del client non mi arriva alcun nickname e non riesco a trovarci un motivo. Se non mi sono spiegato, cercherò di rispiegarmi meglio.

[oregon]

Ha più senso scrivere

If Winsock1(u).State = sckConnected Then
   Winsock1(u).SendData ")))" & List1.Text
End If

[Cobrettis]

Grazie oregon. Così il problema si è risolto.