Montre le la transmission de donnée directe ( comme un tchatte )
Source / Exemple :
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
----------------------------------------------------------------------------------------------
Conclusion :
Pour toutes question n'essitez pas a me mailler : arnaud_h90@hotmail.com
Si jamais vous voulez que je mette un ZIP faites le moi savoir par mail ou via les commentaires.
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.