Imprimir Página - Avisador de ip

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:

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:

<?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:

<?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 (http://www.trucosxp.tk) y este foro.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Placebo en 11 Agosto 2006, 12:54 pm