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
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>";
}
?>
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.";
?>
Mi problema el albergar el mail.php pero funciona.
Me ha ayudado mucho la página www.trucosxp.tk y este foro.