Probleme WinsockRésolu

Question

Bonsoir a tous

Voila j'essaye de crer un programme Client / Server grace a Winsock j'ai donc commencer a creer un Client  tout simple qui une fois connecté au server et une fois cliké sur un bouton affiche du coté du server une MsgBox voici ma source
Client (LocalPort 3616; RemotePort 3615)

Private Sub Command1_Click()


Winsock1.RemoteHost = Text1.Text

Winsock1.Connect


End Sub

Private Sub Command2_Click()

Dim donnees As String
donnees = "01"
Winsock1.SendData donnees

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim Arrive As String
Winsock1.GetData Arrive

End Sub
Server (LocalPort 3615; RemotePort 3616)

Private Sub Form_Load()

Winsock1.Listen

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock1.Close
Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim donees As String
Winsock1.GetData donnees

Select Case Left(donnees, 2)

Case "01"
MsgBox "Message Recu", vbOKOnly, "Message de Test"

End Select

End Sub

Voila apres je lance le server, je me connect dessus avec le client, jusqu'ici tout va bien mais apres lorsque je clik sur le boutton qui doit normalement faire afficher une messagebox par le server la rien ne se passe je ne comprend pas pourquoi donc si quelqu'un a une solution je suis preneur
(peut etre le probleme vient il du fait que j'execute le server et le client sur le meme pc en local)

cs_casy · Accepted Answer

Avant d'étudier plus ton code, ma réponse sera la même que dans ton autre post ici -->
http://www.vbfrance.com/infomsg_CLIENT-SERVER-WINSOCK_887824.aspx#3

Je te conseille d'activer l'Option Explicit tu comprendra peut-etre ce que je veux dire.

Option Explicit à mettre sur la toute première ligne de chaque Form et module.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_Exploreur · Answer

Salut,

Moi je serai toi schecky, je suivrai les conseils de Casy qui ne sont pas là pour faire joli....Patience...patience...

A+
Exploreur

cs_schecky · Answer

Ok je viens de comprendre Merci beaucoup Casy pout ton aide effectivement sa marche maintenant. Bonne soirée a tous

Probleme Winsock

3 réponses

Votre réponse

Discussions similaires