Thinkai's Blog

Autohoutkey|Python|php|aardio|VOIP|IT 爱好者

正在浏览分类 检测IP

总共找到 1 篇

php文档:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>您的IP地址</title>
</head>

<body>

<?php
error_reporting (E_ERROR | E_WARNING | E_PARSE);
if($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"]){
$ip = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
}
elseif($HTTP_SERVER_VARS["HTTP_CLIENT_IP"]){
$ip = $HTTP_SERVER_VARS["HTTP_CLIENT_IP"];
}
elseif ($HTTP_SERVER_VARS["REMOTE_ADDR"]){
$ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
}
elseif (getenv("HTTP_X_FORWARDED_FOR")){
$ip = getenv("HTTP_X_FORWARDED_FOR");
}
elseif (getenv("HTTP_CLIENT_IP")){
$ip = getenv("HTTP_CLIENT_IP");
}
elseif (getenv("REMOTE_ADDR")){
$ip = getenv("REMOTE_ADDR");
}
else{
$ip = "Unknown";
}
echo $ip;
?>

</body>
</html>


脚本(采用VBS发送):

Loop
{
URLDownloadToFile, http://thinkai.net/, ip.html
FileReadLine, ip, ip.html, 10
StringSplit, var, ip, `,
ip = %var1%
if ip <> %old%
	{
	old = %ip%
	FileDelete, mail.vbs
	fileappend, NameSpace = `"http://schemas.microsoft.com/cdo/configuration/`"`n, mail.vbs
	fileappend, Set Email = CreateObject(`"CDO.Message`")`n, mail.vbs
	fileappend, Email.From = `"xxxxx@163.com`"    `n, mail.vbs
	fileappend, Email.To = `"xxxxx@qq.com`"  `n, mail.vbs
	fileappend, Email.Subject = `"IP变动邮件`"`n, mail.vbs
	fileappend, Email.Htmlbody = `"IP:%ip%`"`n, mail.vbs
	fileappend, With Email.Configuration.Fields`n, mail.vbs
	fileappend, .Item(NameSpace&`"sendusing`") = 2`n, mail.vbs
	fileappend, .Item(NameSpace&`"smtpserver`") = `"smtp.163.com`" 'SMTP服务器地址`n, mail.vbs
	fileappend, .Item(NameSpace&`"smtpserverport`") = 25`n, mail.vbs
	fileappend, .Item(NameSpace&`"smtpauthenticate`") = 1`n, mail.vbs
	fileappend, .Item(NameSpace&`"sendusername`") = `"xxxxx`" '邮箱账号`n, mail.vbs
	fileappend, .Item(NameSpace&`"sendpassword`") = `"xxxxx`"'邮箱密码`n, mail.vbs
	fileappend, .update`n, mail.vbs
	fileappend, End With`n, mail.vbs
	fileappend, Email.Send`n, mail.vbs
	run, mail.vbs
	}
Sleep, 60000
}



友情链接:Autohotkey中文论坛Autohotkey中文帮助Autohotkey官网我的B站直播间如若生涯一场梦博客联系作者免GooglePlay APK下载

 主题设计 • skyfrit.com  Thinkai's Blog | 保留所有权利

49 queries in 0.999 seconds |