Buenos dias señores,
Como hago para detectar el IP FIXO de un compturadora??
Gracias,
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Detectar IP FIXO...
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
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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Karinha, checa este codigo...
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
Obrigado/Gracias amigo.
Vou testar depois.
Abraços.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341