Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 029 fois - Téléchargée 37 fois
Tout d'abord, il faut créer 2 projets dans 2 répertoires différents (les nommer Serveur et Client) Pour le projet Serveur : Créer un formulaire et le nommer frmServeur Sur ce formulaire, déposer un contrôler Winsock1 (composant Microsoft Winsock Control 6.0 (SP4)) (MSWINSCK.OCX) Créer 2 TextBox et les nommer respectivement txtEnvoyé et txtReçu Ensuite copier/coller le code relatif au formulaire que voici : Private Sub Form_Load() Winsock1.LocalPort = 1001 Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Winsock1.State <> sckClosed Then _ Winsock1.Close Winsock1.Accept requestID End Sub Private Sub txtSendData_Change() Winsock1.SendData txtEnvoyé.Text End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String Winsock1.GetData strData txtReçu.Text = strData End Sub Pour le projet Client : Créer un formulaire et le nommer frmClient Sur ce formulaire, déposer un contrôler Winsock1 (composant Microsoft Winsock Control 6.0 (SP4)) (MSWINSCK.OCX) Créer 2 TextBox et les nommer les respectivement txtEnvoyé et txtReçu Ensuite copier/coller le code relatif au formulaire que voici : Private Sub Form_Load() tcpClient.RemoteHost = "nom de l'ordinateur serveur" tcpClient.RemotePort = 1001 tcpClient.Connect End Sub Private Sub txtSend_Change() tcpClient.SendData txtEnvoyé.Text End Sub Private Sub tcpClient_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtReçu.Text = strData End Sub
25 janv. 2009 à 10:19
Ton message : 20/01/2009
T'as pas l'impression d'être le moins utile dans tout ça ?
Déterrer des posts de plus de 6 mois nan mais... Pathétique!
20 janv. 2009 à 15:58
5 juil. 2008 à 04:17
4 juil. 2008 à 23:00
4 juil. 2008 à 16:03
Autant avoir fait un lien vers le MSDN... SANS INTERÊT
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.