用VBS发送短信（飞信）

无意中看到百度 VBS 贴吧里一个标题为《无私的奉献出我的用飞信免费发短信接口》的帖子。光看标题就已经觉得很牛逼了，听说过可以用 PHP 发送短信（飞信），也使用过 Python  实现的 PyFetion 发送过短信（飞信）。我也看过对应的 PHP 和 Python 源码，实现起来还是比较复杂的，难道可以用 VBS 来实现？

看到代码后更觉得牛逼，竟然是使用 10086.cn （移动官网）上面的接口来实现的，飞信官方难道已经公布飞信接口了？若不是，难道是代码的作者自己发现的接口？那也太强大了！Google 了一下才发现，哦，都不是，而是 WAP 飞信。像我这种还在用着 2005 年生产的只能打电话发短信的手机的生活在石器时代的人，当然不知道 WAP 飞信的存在。我现在连短信都很少发，更不用说飞信了，我已经不记得上一次登陆飞信是什么时候。

m = "xxxyyyyzzzz"  '手机号码
pass = "12345678"  '登陆密码
msg = "Hello world" '飞信内容
Const online = 1 '在线
Const busy = 2   '忙碌
Const away = 3   '离开
Const hidden = 4 '隐身
Dim http
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "POST", "http://f.10086.cn/im/login/inputpasssubmit1.action", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send "m=" & m & "&pass=" & pass & "&loginstatus=" & hidden '隐身登陆
wml = http.responseText
If InStr(wml, "密码输入错误") Then
    WScript.Echo "对不起,密码输入错误,请重新输入!"
    WScript.Quit '登陆失败，退出程序
End If
http.open "POST", "http://f.10086.cn/im/user/sendMsgToMyselfs.action", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send "msg=" & msg '给自己的手机发短信
wml = http.responseText
If InStr(wml, "发送成功") Then WScript.Echo "发送成功"
http.open "GET", "http://f.10086.cn/im/index/logoutsubmit.action", False
http.send '注销登陆

这里只是一个示例，至于怎么给别人发短信和飞信，自己琢磨吧。本来想写一个像 PyFetion 那样的 VbsFetion 的，但是想想没什么意义，这样还不如直接装个飞信 PC 客户端，于是就不折腾的，喜欢折腾的同学可以继续。

上面的程序可以很轻松地改写成其他语言，C、C++、C#、Java、JavaScript、Python、Perl、Ruby、Lua、PHP……用这个接口可以做很多有趣的事情，不是吗？

随机文章:

1. sha1sum for windows
2. JEB-2.2.7打开一闪而退的解决方法
3. 用VBS下载国家地理每日一图
4. 远程桌面连接用户名密码错误的解决方法
5. OpenTextFile与Unicode

这篇文章发布于 2011年06月10日，星期五，23:49，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。