a ver si me podeis ayudar a mi, estoy intentando hacer un chat, muy sencillito, pero no me funciona, no se conectan, y no entiendo donde esta el error.
Aca te paso el codigo:
CLIENTE
Private Sub Command1_Click()
Winsock1.Connect "Pc8Compaq", 1145
End Sub
Private Sub Command2_Click()
Winsock1.SendData txtSend.Text
End Sub
Private Sub Form_Load()
' El nombre del control Winsock es tcpClient.
' Nota: para especificar un host remoto, puede usar
' la dirección IP (como "121.111.1.1") o
' el nombre "descriptivo" del equipo, como se muestra aquí.
Winsock1.RemoteHost = "200.1.49.63"
Winsock1.RemotePort = 1145
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData strData
txtOutPut.Text = strData
End Sub
--------------------------------------------------------------------------
SERVIDOR
Private Sub Command1_Click()
Winsock1.SendData txtSendData.Text
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 0 'selecciona un puerto de forma aleatoria
Winsock1.Listen 'crea el socket y lo establece a modo de escucha
Me.Show
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
' Declara una variable para los datos entrantes.
' Invoca el método GetData y establece la propiedad
' Text de un control TextBox llamado txtOutput
' con los datos.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
Desde ya muchas Gracias!!