Visual Basic 6 (VBS6) => Probleme Winsock
Dernière réponse : dans Programmation
Bonjour,
Je cherche a developper une petite application de teste :
Le clien envoit un message, le serveur la receptione,
Resulta :
La fonction Winsock.State renvoit "6"
J'ai mit que lors "winsock" se connecte, cela affiche un "ok !" et sa l'affiche.
malheureusement, que le serveur soit allumer ou pas, sa renvoit la même chose.
Voici le code :
Code Client :
DoEvents
DataSended = 0
Winsock1.SendData data
DoEvents
While DataSended <> 1
DoEvents
Wend
DataSended = 0
End Function
Private Sub Command1_Click()
Winsock1.Connect
Label1.Caption = Winsock1.State
End Sub
Private Sub Command2_Click()
Call Envoyer(Text1 & vbCrLf)
End Sub
Private Sub Winsock1_Connect()
Label2.Caption = "Ok !"
End Sub
Voici le code du serveur qui est sur un autre .exe :
Winsock1.GetData Data$, vbString
Text2.Text = Text2.Text & vbCrLf & Data$
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Connect
Winsock1.Accept requestID
MsgBox "On se connecte...", vbOKOnly + vbInformation, "Connection..."
End Sub
Les winsock sont configurés sur :
127.1.1 pour l'adresse IP
4000 pour le port
Et TCP pour le protocole
Je cherche a developper une petite application de teste :
Le clien envoit un message, le serveur la receptione,
Resulta :
La fonction Winsock.State renvoit "6"
J'ai mit que lors "winsock" se connecte, cela affiche un "ok !" et sa l'affiche.
malheureusement, que le serveur soit allumer ou pas, sa renvoit la même chose.
Voici le code :
Code Client :
Citation :
Public Function Envoyer(ByVal data As String)DoEvents
DataSended = 0
Winsock1.SendData data
DoEvents
While DataSended <> 1
DoEvents
Wend
DataSended = 0
End Function
Private Sub Command1_Click()
Winsock1.Connect
Label1.Caption = Winsock1.State
End Sub
Private Sub Command2_Click()
Call Envoyer(Text1 & vbCrLf)
End Sub
Private Sub Winsock1_Connect()
Label2.Caption = "Ok !"
End Sub
Voici le code du serveur qui est sur un autre .exe :
Citation :
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Winsock1.GetData Data$, vbString
Text2.Text = Text2.Text & vbCrLf & Data$
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Connect
Winsock1.Accept requestID
MsgBox "On se connecte...", vbOKOnly + vbInformation, "Connection..."
End Sub
Les winsock sont configurés sur :
127.1.1 pour l'adresse IP
4000 pour le port
Et TCP pour le protocole
Autres pages sur : visual basic vbs6 probleme winsock
Lassé par la pub ? Créez un compte
Oups, merci, c'est corriger !
En revanche,
Quand je cliquer sur "envoyer" apres etre connecter, sur le serveur je ne voyer absolument rien qui s'afficher,
J'ai vu qu'il y'avais une petite erreur, il manquer le Text1.text pour que sa fonctione voici le code obtenue :
Private Sub Command2_Click()
Call Envoyer(Text1.Text & vbCrLf)
End Sub
Maintenant sa m'affiche cette erreur quand j'envoit :
rune time error 40006
Wrong protocole or connection state for the request transaction or request
et quand je clique sur debug sa me surligne
Winsock1.SendData data
Ausecour x)
PS j'ai remplacer Winsock1.Connect par Winsock1.Connect "127.0.0.1", 4000
J'ai maitenan plus d'erreur, mais sa ne marche pas pour autant![:pfff:]( ":pfff:")
En revanche,
Quand je cliquer sur "envoyer" apres etre connecter, sur le serveur je ne voyer absolument rien qui s'afficher,
J'ai vu qu'il y'avais une petite erreur, il manquer le Text1.text pour que sa fonctione voici le code obtenue :
Private Sub Command2_Click()
Call Envoyer(Text1.Text & vbCrLf)
End Sub
Maintenant sa m'affiche cette erreur quand j'envoit :
rune time error 40006
Wrong protocole or connection state for the request transaction or request
et quand je clique sur debug sa me surligne
Winsock1.SendData data
Ausecour x)
PS j'ai remplacer Winsock1.Connect par Winsock1.Connect "127.0.0.1", 4000
J'ai maitenan plus d'erreur, mais sa ne marche pas pour autant
Lassé par la pub ? Créez un compte
- Contenus similaires :
