El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/
Código: Seleccionar todo
Function PublicIP()
LOCAL hData, cData
LOCAL cResponse := ""
WITH OBJECT TInternet():New()
IF :Open()
IF !Empty( hData := :OpenURL( "http://checkip.dyndns.org" ) )
WHILE :ReadFile( hData, @cData, 65536 )
cResponse += cData
ENDDO
:CloseURL( hData )
ENDIF
:Close()
ENDIF
END
Return allTrim( substr( substr( cResponse, rat( "<body>", cResponse ) + 26 ), 1, At( "<", substr( cResponse, rat( "<body>", cResponse ) + 26 ) ) - 1 ) )
Código: Seleccionar todo
/*
Autor : Albeiro Valencia
: IP externo
Fecha : 30/07/2018
Todos los derechos reservados
albeiroval@gmail.com
Se llama asi..
IpExterna:=IPPUBLIC()
*/
#include <stdio.h>
#include <urlmon.h>
#include <WinInet.h>
#include "hbapi.h"
#pragma comment(lib, "urlmon.lib")
//-----------------------------------//
char *GetIP();
bool IsLanOrModem();
//-----------------------------------//
HB_FUNC( IPPUBLIC )
{
char *pszChar = "";
strcpy( pszChar, GetIP() );
hb_retc( pszChar );
}
//-----------------------------------//
char *GetIP()
{
char szPath[256], szRead[128], szRet[256];
char szSite[] = "http://checkip.dyndns.org/Current IP Check.htm";
char *Token;
char *cRet;
memset(szPath,0,sizeof(szPath));
memset(szRet,0,sizeof(szRet));
GetTempPath(256, szPath);
strcat(szPath, "my_ip.txt");
if( URLDownloadToFile(0, szSite, szPath, 0, 0) == S_OK )
{
FILE *fIpHtm = fopen(szPath, "r");
if( fIpHtm )
{
fgets(szRead, 128, fIpHtm);
Token = strrchr(szRead, ':');
Token = strtok(Token, "<");
memcpy(szRead, Token + 2, sizeof(szRead));
strcpy(cRet, szRead);
return cRet;
}
else
{
return "Error.";
}
}
else
return "Error.";
}
//-----------------------------------//
HB_FUNC( ISLANCONEXION )
{
hb_retl( IsLanOrModem() );
}
//-----------------------------------//
bool IsLanOrModem()
{
DWORD result;
if (!InternetGetConnectedState(&result, 0))
return false;
return result & INTERNET_CONNECTION_LAN || result & INTERNET_CONNECTION_MODEM;
}
Código: Seleccionar todo
<?php
if ( !empty( $_SERVER[ 'HTTP_CLIENT_IP' ] ) )
echo $_SERVER[ 'HTTP_CLIENT_IP' ];
else if ( !empty( $_SERVER[ 'HTTP_X_FORWARDED_FOR' ] ) )
echo $_SERVER[‘HTTP_X_FORWARDED_FOR’];
else
echo $_SERVER[ 'REMOTE_ADDR' ];
?>