Pegando seu IP Externo pelo VB6

[CzarSuvorov]

Galera isso é fácil, tem muitos jeitos de se fazer isso, Winsock, Inet e até VB Puro sem componente.. vou mostrar como fazer isso usando INET...


1º Vá em componentes e add Microsoft Internet Transfer Control 6.0.. (esse componentes vai ser responsável por nos retornar o comando que vamos inserir em um CommandButton, ou um Button de sua escolha (.ocx) ).

2º Feito isso, coloque o comando..

Dim ret As String
ret = Inet1.OpenURL("http://pchelplive.com/ip.php")
MsgBox ret

Explicação do comando.. Usei o Dim ret As String para manipular a String ret e dizer que o ela vai retornar o Inet1.OpenURL("SITE QUE MOSTRA O IP")

E o MsgBox vai mostrar em uma janela o IP que o componente Inet capturou e enviou ao programa de acordo a informação dentro deste campo.. ("SITE QUE MOSTRA O IP")

[TSFURLAN]

Valeuu man ! Muito Útil !

[Μıħħ!]

Boaa, essa eu nao sabia.
O problema é que estou no notebook Windows Vista agora.
Eu tentei colocar o VB6 mas dava um erro ai, nao dava pra usar mesmo e acabei deletando.

Quando eu for no PC eu testo, se eu nao falar nada é porque ta funcionando.
Se der erro eu comento novamente.

Baii -qq

[Teodorak]

Mto interessante o script