FoxPro/Visual FoxPro - Cual es mi IP Publica

   
Vista:

Cual es mi IP Publica

Publicado por DALSOM (609 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.

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder
Imágen de perfil de xve

Cual es mi IP Publica

Publicado por xve (74 intervenciones) el 03/11/2013 09:31:43
Muchas gracias Dalsom por compartir esta información!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cual es mi IP Publica

Publicado por Javier Yoris javiyoris@hotmail.com (1 intervención) el 10/04/2014 21:38:31
Muchas Gracias... me vino de 10
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cual es mi IP Publica

Publicado por WILLIAM HERNANDEZ (1 intervención) el 02/03/2015 16:05:46
Muy util, podemos diseñar hasta nuestro propio Dyndns

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar