proba deshabilitar el firewall de la maquina a la que te queres conectar...a veces el firewall tapa los puertos y por mas que lo pongas como excepcion no andan...y tenes algun antivirus que pueda deshabilitar el puerto??...hacele un telnet al puerto haber si anda...

saludos.

el ping se lo haces a la ip...el telnet se lo haces a la IP y al puerto haber si esta abierto...

supongamos vas a CMD y haces:


si te aparece una ventana negra con el cursor titilando es porque esta abierto...

bueno, he probado con el protcolo tcp, el upd, he desbloqueado los puertos que uso y nada...

el caso es que yo envio el mensaje al otro equipo, y no me da ningun tipo de error, pero no aparecen en el equipo remoto. es como si se perdieran por el camino :s

aqui va el codigo cuando el cliente envia los datos

Private Sub Command2_Click()

Dim error As Variant
Dim enviar As String
enviar = Text2.Text

If Me.Winsock1.State = 0 Or Me.Winsock1.State = 9 Then
   
    error = MsgBox("CONEXION TERMINADA, (DESCONECTADO)", vbCritical, "DISCONECTED") = vbOK

Else

    Me.Winsock1.SendData enviar
    Text2.Text = ""

End If

End Sub



y aqui cuando el servidor recibe los datos


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
Me.Winsock1.GetData datos, vbString
Text1.Text = Text1.Text + vbNewLine + "**CLIENTE**"
Text1.Text = Text1.Text + vbNewLine + datos

End Sub


aqui cuando el servidor acepta la conexion

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Dim alert As Variant
If Winsock1.State <> sckClosed Then
        Winsock1.Close
    End If
Me.Winsock1.Accept requestID
alert = MsgBox("cliente se ha coenctado", vbInformation, "conectando") = vbOK
Label2.Caption = "conectado"
End Sub

a ver si podeis ayudarme. muchas gracias