CONNECTION AVEC WINSOCK (ENVOI ET RECEPTION DE MESSAGE EN LOCALE)

LE RECEPTEUR DE MSG

Private Sub Form_Load()
Winsock1.LocalPort = 21 'je defini le port
Winsock1.Listen 'voila maintenant le server est pret a recevoir des clients
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
Winsock1.Accept requestID
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim msg As String

Winsock1.GetData msg
   variable = MsgBox(msg, vbYesNo, "Message Reçu")
      If variable = "Yes" Then
       Form1.Show
      End If
End Sub

'L ENVOYEUR DE MSG

Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text ' recupere l'ip qui ce trouve dans le texbox text1
Winsock1.RemotePort = 21 'definit le port
Winsock1.Connect 'he ba oui il se connect :)
End Sub

Private Sub Command2_Click()
Winsock1.SendData (Text2.Text + vbCrLf & vbCrLf & "Répondre?")   ' ETT GOOO envo du message
End Sub


Private Sub Form_Load()

End Sub

'rien de plus simple :)

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Erreur de connexion veuillez recommancer!"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim msg As String

Winsock1.GetData msg
   variable = MsgBox(msg, vbYesNo, "Message Reçu?")
      If variable = "Yes" Then
        Form1.Show
      End If
End Sub

Télécharger le zip