Bueno, como dice el titulo con el siguiente metodo puedes obtener tu Ip externa como si del DynDNS se tratara. Lo primero sera subir el fichero *.PHP a un servidor que sea compatible con el PHP.
PHP:/* Esta es una pequeña funcion que devuleve la IP
Actual siempre y cuando se navege desde el navegador 'karcrack'
*/
<?PHP
$Nav = $_SERVER['HTTP_USER_AGENT'];
if ($Nav == "karcrack")
{
echo $_SERVER['REMOTE_ADDR'];
}
else
{
echo '127.0.0.1';
}
?>
Esta funcion comprueba que el navegador con el que se navega sea 'karcrack', por supuesto esto se puede modificar
VB:'Esto se pone siempre xD
Option Explicit
'Se declara el Objecto.
Public WinHttp As Object
'Se declaran las constantes para la configuracion del WinHttp
Public Const WinHttpRequestOption_EnableHttp1_1 As Long = 17
Public Const WinHttpRequestOption_EnableHttpsToHttpRedirects As Long = 12
Public Const WinHttpRequestOption_EnableRedirects As Long = 6
Public Const WinHttpRequestOption_UserAgentString As Long = 0
Public Const HTTPREQUEST_PROXYSETTING_DIRECT As Long = 1
'Esta funcion configura el WinHttp con las opciones mas habituales...
Public Sub SetHTTPLib()
'Se vacia el objecto.
Set WinHttp = Nothing
'Se carga el objecto
Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
With WinHttp
'Permite la version del protocolo http 1.1
.Option(WinHttpRequestOption_EnableHttp1_1) = True
'Permite la redireccion de https:// a http://
.Option(WinHttpRequestOption_EnableHttpsToHttpRedirects) = True
'Permite las demas redirecciones
.Option(WinHttpRequestOption_EnableRedirects) = True
'Modifica el Navegador, para que nuestro script PHP sepa que somos notros :D
.Option(WinHttpRequestOption_UserAgentString) = "karcrack"
'Desactiva el proxy.
.SetProxy HTTPREQUEST_PROXYSETTING_DIRECT
End With
End Sub
Public Function ObIP(ByVal URL As String) As String
Call SetHTTPLib
With WinHttp
'Se conecta.
.Open "GET", URL
'Pide la IP
.Send
'La obtiene
ObIP = .ResponseText
End With
End Function
Bueno, aqui esta todo bien explicado... la funcion se llama de esta forma:
msgbox ObIp ("URL_DONDE_ESTA_EL_SCRIPT_EN_PHP")
Mostrar Mensajes
Muy amable 