[VB] winsock

Bonjour,

Voila mon probleme je souhaite faire deux executables qui me permetterons d'un coté d'avoir un serveur qui gère la demande d'une connexion puis la reception des données
et de l'autre coté un executable client qui me permettera de demander une connexion pour ensuite envoyer un message texte

voici mon code

pour le serveur

Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEven­t) Handles Winsock1.ConnectionRequest

Dim requestID As Integer
'If Winsock1.CtlState = MSWinsockLib.StateConstants.sckConnected Then
'Winsock1.Close()
Winsock1.Accept(requestID)
' End If

End Sub

Private Sub Serveur_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Winsock1.Bind(7, "127.24.200.85")
Winsock1.Listen()

End Sub

Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock1.DataArrival

Dim strdata As String
Winsock1.GetData(strdata)
txtnumrequest.Text = strdata

End Sub


pour le client

Private Sub cmdconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconnect.Click

Winsock1.Close()
Winsock1.LocalPort = 0
Winsock1.Connect("172.24.200.85", 7)

If Winsock1.CtlState = MSWinsockLib.StateConstants.sckConnected Then
txtrecept.Text = "Connexion avec le serveur"
Else
txtrecept.Text = "Impossible d'appeler le serveur"
End If

End Sub


Private Sub Winsock1_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles Winsock1.ConnectEvent

Dim donnees As String
donnees = "Salut je suis bien connecté" & vbCrLf
Winsock1.SendData(donnees)

End Sub


le client et le serveur sont dans deux appli differente
Le but de cet exercice est de creer un serveur qui poura gérer les connexions et envoie de données d'un robot de grenaillage


Merci d'avance à ceux qui auront lu tous l'article
et encore plus merci à ceux qui m'aideront

Configuration: Windows XP
Internet Explorer 7.0