放假了,手头还有些工作要做,又不愿去办公室,于是开启了远程桌面,但又怕网络掉线重连后IP变了,所以编写了这个VBS脚本程序。这个程序主要实现了获得本地外网地址(如果有路由器,则为路由器外网地址)、自动下载并注册MSWinsck.ocx控件、使用WinSock发送邮件、实现BASE64编码、开启远程桌面服务、脚本后台定时运行等功能,感兴趣的朋友可以参见代码,注释写得比较详细,在此就不一一描述了。
此外,还有一点感言,虽然眼下.NET大行其道,VB6已日渐势微,连带VBS也被人弃如蔽履,但我总以为,基于COM核心的VB,在一些工具性软件开发上,有着其不可比拟的优势。
使用说明:
一、用记事本新建一个文本,复制以下代码。
二、修改邮件为朋友自己的邮箱,然后另存为GetIP.VBS文件。
三、双击GetIP.VBS文件,即可在后台运行,再次双击后,将结束运行。
四、其它:本代码只对新浪邮箱进行了测试,其它邮箱朋友们自行修改测试。