Connection entre deux ordis + envois de msgbox entre eux...

Soyez le premier à donner votre avis sur cette source.

Vue 5 674 fois - Téléchargée 630 fois

Description

Salut,
Ce programme vous permet d'envoyer des messagbox entre deux ordinateurs. Comment procéder: Ouvrez le programme OuvertureDePort.exe et ouvrez un port, par exemple 12345. Ensuite, ouvrez le programme socket.exe et connectez vous via l'ip de l'ordinateur disant au port qu'il a ouvert (ici 12345), puis entrez un message et envoyez lui. Voilà. Biensur encore quelques bugs, mais ca peu s'avérer être intéréssant à renforcer. Bientôt je vous sors la version 2. Voilà, j'ai tout dis. Bonne prog à tous....

Source / Exemple :


Private Sub BTconnect_Click()
Winsock.LocalPort = port.Text
Winsock.Listen
Wck.Connect ip.Text, port.Text
End Sub

Private Sub BTenvoie_Click()
Wck.SendData Text2.Text
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock.GetData data
If Text3.Text = "" Then MsgBox ("Un anonyme vous envois ce message:" & vbCrLf & data) Else MsgBox (Text3.Text & " vous envois ce message:" & vbCrLf & data)
If Text2.Text = "" Then MsgBox ("Entrez un message")
End Sub

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Close
Winsock.Accept requestID
End Sub

Private Sub Wck_Connect()
Label5.Caption = "Connecté"
Label5.ForeColor = &HFF00&
Shape1.BackColor = &HFF00&
Shape1.BorderColor = &HFF00&
Shape1.FillColor = &HFF00&
BTconnect.Enabled = False
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Angel42480

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.