用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. 用VBS獲取圖片分辨率
  2. VBS轉EXE工具:ExeScript
  3. Python牛刀小試
  4. VBS的一個BUG
  5. 文件夾拒絕訪問且文件夾顯示為空的解決方法

6 條評論 發表在“用VBS發送短信(飛信)”上

  1. prophetk說道:

    很少看見你啊 最近 這個程序很好 簡單實用 收下了

  2. Bole說道:

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

  3. daley說道:

    向自己發送能成功接收到信息,但是本人資質有限,不懂轉寫發送他人的方法,請Demon’s 幫忙解決,在線等候回複。感謝!!

  4. still說道:

    怎麼用?

  5. banana說道:

    提示成功,收不到,請Demon’s幫助,謝謝

  6. home說道:

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

留下回複