COMO PEGAR IP DA INTERNET EM MICROS DE REDE?

JOSEPH 11/05/2004 00:44:19
#23999
Uma desgraça me atinge, quero pegar o IP de internet dos micros onde trabalho, mas todas as subs que testei pegam apenas o IP da rede interna de micros que recebam internet via rede. Por exemplo, se o micro não está em rede e se conecta direto à  internet as subs retornam o IP dele de internet. Caso o micro trabalhe em rede e receba internet pela rede em vez do IP da internet eu só consigo pegar o famoso 192.168.xxx.xxx. Alguém sabe como pegar o IP de internet sempre?

obrigado!
USUARIO.EXCLUIDOS 11/05/2004 01:38:38
#24001 Resposta escolhida
've se isu ai quebra o teu galho...
'Adciona 1 Winsock control

Private Sub Form_Load()
Me.Visible = True
Winsock1.Connect "www.showmyip.com", 80
Print "Conectando..."
End Sub

Private Sub Winsock1_Connect()
Print "Conectado!"
Print "Armazenando pagina inicial..."
Winsock1.SendData "GET /simple/ HTTP/1.0" & vbCrLf & _
"Host: " & Winsock1.RemoteHost & vbCrLf & vbCrLf
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Dados As String
Winsock1.GetData Dados
Ini = InStr(1, Dados, vbCrLf & vbCrLf) + 4
Tam = InStr(Ini, Dados, " ") - Ini
IP = Mid(Dados, Ini, Tam)
Print "IP:" & IP
Winsock1.Close
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Print "Erro ao conectar!"
Print Description
Winsock1.Close
End Sub
USUARIO.EXCLUIDOS 11/05/2004 15:32:31
#24128
Ja que resolveu,encerra o topico por favor...
Tópico encerrado , respostas não são mais permitidas
Voltar