跳到主要內容

3分鐘學會使用程式發送msn訊息, VB6.0篇(五)





<imoo msn機器人測試平台,將於下週三(2009.6.24)取消所有未經申請試用的認證資訊,詳見相關資訊>


msnSDK訊息控制開發套件 同時支援MSN/Yahoo即時通 訊息雙向傳遞

VB6.0 的範例我們使用ADO介面來處理,其他語言也可以這樣做,可參考文件(文末提供下載處),另外;下面的程式碼重要的部份只有參數不同,其他大同小異,可參考紅字部分


ps.也請參考 msnSDK的使用流程
================================



Dim RS As New ADODB.Recordset
Dim URL As String
Dim Session As String '授權碼

'取得API 的使用權利
Private Sub GETSPID_Click()
Dim RET As String
On Error GoTo ErrHandle

'API 連接位置
URL = "http://59.120.234.84:8082/msnSDK/msn_cgi-win32"
'apiblogt5/msnsdkt 取得API 使用權限的帳號/密碼

RS.Open URL & "?FUNC=GETSPID&USERID=apiblogt5&PASSWD=msnsdkt&RETTYPE=ADO"

Do While Not (RS.EOF)

'查詢回應
'RS(0) 0 認證失敗 1認證成功
'RS(1) 失敗傳回 失敗原因 / 成功傳回 SESSION
'
If (RS(0) = 0) Then
MsgBox "認證失敗,無法使用API"
Else
'取得認證授權使用API
'授權碼
Session = RS(1)
End If
RS.MoveNext
Loop
RS.Close
Exit Sub
ErrHandle:
MsgBox "無法連接伺服器,或是參數不正確"

End Sub

'邀請聯絡人
Private Sub REGISTER_Click()

Dim RET As String
On Error GoTo ErrHandle

'API 連接位置
URL = "http://59.120.234.84:8082/msnSDK/msn_cgi-win32"

'邀請聯絡人 XXXXXXXX@hotmail.com 請填正確的聯絡人,執行此SUB 後
'msnSDK 會邀請這個人加入聯絡人,必須加入聯絡人後才能發送訊息
'session 由GETSPID 所取得的session

RS.Open URL & "?UIDS=XXXXXXXX@hotmail.com&FUNC=REGISTER&RETTYPE=ADO&SESSION=" &
Session

Do While Not (RS.EOF)

'查詢回應
'RS(0) 0 邀請失敗 1邀請成功
'RS(1) 失敗傳回 失敗原因 / 成功訊息
'
If (RS(0) = 0) Then
MsgBox "邀請失敗"
Else
MsgBox RS(1)
End If
RS.MoveNext
Loop
RS.Close
Exit Sub
ErrHandle:
MsgBox "無法連接伺服器,或是參數不正確"

End Sub

'發送MSN/YAHOO即時通訊息
Private Sub SENDMSG_Click()
Dim RET As String
On Error GoTo ErrHandle

'API 連接位置
URL = "http://59.120.234.84:8082/msnSDK/msn_cgi-win32"

'傳送訊息(MSG)給 XXXXXXXX@hotmail.com(必須是此聯絡人已接受邀請)
'flags 1 當聯絡人不在線上則依據系統設定處理(系統設定為傳送離線訊息) 0 當連絡人不在線上,則不送任何訊息
'encoding 標示目前傳送訊息的中文編碼
'rettype 設定為使用ADO
'session 由GETSPID 所取得的session

RS.Open URL & "?UIDS=XXXXXXXX@hotmail.com&MSG=測試&flags=0&FUNC=SENDMSG&ENCODING=BIG5&RETTYPE=ADO&SESSION=" & Session

Do While Not (RS.EOF)

'查詢回應
'RS(0) 0 傳送失敗 1傳送成功
'RS(1) 失敗傳回 失敗原因 / 成功訊息
'
If (RS(0) = 0) Then
MsgBox "傳送失敗"
Else
MsgBox RS(1)
End If
RS.MoveNext
Loop
RS.Close
Exit Sub
ErrHandle:
MsgBox "無法連接伺服器,或是參數不正確"
End Sub

其他更詳細的參數可以參考msnSDK訊息控制開發套件程式介面說明書

留言

Li Scooter寫道…
請問一下有VB6.0的版本,是否會有ASP的版本,這真的很讓人期待呢?
薛共和寫道…
msnSDK本身提供ADO/CGI/SOAP 三種程式介面,所以asp 當然也能支援,現在要找到不支援使用這些介面的程式語言,還真不容易;等一下我就會把asp的版本貼上,雖然太久沒碰asp,但是基本上寫出一個能work 的程式應該不困難,等下提供給您參考,也歡迎您使用其他使用實作看看...如果有成果也歡迎您提供給我,我會把您的大作po 在這裡
阿立寫道…
請問有比較完整的製作方法嗎?

我不太會用
薛共和寫道…
您好~~

如果您有業務需求請洽 service@imoo.tw , 我們會有專人與您聯繫,或是提供您技術窗口諮詢

Luke.

這個網誌中的熱門文章

怎麼在網路上註冊成為youbike 會員?

新版官網請參考  怎麼在網路上註冊成為youbike 會員?   http://rd-program.blogspot.tw/2014/04/youbike.html 網路的申請步驟類似,下面將以網路申請來說明申請步驟:申請的時候需要準備悠遊卡、或晶片信用卡,以及手機門號。 1. 請先登入ubike網址: http://www.youbike.com.tw/ ,登入後選擇【正體中文】,要選英文也可以啦! 2. 在螢幕的右上角選擇【註冊】。 3.點擊【開始註冊】。 4. 點擊【同意】。(沒有其他選擇?) 5. 輸入您的【手機號碼】以及【認證碼】,然後按【送出】。這時候手機會收到ubike傳來的簡訊,通之驗證碼,有四個阿拉伯數字。 6. 輸入帳號(手機號碼)、驗證碼(ubike傳到手機的簡訊)、密碼,然後按【下一步】。 7. 還沒完成喔!這裡告訴你如何租車及還車的步驟。把螢幕拉到最下面,記得勾選【我已清楚瞭解租還車步驟】,然後按【下一步】。 8. 選擇悠遊卡或是晶片信用卡,然後輸入卡片號碼,卡片號碼請參卡畫面又下方的提示位置,請注意有些卡號可能已經模糊不清,可能無法輸入。每隻手機不只可以輸入一個卡號。 9. 填寫個人姓名及Email帳號,如果不想收到相關訊息就把前面的打勾取消。按【確認】按鈕。 10. 恭喜您註冊成功,可已開始使用YouBike了。

Youbike 線上註冊會員

Youbike 線上註冊會員 https://www.youbike.com.tw/cht/f61.html youbike sitemap   網站內容快速連結  場站地圖 場站列表 服務中心資訊 預計設站地點 媒體報導 活動情報 緊急通知 營運資訊 營運成果 關於YouBike 大事記 設備介紹 租還方式 費率說明 安全騎乘 分類列表 失物招領 YouBike協尋 加入會員 會員資料管理 YouBike電子報 騎乘記錄查詢 合作夥伴 友站連結 一般文件 APP 隱私權政策 連絡我們