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..
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")
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
ret = Inet1.OpenURL("http://pchelplive.com/ip.php")
MsgBox ret
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")
Comment