Eu antes pra saber o IP Público usava a rotina abaixo acessando um determinado site q retornava o IP e eu tinha q tratar o HTML de retorno, o retorno era rápido e fácil de tratar, mas com o passar dos anos o site saiu do ar, ai pesquisando achei outros como os listados abaixo, mas comecei a ter um problema q de lentidão pois o retorno do IP demorava e isso me gerou alguns contratempos... ai após trocar uma ideia percebi q o colega Quintas colocou um arquivo ASP no site dele q retorna o IP q realmente retorna bem mais rápido e só texto não precisando ficar tratando o retorno...
//------------------------------------------------------------------------------
Código: Selecionar todos
function IP_PUBLICO()
local oOle, cIP_Externo := '0.0.0.0'
TRY
oOle := CreateObject( "Microsoft.XMLHTTP" )
oOle:Open( 'GET', 'http://www.seudominio.com.br/meuip.php', .F. )
oOle:Send()
cIP_Externo := oOle:ResponseBody
oOle := NIL
CATCH
END
return cIP_ExternoConteúdo do arquivo meuip.php
Código: Selecionar todos
<?php
echo $_SERVER['REMOTE_ADDR'];
?>
O interessante q isto tudo existe tb como fazer sem ter q pagar uma hospedagem... pode ter em sua casa ou algum outro local um micro ou maquina virtual rodando um ambiente com servidor PHP e tudo isto redirecionado via NO-IP... ou seja, pode criar um domínio por exemplo:
meudominio.ddns.net
[]´s
