Pegando seu Ip Externo.

[sequeled 0]

Ae OiaeuMae

 

OBS: VAMOS REVIVER O FORUM DE VISUAL BASIC É UMA LINGUAGEM MUITO LEGAL DE SE PROGRAMAR :]

 

Neste tutorial vou ensinar como pegar seu ip externo no vb6 usando o inet6, poderia ser por winsock só que por inet eu faço em no maximo 15 linhas.

 

Em 2 partes mt rapido !!

 

 

1° Parte

 

Abra o vb6 pressione control + T e procure o componente Microsoft Internet Transfer Control 6.0 adicione ao seu projeto.

 

 

2° Parte

 

Adicione um botao no seu projeto e ponha o seguinte codigo dentro

 

Dim ret As String
ret = Inet1.OpenURL("http://meuip.datahouse.com.br/")

Dim corte() As String

corte = Split(ret, "?  ")
corte = Split(corte(1), "<")


MsgBox corte(0)

 

EXPLICAÇÃO

 

ret recebe o html do inet1

 

eu fiz o codigo para o site que ja esta, se você tentar mudar provavelmente n funcionara

corte() é um array sem tamanho definido

Fim

corte = split(ret, "? ") <<< cria um novo array a cada interrogação do codigo html que esta contido em ret como sao poucas foi facil

 

corte = split(corte(1), "<") <<<< pegamos um dos arrays que tem o texto ja reduzido dentro dele e limpamos todos arrays de corte que ja existiam criando um novo apartir do texto que tinha em corte(1) e mudamos o metodo para criar array "<" no caso isto vem logo depois do ip, dai separa para o corte(0) só conter o ip externo.

 

msgbox corte(0) <<<< cria uma mensagem de aviso, o array corte(0)

contem o seu ip externo.

quando rodar você vera \/

 

[Shrinks17 0]

é mais facil ir no executar>cmd>ipconfig

mas ficaí o codigo pra quem quiser ;D

[Dartier 0]

bem legal, mas pena que não tem utilidade ;/

[sequeled 0]

Verdade não tem muita utilidade.

 

Mas tem um pessoal na internet que procura por isso KKKK.

 

Eu só fiz este tutorial pra mostrar pras pessoas que não conseguem pegar seu proprio ip externo nos programas que fazem.

 

Caso vocês ja repararam não existe um comando que retorne seu ip externo no vb ;x

 

DIZEM que em quase todas linguagens não tem comando pra retornar seu ip externo :/

[Kina Destemido 0]

é mais facil ir no executar>cmd>ipconfig

mas ficaí o codigo pra quem quiser ;D

Claro que nao se vc tiver atraz de routeador nunca q dar ipconfig vc pegara o seu ip externo eh IMPOSSIVEL nao fale abobrinhas

 

e o outro que falo que não é util errou tb é muito util sim.. como o pessoal que esta iniciando na programação vai saber esse tipo de coisa.

eu acho que voces falam esse tipo de besteira pq nao entende do negocio e se voces nao entendem plz nao entrem nessa parte do forum!

[Join_u 0]

muito bom ver o pessoal postando algo nessa parte parecia que só eu postava coisas aki!

abraços!