Socket SendData n'envoi que a un client

Bonjour,
Je poste un message pour un problème de SOCKET en Visual Basic 6.
Ce problème survient sur un logiciel de chat, le serveur est OK, les client peuve parler entre eux, tout le monde recoit bien le message ! Je souhaite que le serveur puise aussi envoyer des messages. J'utilise ce code :

Code:

---

1 2 3 4 5 6

Private Sub SendMsg_Click() For k = 0 To TailleTab - 1 SckChat(Users(k, 0)).SendData "Admin > " & ChatText.Text Next k DialChat.Text = DialChat.Text & "Admin > " & ChatText.Text & vbCrLf End Sub

---

Il envoi le message a un seul client, je me suis dit que je devais tester les indices du socket, donc j'ai fait :

Code:

---

1 2 3 4 5 6 7

Private Sub SendMsg_Click() For k = 0 To TailleTab - 1 MsgBox Users(k, 0) SckChat(Users(k, 0)).SendData "Admin > " & ChatText.Text Next k DialChat.Text = DialChat.Text & "Admin > " & ChatText.Text & vbCrLf End Sub

---

Et ben devinez quoi ??? Vous trouvez pas ??? Tout les client reçoives bien le message 8O, grâce au MsgBox.

Je ne ces pas si c'est du a une répétition trop rapide des l'envoi de message ou ...
Avez vous une solution a mon problème ?
Je vous remercie grandement d'avance de vos réponses

tu utilises quel protocole de communication ?

J'utilise sa pour ouvrir le socket :

Code:

---

1 2	SckChat(0).LocalPort = 2228 SckChat(0).Listen

---

Donc ce qui est pris par défaut (Je c'est pas ce qui est pris par défaut a mon avis TCP :oops:)
Merci

Bonjour,

Met un petit temps d'attente derrière

Code:

---

SckChat(Users(k, 0)).SendData "Admin > " & ChatText.Text

---

en utilisant GetTickCount et DoEvents

A+, Hervé.

J'ai rajouter cela :

Code:

---

1 2 3 4 5 6 7

Dim lgTime As Long lgTime = GetTickCount Do While lgTime + lgMSec > GetTickCount DoEvents DoEvents DoEvents Loop

---

Mais... (dsl), sa ne change rien. Le plus étonnant c'est que j'utilise la même chose quand le message provient d'un client. Et cela fonctionne parfaitement. Je ne comprend pas.

Merci d'avoir éditer mon code maintenant je c'est mettre le code en valeur :)