Cual es mi IP Publica
Publicado por DALSOM (612 intervenciones) el 03/11/2013 09:01:10
Hola a todos, 
He estado buscando la forma de obtener mi ip publica, o la ip por la que el computador del usuario se conecta al internet.
Encontre este articulo en el portal fox :
http://www.portalfox.com/index.php?name=News&file=article&sid=2561&mode=nested&order=0&thold=0
Pero, la funcion ya no es util debido a que la pagina http://www.whatismyip.org/
ya no presenta la ip como un texto, sino que lo hace a traves de una funcion de google.
Por este motive tube que investigar sobre otra pagina que si me ofrezca la ip en forma de texto para luego poder extraerlo de la pagina.
Al final encontre esta pagina, asi que les dejo la funcion modificada para que retorne solo la ip, y no deje rastros de nada, y no interfiera con cualquier otro archive que exista con el mismo nombre.
Espero les sea de utilidad y que esta nueva pagina no haga lo mismo que la primera.
Saludos,
Dalsom.
Rep. Dominicana.
He estado buscando la forma de obtener mi ip publica, o la ip por la que el computador del usuario se conecta al internet.
Encontre este articulo en el portal fox :
http://www.portalfox.com/index.php?name=News&file=article&sid=2561&mode=nested&order=0&thold=0
Pero, la funcion ya no es util debido a que la pagina http://www.whatismyip.org/
ya no presenta la ip como un texto, sino que lo hace a traves de una funcion de google.
Por este motive tube que investigar sobre otra pagina que si me ofrezca la ip en forma de texto para luego poder extraerlo de la pagina.
Al final encontre esta pagina, asi que les dejo la funcion modificada para que retorne solo la ip, y no deje rastros de nada, y no interfiera con cualquier otro archive que exista con el mismo nombre.
Espero les sea de utilidad y que esta nueva pagina no haga lo mismo que la primera.
Saludos,
Dalsom.
Rep. Dominicana.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
FUNCTION IpInternet()
DECLARE LONG URLDownloadToFile IN URLMON.DLL ;LONG, STRING, STRING, LONG, LONG
LOCAL ipstr,lfile,lip
lfile = SYS(2015)+'.tmp'
IF 0 = URLDownloadToFile(0, "http://www.cualesmiip.com/es_index.html", lfile, 0, 0)
ipstr = FILETOSTR(lfile)
lip = SUBSTR(ipstr,(AT('Tu IP real es ',ipstr,1)+LEN('Tu IP real es ')),15)
ERASE lfile
RETURN lip
ELSE
RETURN ""ENDIF
endfunc
Valora esta pregunta
1
