Cliente:
Código
Servidor
Private Sub Command2_Click() CD.ShowOpen CD.Filter = "Solo |.exe *.exe" WS.Close WS.RemoteHost = "127.0.0.1" WS.RemotePort = "1234" WS.Connect MsgBox ("Enviar") Dim datitos As String datitos = Text1.Text WS.SendData datitos End Sub Private Sub WS_Connect() Label1.Caption = "Conexion establecida" End Sub Private Sub WS_DataArrival(ByVal bytesTotal As Long) Dim dat As String WS.GetData dat, vbString End Sub
Código
Private Sub Form_Load() WS.Close WS.LocalPort = "1234" WS.Listen End Sub Private Sub WS_ConnectionRequest(ByVal requestID As Long) If WS.State <> sckClosed Then WS.Close ' close End If WS.Accept requestID End Sub Private Sub WS_DataArrival(ByVal bytesTotal As Long) Dim dat As String WS.GetData dat Text1.Text = dat End Sub
Si en el cliente quito lo de sendata no me da error. :S