Visual Basic - problemas de conexion con winsock

Life is soft - evento anual de software empresarial
 
Vista:

problemas de conexion con winsock

Publicado por Nahuel (62 intervenciones) el 18/06/2006 12:02:34
Estos ultimos dias estuve trabajando en teoria (o sea, haciendo codigo sin revisar si funciona el proyecto) en un programa de mensajeria instantanea entre dos pc con el winsock, pero cuando finalmente probe el server en otra pc, no se establece nunca la conexion con mi cliente.
El codigo q utilice es basicamente el q aparece en todas las paginas web:
Cliente:
Private Sub cmdescuchar_Click()
ws.LocalPort = txtip.Text 'establece q el puerto a utilizar sera el introducida en el texto
ws.Close 'cierra la conexion x si habia una establecida
ws.Listen 'se pone a la escucha de un 'ping'
If ws.State = 2 Then 'si esta escuchando lo pone en la etiqueta
lblestado.Caption = "Escuchando..."
End If
end sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
lblserver.Caption = "Dirección Server: " & ws.RemoteHostIP
end sub

Y para el servidor:
Private Sub Form_Load()
Dim ip As String 'almacena la ip de mi maquina
Dim puerto As Integer 'almacena el puerto q se va a utilizar

ip = "xxx.xxx.x.xxx" 'mi ip
puerto = "960" 'el puerto q usa
ws.RemoteHost = ip 'la ip a la q se va a conectar (mi ip)
ws.RemotePort = puerto 'el puerto q utiliza para conectarse
end sub

Private Sub Form_Activate()
ws.Close
ws.Connect
end sub

Private Sub tmconectar_Timer()
'-----------------------------------------------------------------------------------------------------------------------------------------
'SI ESTA DESCONECTADO CIERRA LA CONEXION E INTENTA REABRIRLA |
'------------------------------------------------------------

If Not ws.State = 7 Then
lblestado.Caption = "Estado: Desconectado"
ws.Close
ws.Connect
End If
If ws.State = 7 Then
lblestado.Caption = "Estado: Conectado"
End If
end sub

Ya se q es un codigo largo, pero por favor, alguein sabria ayudarme?
Lo q me llama la atencion es q al ejecutar el cliente, me salta el firewall preguntandome si quiero dejarlo, pero no me pasa lo mismo con el servidor...
Finalmente, la ip q se utiliza, es la publica (192.168.1.2 x ejemplo) o la privada (las q son algo asi como 67.58.x.x)?
Desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder