Connection avec winsock (envoi et reception de message en locale)

Télécharger le projet
Commenter

Description

Bonjour a tous, voila j'ai fait un minuscule programme qui n'est pas encore tout à fait fini
et qui consciste a envoyer et recevoir des message (comme un chat sauf que c'est pas instantané :)).avec le control winsock

(code super simple)

Source / Exemple : 


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

Conclusion :


'Explication:
'Il y a 2 chose dans ce prog, l'envoyeur (celui qui envoi les message :)) et celui qui les recoi
'et vis vera

'Donc il faut d'abord lancer le fichier qui s'apelle "reception de msg.exe" quand vous
' executer ce fichier il est en mode INVISIBLE donc pas la peine de quliquer 50
'mille fois dessus :)

'et ensuite sur un autre ordi qui est sur le meme resaux lancer le fichier qui s apelle
'envoyeur.exe et la ba pas la peine que j'explique :)

'PS: ce code n'est pas fini je le répete je v'ai tres prochainement l'amélioré ;-)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (albert0)