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
  12. Private Sub Command2_Click()
  15. Tcpclient1.Close
  16. Tcpclient2.Close
  17. Label1.Caption = Tcpclient1.State
  18. Label2.Caption = Tcpclient2.State
  20. End Sub
  22. Private Sub Form_Load()
  23. Tcpclient1.RemotePort = 1200
  24. Tcpclient2.RemotePort = 1007
  25. End Sub
  27. Private Sub Tcpclient1_DataArrival(ByVal bytesTotal As Long)
  28. Dim msg1 As String
  29. Tcpclient1.GetData msg1
  30. If msg1 = "connexion 1 etablie" Then
  31. MsgBox (msg1)
  32. End If
  33. End Sub
  35. Private Sub Tcpclient2_DataArrival(ByVal bytesTotal As Long)
  36. Dim msg2 As String
  37. Tcpclient2.GetData msg2
  38. If msg2 = "connexion 2 etablie" Then
  39. MsgBox (msg2)
  40. End If
  42. End Sub
  44. Private Sub Text1_Change()
  45. rh = Text1.Text
  46. Tcpclient1.RemoteHost = rh
  47. Tcpclient2.RemoteHost = rh
  48. 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
  7. End Sub
  9. Private Sub Tcpserveur1_Close()
  10. Label1.Caption = ""
  11. End Sub
  13. Private Sub Tcpserveur1_ConnectionRequest(ByVal requestID As Long)
  14. Dim msg1 As String
  15. msg1 = "connexion 1 etablie"
  16. If Tcpserveur1.State <> sckClosed Then Tcpserveur1.Close
  17. Tcpserveur1.Accept requestID
  18. Label1.Caption = "connexion 1 établie"
  19. Tcpserveur1.SendData msg1
  21. End Sub
  25. Private Sub Tcpserveur2_Close()
  26. Label2.Caption = ""
  28. End Sub
  30. Private Sub Tcpserveur2_ConnectionRequest(ByVal requestID As Long)
  31. Dim msg2 As String
  32. msg2 = "connexion 2 etablie"
  33. If Tcpserveur2.State <> sckClosed Then Tcpserveur2.Close
  34. Tcpserveur2.Accept requestID
  35. Label2.Caption = "Connexion 2 établie"
  36. Tcpserveur2.SendData msg2
  37. 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