Je veut faire une application avec un server et un client
le server sert juste a envoyer des messages etle client juste a les recevoir
pour l instant cela n accepte qu un seul client ! (seulement unseulclient
recoit le message )
comment dois je  m y prendre ?
 
 
 
voila le source ( je suis debutant alors si lecode n est paspropredite le
moi ;o) ... ) :
 
file://*** server
 
Const PORT = 1001
 
'bouton
Private Sub Command1_Click()
    tcpserver.SendData (txtSend.Text)
    txtSend.Text = ""
End Sub
 
Private Sub Form_Load()
    tcpserver.LocalPort = PORT
    tcpserver.Listen
End Sub
 
'demande de connection
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
    tcpserver.Close
    tcpserver.Accept requestID 'accepte la connection
 
End Sub
 
Private Sub afficher(txt As String)
  MsgBox (txt)
End Sub
 
 
file://*** client
Const PORTSERVER = 1001
 
Private Sub Form_Load()
    'cacher le formulaire
    Frmclient.Visible = False
 
    'connection
    tcpclient.Close ' fermeture des connection precedentes
    tcpclient.RemoteHost = getIpServer ' ip du server
    tcpclient.RemotePort = PORTSERVER  ' port du server
    DoEvents
    tcpclient.Connect
 
End Sub
 
'arrivee de donnees
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    tcpclient.GetData Data
 
    'affichage des donnees recues
    afficher (Data)
End Sub
 
'affichage du message du support
Private Sub afficher(txt As String)
    MsgBox txt, , "Support"
End Sub
 
'renvoit l adresse ip du server contenu dans "server.ip"
Private Function getIpServer() As String
    Dim intFileNum
    Dim ipServer As String
 
    'lecture du fichier
    intFileNum = FreeFile
    Open App.Path & "/server.ip" For Input As #intFileNum
    Line Input #intFileNum, ipServer
    Close #intFileNum
 
    getIpServer = ipServer
End Function
 
Private Sub tcpclient_Error(ByVal Number As Integer, Description As String,
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal
HelpContext As Long, CancelDisplay As Boolean)
    Form_Load
End Sub
 

fais une recherche sur le contrôle winsock dans l'aide, tu y trouveras un sample de code qui permet de gérer plusieurs connexions simultanées.

va faire un tour sur cette page, ça te permetra de débuter facillement.
http://msdn.microsoft.com/library/ [...] ontrol.asp