鱼_鱼

转载自: https://bbs.et8.net/bbs/showthread.php?p=10723733&posted=1#post10723733

此帖仅针对移动手机，至于联通的手机有没有短信通知功能，可以开通一些邮箱本身短信通知的功能，例如163邮箱的短信通知（就是不知道能不能短信得到一部分邮件内容），请大家自行研究或在本帖加以讨论吧

在此先感谢“甜蚂蚁”兄弟的原帖，脚本我就不写了，直接利用了“甜蚂蚁”兄弟的原脚本得到IP，只修改的最后发送短信的方式而已，因“一键飞信”现在收费 了，所以“甜蚂蚁”兄弟利用一键飞信通知IP的方式已经失效，特修改为利用移动139邮箱的免费短信通知功能得到开机IP。

“甜蚂蚁”老兄的原帖：
【原创】利用一键飞信实现开机自动短信通知指定号码
http://bbs.et8.net/bbs/showthread.php?t=998759

在运行本脚本前，需要你先安装命令行发送邮件程序：Febooti Command line email，该程序主要功能是直接从Windows命令提示符(DOS提示符)下发送EMAIL，能够使用命令控制各种参数，具体命令请安装后参见软件自 带帮助文件或到官方网站查看帮助。
程序可到这下载：
http://www.onlinedown.net/softdown/85494_2.htm

因涉及版权问题，请安装后自行注册，本版不予讨论注册问题。

脚本修改如下，建议编译成exe程序，达到加密的目的

@echo off&setlocal enabledelayedexpansion
echo On Error Resume next >checkip.vbs
echo Set oDOM=WScript.GetObject(“http://www.ip138.com/ip2city.asp”) >>checkip.vbs
echo WScript.sleep 2000 >>checkip.vbs
echo ip = Split(oDOM.documentElement.outerText) >>checkip.vbs
echo Set FSO = CreateObject(“Scripting.FileSystemObject”) >>checkip.vbs
echo Set SCF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(0),”ip.txt”),2,True) >>checkip.vbs
echo SCF.Write(ip(0)) >>checkip.vbs
echo SCF.Write(ip(1)) >>checkip.vbs
echo SCF.Close >>checkip.vbs
checkip.vbs
for /f “tokens=2 delims=[” %%i in (C:\Windows\ip.txt) do set “str=%%i”
del checkip.vbs
febootimail -CHARSET gb2312 -FROM 你的邮箱地址 -TO 你的移动139邮箱 -MSG “公司的电脑在%time:~0,5%开机，本次登录公网ip地址为[%str:~0%” -SUBJ “Test msg” -SERVER 邮箱smtp服务器 -USER 发送邮箱的地址 -PASS 发送邮箱的密码 -AUTH LOGIN

红色部分请按你的实际情况替换

参数-CHARSET gb2312 不要改变，不然收到的邮件是乱码

备注：
注册139邮箱后请自动开通免费短信通知并加以设置以便在短信内容可以直接看到邮件内容，具体请看139邮箱的帮助或大家一起讨论，我的很早前就开通了，具体怎么设置也忘记了，呵呵，好像默认是只接收邮件标题，自己看看吧;

smtp在每个邮箱的WEB页面的帮助里都能找到，gmail好像得打开smtp功能才好用，具体在设置里有
再要注意的一点就是：不同的邮箱，用来验证的用户名一般都包含邮箱域名，但极个别的是不含邮箱域名的，即不含@xxx.xx后面这部分