Tengo esto y me da error:
Cliente:
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
Servidor
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