Avisador de ip

[Placebo]

Bueno quizad esto sea una chorrada pero es uno de mis primeros programas que utiliza el inet en VB. De momento te envia la ip a una dirección de mail pero mas tarde añadiré mas funciones.

Código [Seleccionar] Expandir


Private Sub Command2_Click()
strURL = Inet1.OpenURL("xxxxxxx")'aqui ponerla ruta del ip.php
strIP = strURL
Text1.Text = strIP
acorreo = "xxxxxxx@xxxxxx.xxx" 'poner mail no hotmail mejor 'gmail
asunto = "ipjejeje2"
mensaje = (strIP)
mensaje = mensaje & "ok"
nombre = "xxxxx" 'tu nombre(o el que quieras)
decorreo = "xxxxx"' lo que kieras
pagina = "xxxxxxxxxx?"' poner archivo php que envia el mail
pagina = pagina & "acorreo=" & acorreo
pagina = pagina & "&asunto=" & asunto
pagina = pagina & "&mensaje=" & mensaje
pagina = pagina & "&nombre=" & nombre
pagina = pagina & "&decorreo=" & decorreo
Text2.Text = (strIP)
WebBrowser1.Navigate pagina
Text1.Text = pagina
End Sub

Para la ip crea este archivo:
ip.php

Código [Seleccionar] Expandir


<?php
if($_SERVER["HTTP_X_FORWARDED_FOR"]){
echo "La Ip de tu proxy es:{$_SERVER["REMOTE_ADDR"]}<br>";
echo "La IP es:{$_SERVER["HTTP_X_FORWARDED_FOR"]}";
}else{
echo "La IP es:{$_SERVER["REMOTE_ADDR"]}<br>";
}
?>
Y para el archivo en php que manda el mail pon:
mail.php

Código [Seleccionar] Expandir

<?php
$datos=$_GET;
$acorreo=$datos['acorreo'];
$asunto=$datos['asunto'];
$mensaje=$datos['mensaje'];
$nombre=$datos['nombre'];
$decorreo=$datos['decorreo'];
mail($acorreo,$asunto,$mensaje,"From: $nombre <$decorreo>");
echo "Correo enviado.";
?>
Pd luego si quieren quitan los botones o lo que quieran.
Mi problema el albergar el mail.php pero funciona.
Me ha ayudado mucho la página www.trucosxp.tk y este foro.

[Hans el Topo]

para esto hace falta tener un servidor de correo en el ordenador...xD

no sería mejor que lo guardase en un fichero/base datos en tu pag y listo?

[Placebo]

Ok gracias por el post lo miraré.