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訊息控制開發套件程式介面說明書

4 則留言:

Scott 提到...

請問一下有VB6.0的版本,是否會有ASP的版本,這真的很讓人期待呢?

喂~程式 提到...

msnSDK本身提供ADO/CGI/SOAP 三種程式介面,所以asp 當然也能支援,現在要找到不支援使用這些介面的程式語言,還真不容易;等一下我就會把asp的版本貼上,雖然太久沒碰asp,但是基本上寫出一個能work 的程式應該不困難,等下提供給您參考,也歡迎您使用其他使用實作看看...如果有成果也歡迎您提供給我,我會把您的大作po 在這裡

阿立 提到...

請問有比較完整的製作方法嗎?

我不太會用

MSN機器人 提到...

您好~~

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

Luke.