Connexion tcp avec winsock

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 835 fois - Téléchargée 47 fois

Contenu du snippet

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.

A voir également

Ajouter un commentaire

Commentaires

cs_Yomi
Messages postés
1
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
25 juillet 2003
-
thanks car c exactement ce que je cherchais

Merci
cs_ArnaudH
Messages postés
35
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
26 juillet 2002
-
Tu as bien mis l'IP de ton correspondant rézo ?
circleK
Messages postés
2
Date d'inscription
samedi 14 octobre 2000
Statut
Membre
Dernière intervention
19 février 2002
-
je ne comprend pas ca marche pas du tout chez moi, dans le cas d'un réseau LAN ou dans le cas d'une connexion par cable croisé, comment faire ?????
cs_ArnaudH
Messages postés
35
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
26 juillet 2002
-
Ben, wé, c'est komme sa ke j'ai apris, grace a MSDN, mais vaut mieu recopier et apprendre ... :)
magicyoda
Messages postés
44
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
17 juillet 2005
-
c'est l'exemple de MSDN , mais ca peut toujours aider ! ;)

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.