conectar con un equipo remoto sin servidor

[SRVAM]

el puerto lo abri, y la ip es estatica... asi que no se, por eso me resulta tan extraño que no consiga conectarlo a un ordenador que esta lejos, cuando con mi portatil y mi sobremesa conectados en red local si puedo hacerlo.

si puedes darme alguna otra idea te lo agradeceria.

un saludo

[seba123neo]

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.

[SRVAM]

de acuerdo, aunque mas que telnet le hare un ping no?? xD el firewall es el de windoes y antivirus tiene el nod32, en el firewall de windows desbloquee la coenxion que yo hacia al puerto 888 asi que en teoria no deberia pasar nada... pero probare a desabilitar el firewall a ver

[seba123neo]

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

[SRVAM]

jajaja de acuerdo, pense que solamente con el ping servia para ip y puerto jaja

mea culpa xD

[seba123neo]

supongamos vas a CMD y haces:

Código [Seleccionar] Expandir

telnet 192.156.23.45:888

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

[LixKeÜ]

si es solo para un chat y quieres ahorrarte todo el trabajo de abrir puertos y eso..
http://foro.elhacker.net/analisis_y_diseno_de_malware/abril_negrouna_mirada_distinta_a_la_conexion_de_un_malware_o_troyano-t253454.0.html

[SRVAM]

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

[seba123neo]

pone el codigo del envio de datos del cliente...y despues pone el codigo cuando recibis los datos en el servidor...

[SRVAM]

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