[VB] Appli Winsock | mystère du code

**ouar** · 14/04/2006, 20h39

Bonjour à tous,

voilà, je m'amuse en ce moment à développer une application clients/serveur avec les controles winsock.
Il y a un serveur et les clients s'y connectent. Chaque client peut envoyer un texte au serveur et le serveur renvoie ce texte à tous les clients connectés.

Ceci dit, un truc obscur pour moi se produit :
Voici la procedure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Wcs_DataArrival(Index As Integer, ByVal bytesTotal As Long)
 
 
 Dim data As String
 Wcs(Index).GetData data
 
 
 For n = 1 To Nb
 MsgBox n
 Wcs(n).SendData data
 Next
 
 i = i + 1
 
End Sub

J'explique le truc: le message reçu par le serveur est stocké dans la variable data.
Il y a ensuite la boucle de distribution, pour chaque client connecté, on envoie "data".

Ce truc fonctionne uniquement s'il y a le MsgBox dans la boucle !!!!
Etrange non?

Si vous avez réponse a mon problème, je l'attend avec joie ;-)
Merci d'avance.

**jmfmarques** · 14/04/2006, 20h42

pititpoze ! citou !
ésanjoi !

**ouar** · 14/04/2006, 20h51

pardon?

**ouar** · 15/04/2006, 09h24

Youpiii!! Merci beaucoup, ça marche maintenant.
Pouvez vous m'expliquer le rôle de DoEvents s'il vous plait? Pourquoi est il nécessaire?

En tout cas, merci encore pour votre aide et rapidité