tu retrouve sa
Sub Ecoute_Jeu()
While _socket_Jeu.Connected ' boucle infinie tant que connecté
Dim i = _socket_Jeu.Receive(buffer) ' on met dans i le nombre d'octets recu
Dim data(i - 1) As Byte
Try
Array.Copy(buffer, Data, i) ' on copie buffer dans data
parsing(Data) ' on lance le parsing
Catch
End Try
End While
End Sub
If i = "0" Then < === i = i le nombre d'octets recu si = a 0 on fait sa
Chat.Invoke(Chater, Chr(13) & "[" & toto & "]" & "#####La connexion a été Fermer.")
End If
If i = "0" Then
Chat.Invoke(Chater, Chr(13) & "[" & toto & "]" & "#####La connexion a été Fermer.")
Ecoute_Jeu_thread.Abort()
End If