0/5 (1 avis)
Vue 5 968 fois - Téléchargée 684 fois
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
22 juil. 2003 à 10:49
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.