Pb d'envoie message dans un chat winsock serveur/client

Question

Bonjour &#224; tous .

Je commence doucement le vb avec un chat winsock serveur/client (merci mes profs).
La connection entre le client et le serveur se fait tr&#232;s bien, l'envoie du message du client vers le serveur fonctionne aussi mais l'envoie du message du serveur vers le client ne fonctionne pas.
Etant donn&#233; que le vb est une d&#233;couverte, je ne comprend pas pourquoi j'arrive envoy&#233; "SNDNICK Serveur" au client lors de la connection et que par la suite je n'arrive pas a envoy&#233; un message.
Voici le code de mon serveur.

Merci d'avance pour votre aide

Private Sub Command2_Click()
SrvSock(0).SendData "SNDMSG " & "Serveur> " & Txt2Send.Text  
Listdial.AddItem "Serveur> " & Txt2Send.Text
Txt2Send.Text = ""
End Sub


Private Sub Form_Load()
SrvSock(0).Close
SrvSock(0).LocalPort = "1337"
SrvSock(0).Listen
MsgBox "Serveur en &#233;coute"
End Sub


Private Sub SrvSock_ConnectionRequest(Index As Integer, ByVal requestID As Long) Index = Index + 1
Load SrvSock(Index)
SrvSock(Index).Accept requestID 
SrvSock(Index).SendData "SNDNICK Serveur"
ListUsers.AddItem "Serveur"
End Sub

PCPT · Answer

salut,


le client arrive sur le 0.


il ne faut pas loader le 0, il existe d&#233;j&#224; ;)


....index + 1 (pour tout le Sub SrvSock_ConnectionRequest)





et tes envoies ne sont pas &#224; faire sur le 0 mais en boucle de 1 (s'il y a quelqu'un) jusqu'au dernier socket ouvert.


@+


PCPT  [AFCK]

Pb d'envoie message dans un chat winsock serveur/client

1 réponse

Discussions similaires