PEGAR IP EXTERNO REAL

ALNUN 24/08/2007 19:42:48
#232631
Fucei (e muito) aqui no site e na net atras de um codigo que me retornasse o meu IP da internet e só achei duas maneiras:

1 - Via INet, ou similar, pegue o código-fonte de alguma pagina na internet que te retorne seu IP, tipo www.meuip.com.br. O problema é que estas paginas mudam seus layouts de tempos em tempos e aí sua aplicacao fura, pois voce tem que determinar o local onde o IP se encontra dentro da pagina.

2 - Achei tambem umas APIs que retornam todos os dados da mesma maneira que o comando "ipconfig" no "prompt". O problema é que retorna todas as informacoes de todas as placas de rede do seu pc em qq ordem.

Alguem já conseguiu pegar o IP real de uma maneira facil???
MJAC 25/08/2007 14:29:53
#232679
Bem, já utilizou o Winsock ?
Para acrescentar esse componente basta selecionar "Microsoft Winsock Control 6.0 (SP6)"
então use isso:

   MsgBox Winsock1.LocalIP

Abraços...
USUARIO.EXCLUIDOS 25/08/2007 14:57:08
#232683
kra esse seu exemplo retorna o ip de rede 192.168....

agora como eu faço para retorna o ip mesmo

aquele da net
MARCELOKROL 25/08/2007 15:06:33
#232685
Tente assim, coloque um controle INET no form e execute esta function:

Function MeuIp() as String
    Dim nIp As String
    nIp = Inet1.OpenURL("http://pchelplive.com/ip.php")
    
    MeuIp = nIp
end Sub


qualquer dúvida me adiciona ai que tento ajudar, fui

marcelokrol@yahoo.com.br
ALNUN 25/08/2007 23:34:11
#232705
Bom, sobre o "Winsock1.LocalIP" do MJAC: valeu cara, mas isso foi a 1ê coisa que tentei...

E quanto ao "Inet1.OpenURL("http://pchelplive.com/ip.php")" do MARCELOKROL: Quem garante que este site vai estar no ar amanha? Achei outro site que tambem só retorna o IP (http://www.whatismyip.org/), mas continuo com o mesmo problema de os sites sairem do ar de uma hora pra outra...

Alguem mais??? Acho impossivel nao ter um metodo simples para isso se estas paginas na internet conseguem...
USUARIO.EXCLUIDOS 26/08/2007 01:13:17
#232709
ALNUM,
Citação:

Quem garante que este site vai estar no ar amanha? Achei outro site que tambem só retorna o IP (http://www.whatismyip.org/), mas continuo com o mesmo problema de os sites sairem do ar de uma hora pra outra...


Loca um servidor Web 10,00 por Mês.
ALNUN 27/08/2007 13:42:53
#232853
ok, mas ainda acho que não é o melhor jeito, deve existir algo...
Tópico encerrado , respostas não são mais permitidas
Voltar