Muy buenas foro, ¿alguien podría decirme como puedo coger la IP Pública de mi ADSL?
Un Saludo.
FiveTech Software tech support forums
www.FiveTechSoft.com
Saber IP Pública
5 posts • Page 1 of 1
Saber IP Pública
by softruz » Thu Oct 29, 2009 6:48 pm
- softruz
- Posts: 485
- Joined: Fri Feb 09, 2007 10:34 am
Re: Saber IP Pública
by jrestojeda » Thu Oct 29, 2009 9:30 pm
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
-
jrestojeda - Posts: 583
- Joined: Wed Jul 04, 2007 3:51 pm
- Location: Buenos Aires - Argentina
Re: Saber IP Pública
by softruz » Fri Oct 30, 2009 8:14 am
Perdona no se si me he explicado bien, necesito adquirir la IP Pública en FiveWin, necesito algún ejemplo que lo haga.
¿ Alguien tiene algo ?
Un Saludo.
¿ Alguien tiene algo ?
Un Saludo.
- softruz
- Posts: 485
- Joined: Fri Feb 09, 2007 10:34 am
Re: Saber IP Pública
by alvaro533 » Fri Oct 30, 2009 1:04 pm
Mas o menos así (no lo he probado)
local oWebcliente, cad
oWebClient := TWebClient():New()
oWebClient:Connect( "www.cualesmiip.com" )
oWebClient:bOnRead = { | cData | cad += cData }
oWebClient:oSocket:SendData( "GET http://www.cualesmiip.com/index.html HTTP/1.0" + CRLF +"Host: http://www.cualesmiip.com"+ CRLF +CRLF )
Obtienes en la variable "cad" el código de la web, como aquí abajo. Luego puedes buscar la ip dentro de la variable de texto "cad", después de "Tu IP real es "
Alvaro
si no funciona con http://www.cualesmiip.com puedes probar otra web.
local oWebcliente, cad
oWebClient := TWebClient():New()
oWebClient:Connect( "www.cualesmiip.com" )
oWebClient:bOnRead = { | cData | cad += cData }
oWebClient:oSocket:SendData( "GET http://www.cualesmiip.com/index.html HTTP/1.0" + CRLF +"Host: http://www.cualesmiip.com"+ CRLF +CRLF )
Obtienes en la variable "cad" el código de la web, como aquí abajo. Luego puedes buscar la ip dentro de la variable de texto "cad", después de "Tu IP real es "
Alvaro
si no funciona con http://www.cualesmiip.com puedes probar otra web.
- Code: Select all Expand view
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es" lang="es">
<head>
<title>Cual es mi IP, Mi IP, Saber Mi IP, Conocer mi IP</title>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="msvalidate.01" content="2925" />
<META name="y_key" content="baf5f90a406" >
<meta name="verify-v1" content="QVdIk/RiKH1mh8gjjPwhavn5seCI=" />
<meta name="description" content=" Mi eLibro patrocina Cual es mi IP Tu IP real es 81.172.72.42 No navegas a través de proxy Noticias Conjoon - Plataforma de comunicación de código abierto ..." />
<meta name="keywords" content="puertos, abrir, router, firmware, actualizar, dirección, wireless, facebook, routers, thomson, robotics, actualización, como, comtrend" />
<link rel="stylesheet" type="text/css" href="/css/cualesmiip.css">
<script type="text/javascript" src="/js/swfobject.js"></script>
- alvaro533
- Posts: 206
- Joined: Sat Apr 19, 2008 10:28 pm
- Location: Madrid, España
Re: Saber IP Pública
by softruz » Fri Oct 30, 2009 4:39 pm
Antetodo muchas gracias, pero la esta linea estaba mal el GET funciona así:
oWebClient:oSocket:SendData( "GET /index.html HTTP/1.0" + CRLF +"Host: www.cualesmiip.com"+ CRLF +CRLF )
Un Saludo.
oWebClient:oSocket:SendData( "GET /index.html HTTP/1.0" + CRLF +"Host: www.cualesmiip.com"+ CRLF +CRLF )
Un Saludo.
- softruz
- Posts: 485
- Joined: Fri Feb 09, 2007 10:34 am
5 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: No registered users and 25 guests