Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 926 fois - Téléchargée 47 fois
Code de la feuille : Serveur : ---------------------------------------------------------------------------------------------- Private Sub Form_Load() tcpServer.LocalPort = 1001 tcpServer.Listen frmClient.Show End Sub Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long) If tcpServer.State <> sckClose Then tcpServer.Close tcpServer.Accept requestID End Sub Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long) Dim strData As String tcpServer.GetData strData txtOutput.Text = strData End Sub Private Sub txtSendaData_Change() tcpServer.SendData txtSendData.Text End Sub Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strData End Sub Private Sub txtSendData_Change() tcpServer.SendData txtSendData.Text End Sub ---------------------------------------------------------------------------------------------- Code de la feuille client : ---------------------------------------------------------------------------------------------- Private Sub cmdConnect_Click() tcpClient.Connect End Sub Private Sub Form_Load() tcpClient.RemoteHost = "Entrez votre IP ou le nom de votre PC ici" tcpClient.RemotePort = 1001 End Sub Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long) Dim strData As String tcpClient.GetData strData txtOutput.Text = strData End Sub ----------------------------------------------------------------------------------------------
Merci
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.