Pessoal tenho um problemão!

Estou usando o seguinte código no meu programa Servidor:

 

 

Private Sub Socket_Close(Index As Integer)
List1.AddItem "Conexão encerrada por: " & Socket(Index).LocalHostName
Socket(Index).Close
End Sub

 

Private Sub Socket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
msgServidor = "Requisição: " & requestID & " enviada por:" & Socket(Index).LocalHostName
List1.AddItem ""

If Index = 0 Then

  List1.AddItem (msgServidor)
  sCodigoRequisicao = requestID
  iSockets = iSockets + 1

  Load Socket(iSockets)

  Socket(iSockets).LocalPort = 100
  Socket(iSockets).Accept requestID
End If

End Sub

 

Private Sub Socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
'On Error Resume Next
Dim sItemDados As String
Dim strDados As String

Socket(Index).GetData strDados
end sub

 

   Winsock1.RemoteHost = txtIP.Text
   Winsock1.RemotePort = txtPorta
   Winsock1.Connect
   lblStatus.Caption = "CONECTADO COM O SERVIDOR."

 

Obs.: Quanto eu executo o sistema em meu computador ele funciona corretamente usando o IP 127.0.0.1.

 O problema é que o PC na empresa onde eu vou instalar o sistema não é o servidor da internet. Acho que é esse o problema.

É muito estranho isso pois eu instalei o programa Cliente na empresa e o Servidor na minha Casa e funcionou legal.

Mais tinha que ser ao contrário, o Cliente tem q ficar na minha casa e o Servidor na empresa em outro PC que não é o Servidor de internet.

Joao Paulo, bom tarde..

 

     Não vou entrar no merito de sua programação, mas acho que voce deveriar buscar informações a cerca das classes (A, B, C) de IP.

     A classes 127.0.0.0, 10.0.0.0, 192.168.0.0, não são "visiveis" na internet, se tiver usando este tipo de IP acredito que voce terá problemas para conexão, a menos que esta em LP ou VPN.

 

     Verifique se o seu problema esta "neste meio".