Probléme de reconnexion avec les winsocks du VB 6.0

Probléme de reconnexion avec les winsocks du VB 6.0 - VB/VBA/VBS - Programmation

Marsh Posté le 02-10-2011 à 19:58:23    

Bonjour tout le monde,  
J'ai un petit problème avec le contrôle winsock du VB6, j'ai créé deux projets : un serveur et un client et ils communiquent entre eux à l'aide de deux sockets en chaque coté.
Pour la connexion ça marche sans aucun problème et aussi c pareil pour la deconnexion. Donc jusque la c'est bon.
Mais quand je veux établir un nouvelle connexion (une reconnexion) rien ne se passe.
 
Aidez moi svp c urgent !
ci-dessous le code du client :

Code :
  1. Dim rh As String
  2. Private Sub Command1_Click()
  3. Tcpclient1.Close
  4. Tcpclient1.LocalPort = 0
  5. Tcpclient1.Connect rh, 1200
  6. Tcpclient2.Close
  7. Tcpclient2.LocalPort = 0
  8. Tcpclient2.Connect rh, 1007
  9. MsgBox ("il arrive jusque la" )
  10. End Sub
  11. Private Sub Command2_Click()
  12. Tcpclient1.Close
  13. Tcpclient2.Close
  14. Label1.Caption = Tcpclient1.State
  15. Label2.Caption = Tcpclient2.State
  16. End Sub
  17. Private Sub Form_Load()
  18. Tcpclient1.RemotePort = 1200
  19. Tcpclient2.RemotePort = 1007
  20. End Sub
  21. Private Sub Tcpclient1_DataArrival(ByVal bytesTotal As Long)
  22. Dim msg1 As String
  23. Tcpclient1.GetData msg1
  24. If msg1 = "connexion 1 etablie" Then
  25. MsgBox (msg1)
  26. End If
  27. End Sub
  28. Private Sub Tcpclient2_DataArrival(ByVal bytesTotal As Long)
  29. Dim msg2 As String
  30. Tcpclient2.GetData msg2
  31. If msg2 = "connexion 2 etablie" Then
  32. MsgBox (msg2)
  33. End If
  34. End Sub
  35. Private Sub Text1_Change()
  36. rh = Text1.Text
  37. Tcpclient1.RemoteHost = rh
  38. Tcpclient2.RemoteHost = rh
  39. End Sub


Ci-dessous le code du serveur :

Code :
  1. Private Sub Form_Load()
  2. Tcpserveur1.LocalPort = 1200
  3. Tcpserveur1.Listen
  4. Tcpserveur2.LocalPort = 1007
  5. Tcpserveur2.Listen
  6. End Sub
  7. Private Sub Tcpserveur1_Close()
  8. Label1.Caption = ""
  9. End Sub
  10. Private Sub Tcpserveur1_ConnectionRequest(ByVal requestID As Long)
  11. Dim msg1 As String
  12. msg1 = "connexion 1 etablie"
  13. If Tcpserveur1.State <> sckClosed Then Tcpserveur1.Close
  14. Tcpserveur1.Accept requestID
  15. Label1.Caption = "connexion 1 établie"
  16. Tcpserveur1.SendData msg1
  17. End Sub
  18. Private Sub Tcpserveur2_Close()
  19. Label2.Caption = ""
  20. End Sub
  21. Private Sub Tcpserveur2_ConnectionRequest(ByVal requestID As Long)
  22. Dim msg2 As String
  23. msg2 = "connexion 2 etablie"
  24. If Tcpserveur2.State <> sckClosed Then Tcpserveur2.Close
  25. Tcpserveur2.Accept requestID
  26. Label2.Caption = "Connexion 2 établie"
  27. Tcpserveur2.SendData msg2
  28. End Sub


 
 
Shaeks

Reply

Marsh Posté le 02-10-2011 à 19:58:23   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed