salut tout le monde, j'arrive pas a débugger mon 1er essai sur winsock! :S
Serveur ===================
Private Sub Command1_Click()
'si l'utilisateur appuie sur OK
Winsock1.LocalPort = Port.Text 'défini un port pour la connection winsock
Winsock1.Listen 'écoute le port défini
MsgBox "Prêt pour une connection sur le Port " & Port.Text, vbOKOnly, "Serveur"
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'si une requete de connection est envoyé du client au serveur
MsgBox "Demande de connection reçue", vbOKOnly, "Serveur"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'si des données arrivent au serveur
Dim Data As String 'on défini une var Data
Winsock1.GetData Data 'on stock les données qui arrivent dans la variable Data
MsgBox Data, vbOKOnly, "Serveur" 'on affiche les données reçues
End Sub
Client =========================
Private Sub Command1_Click()
'si l'utilisateur clique sur "connection"
Winsock1.Close 'on femre une connection établie au cas où (evite le plantage)
Winsock1.Connect IP.Text, Port.Text 'on se connecte au winsock serveur par l'ip et le port définis
End Sub
Private Sub Command2_Click()
'si l'utilisateur clique sur "deconnection"
Winsock1.Close 'on ferme la connection Winsock en cours
End Sub
Private Sub Winsock1_Connect()
'si la conection est établie
Winsock1.SendData Msg.Text 'on envoi directement le message en cours dans la boite Msg
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'si des données arrivent (on c jamais)
Dim Data As String 'on crée une variable Data
Winsock1.GetData Data 'on stock ces données dans cette variable
End Sub
=================================
je pense que les données n'arrivent pas car elles sont envoyées par le client si la connection est établie. Je pense que la demande de connection est reçue par le serveur vu que la msgbox s'active mais elle n'est pas accepté, ce qui exliquerai tout......
Merci d'avance du coup de main! A +
PS: ce site est génial! ^_^