Search the Community

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 \/