Votre question

Visual Basic 6 (VBS6) => Probleme Winsock

Tags :
  • Winsock
  • Programmation
Dernière réponse : dans Programmation
22 Février 2008 17:58:26

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 :
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

a b L Programmation
22 Février 2008 20:18:19

J'imagine que pour l'IP, tu veux plutôt dire 127.0.0.1 ?
22 Février 2008 21:41:49

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: 
Contenus similaires
22 Février 2008 22:10:27

Probleme resolut, je n'avais pas mit sur ecoute :'
a b L Programmation
22 Février 2008 22:35:16

En fait, je pensais pas trop que c'était ça le problème :) 
Le principal c'est que ça marche ;) 
22 Février 2008 23:56:43

gné ?
Tu penser que c'etais quoi ? :'
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS