用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. 爱因斯坦带来的悖论
  2. VBS实现Unicode(UTF-16)转UTF-8
  3. VBS内置常量大全
  4. 用VBS屏蔽键盘和鼠标
  5. 禁用Windows系统的临时IPv6地址

6 条评论 发表在“用VBS发送短信(飞信)”上

  1. prophetk说道:

    很少看见你啊 最近 这个程序很好 简单实用 收下了

  2. Bole说道:

    提示发送成功!但收不到!!!

  3. daley说道:

    向自己发送能成功接收到信息,但是本人资质有限,不懂转写发送他人的方法,请Demon’s 帮忙解决,在线等候回复。感谢!!

  4. still说道:

    怎么用?

  5. banana说道:

    提示成功,收不到,请Demon’s帮助,谢谢

  6. home说道:

    收到短信但是不提示发送成功

留下回复