Ciao a tutti, ho un problema, ho creato un Client e Un Server che all' immissione del IP del computer (Server) nell' apposito spazio del Client e premendo il tasto connetti si colleghi in remoto con il pc (server) attraverso il controllo Winsock
Ho inserito un textbox (x inserire messaggio)e un commandbox (x inviare il messaggio) al Server, il problema che non funziona.
Sapete aiutarmi ??
Grazie del vostro aiuto.
______________________
Ecco il pezzo di codice per inviare il messaggio al Server:
Private Sub cmdmessaggio_Click()
Winsock1.SendData "messaggio"
End Sub
-----------------------
Ecco il pezzo di codice re ricevere il messaggio dal Client:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
Winsock1.GetData dati
Select Case dati
Case "messaggio"
MsgBox Text2.Text, vbCritical, Error
End Select
End Sub
|