(msn机器人)3分钟学会使用程式发送msn讯息, VB6.0篇(五)

3分钟学会使用程式发送msn讯息, VB6.0篇(五)
http://rd-program.blogspot.com/2008/11/3msn-vb60.html
以下文章也可参考: http://rd-program.blogspot.com/2008/11/3msn-vb60.html

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讯息控制开发套件程式介面说明书


关于作者: 网站小编

码农网专注IT技术教程资源分享平台,学习资源下载网站,58码农网包含计算机技术、网站程序源码下载、编程技术论坛、互联网资源下载等产品服务,提供原创、优质、完整内容的专业码农交流分享平台。

热门文章