j'ai un probleme avec winsock help me svp

Question

voila je essai en vain de faire un essai pour faire un petit log mais je arrive pas a ffaire parle un serveur avec un client avec winsock un petit test a la con mais je arrive pas si quelqu'un peu me dire comment faire ou j'ai faire un commerie merci

voila le code du client:

Private Sub Form_Initialize()
Winsock1.Listen
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.0.3"
Winsock1.RemotePort = "1234"
Winsock1.Protocol = "0"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

voila le code du serveur:

Private Sub Command1_Click()
Winsock2.Connect
End Sub

Private Sub Form_Load()
Winsock2.LocalPort = "1234"
Winsock2.Protocol = "0"
End Sub

Private Sub Winsock2_Connect()
Winsock2.SendData Text2.Text
End Sub

le client a un boite text et un winsock

le serveur a un boite text et un winsock et un bouton

tla62@wanadoo.fr
merci de bien vouloir m'aide merci d'avance laurent

mph · Answer

premierement le client c'est celui qui se connecte et pas celui qui ecoute (Le serveur)
Deuxiemement, tu ne peux pas accpeter un winsock distant avec le winsock qui ecoute (listen)

voila le code du client:

Private Sub Form_Initialize()
Winsock1.Listen       <= Mauvais mettre 'Winsock1.connect'
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.0.3"
Winsock1.RemotePort = "1234" <= le port est une valeur numérique et pas une chaine
Winsock1.Protocol = "0" <= Ne sert a rien (TCP par défaut)
End Sub

'Private Sub Winsock1_ConnectionRequest(ByVal requestID As 'Long)
'If Winsock1.State <> sckClosed Then Winsock1.Close <= ne pas mettre
'Winsock1.Accept requestID <= accepter la connexion avec un autre winsock, exemple : WinsockConnexion.accept requestid
'End Sub

<= Mauvaise procedure appelée, c'est celle du serveur

voila le code du serveur:

Private Sub Command1_Click()
Winsock2.Connect       <= Mauvais, mettre 'Winsock2.listen'
End Sub

Private Sub Form_Load()
Winsock2.LocalPort = "1234" <= numérique
Winsock2.Protocol = "0" <= ne sert a rien
End Sub

'Private Sub Winsock2_Connect()
'Winsock2.SendData Text2.Text <= Mettre le winsock qui a accpeté la connexion a la place (dans mon exemple c'est winsockconnexion)
'End Sub

<= Mauvaise procedure appelée, c'est celle du client

En plus, si tu veux voir queleque chose apparaitre chez le client tu doit inteercepter l'evenement dataarrival et appeler la fonction getdata

mph · Answer

-------------------------------
 Réponse au message :          
-------------------------------

voila je essai en vain de faire un essai pour faire un petit log mais je arrive pas a ffaire parle un serveur avec un client avec winsock un petit test a la con mais je arrive pas si quelqu'un peu me dire comment faire ou j'ai faire un commerie merci

voila le code du client:

Private Sub Form_Initialize()
Winsock1.Listen
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.0.3"
Winsock1.RemotePort = "1234"
Winsock1.Protocol = "0"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

voila le code du serveur:

Private Sub Command1_Click()
Winsock2.Connect
End Sub

Private Sub Form_Load()
Winsock2.LocalPort = "1234"
Winsock2.Protocol = "0"
End Sub

Private Sub Winsock2_Connect()
Winsock2.SendData Text2.Text
End Sub

le client a un boite text et un winsock

le serveur a un boite text et un winsock et un bouton

tla62@wanadoo.fr
merci de bien vouloir m'aide merci d'avance laurent

cs_the_best · Answer

Va voir http://www.vbfrance.com/forum.v2.aspx?ID=207535
The Best  :-p

J'ai un probleme avec winsock help me svp

3 réponses

Discussions similaires