Je veut faire une application avec un server et des clients
le server sert juste a envoyer des messages et les clients juste a les
recevoir
pour l instant cela n accepte qu un seul client ! en effet seulement le
dernier recoit le message
voila lecode source
qu estce qui cloche ?
 
 
Const PORT = 1001
Dim nb As Integer
 
'bouton
Private Sub Command1_Click()
    For i = 1 To wck.Count - 1
        wck(i).SendData (txtSend.Text)
    Next i
    txtSend.Text = ""
End Sub
 
Private Sub Form_Load()
    nb = 0
    serveur.LocalPort = PORT
    serveur.Listen
End Sub
 
'demande de connection
 Private Sub serveur_ConnectionRequest(ByVal requestID As Long)
     nb = nb + 1
     Load wck(nb)
    wck(nb).Accept requestID
   ' afficher (requestID)
 End Sub
 Private Sub Wck_Close(Index As Integer)
     Unload wck(Index)
     If wck.Count = 0 Then nb = 0
End Sub
 
Private Sub afficher(txt As String)
  MsgBox (txt)
End Sub