Buenos dias señores,
Como hago para detectar el IP FIXO de un compturadora??
Gracias,
Regards, saludos.
FiveTech Software tech support forums
www.FiveTechSoft.com
Detectar IP FIXO...
5 posts • Page 1 of 1
Detectar IP FIXO...
by karinha » Mon Nov 14, 2011 11:55 am
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7339
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
Re: Detectar IP FIXO...
by Manuel Valdenebro » Mon Nov 14, 2011 12:34 pm
karinha wrote:Como hago para detectar el IP FIXO de un compturadora??
Si te refieres a la IP de un ordenador, yo la calculo con ipconfig.
Un saludo
Manuel
Manuel
-
Manuel Valdenebro - Posts: 706
- Joined: Thu Oct 06, 2005 9:57 pm
- Location: Málaga-España
Re: Detectar IP FIXO...
by karinha » Mon Nov 14, 2011 1:02 pm
No Maestro, en algunos clientes los IP´s estan fixos, y cuando el programa intenta accionar la internet, no deja el programa continuar, porque el IP no és el mismo del MODEM de internet comprende?
Mismo asi, muchas gracias por la pronta respuesta.
Regards, saludos.
Mismo asi, muchas gracias por la pronta respuesta.
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7339
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
Re: Detectar IP FIXO...
by derpipu » Mon Nov 14, 2011 8:33 pm
Karinha, checa este codigo...
- Code: Select all Expand view
FUNCTION cLocalIp()
local cIp := ""
if WSaStartup() == 0
cIp := ServerIp()
WSaCleanUp()
endif
RETURN(cIp)
FUNCTION cPublicIP()
Local cBuffer, cRequest, cResponse, nBytes, pSocket
IF IsInternet()
INetInit()
pSocket := INetConnect( "checkip.dyndns.org", 80 )
IF INetErrorCode( pSocket ) <> 0
RETURN( "Socket error:" + INetErrorDesc( pSocket ) )
INetCleanUp()
QUIT
ENDIF
nBytes := INetSend( pSocket, "GET / HTTP/1.1" + CRLF + "Host: checkip.dyndns.org" + CRLF + "User-Agent: HTTP-Test-Program" + CRLF + CRLF )
cBuffer := Space(512)
cResponse:= ""
WHILE ( nBytes > 0 )
nBytes := INetRecv( pSocket, @cBuffer )
cResponse += Left( cBuffer, nBytes )
cBuffer := Space(512)
ENDDO
INetClose( pSocket )
INetCleanUp()
ELSE
RETURN("0.0.0.0")
ENDIF
RETURN( allTrim( substr( substr( cResponse, rat( "<body>", cResponse ) + 26 ), 1, At( "<", substr( cResponse, rat( "<body>", cResponse ) + 26 ) ) - 1 ) ) )
Luis Fernando Rubio Rubio
- derpipu
- Posts: 94
- Joined: Tue Mar 28, 2006 4:09 pm
- Location: Tequila, Jalisco Mexico
Re: Detectar IP FIXO...
by karinha » Fri Nov 18, 2011 1:05 pm
Obrigado/Gracias amigo.
Vou testar depois.
Abraços.
Vou testar depois.
Abraços.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7339
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
5 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: No registered users and 69 guests