注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

我們的MSN机器人秘密基地

/试用/合作/行销/代理 ( service@imoo.tw )

 
 
 

日志

 
 
关于我

imoo机器人服务主要提供企业主服务会员与吸收会员更加快速有效率的行销管道,透过msn的传播网络创造新型态的会员互动模式。再者imoo机器人拥有多样化的频道内容与分众化的联络人管理,能精准传达广告主的行销讯息,提供真正低成本高效率的广告服务。 聯繫資訊 : msnrobot@163.com

网易考拉推荐

輕鬆學會MSN机器人開發(vb6)  

2010-01-05 10:03:03|  分类: msn機器人程式範 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

<相關測試請至imoo msn机器人平台 申請測試  http://www.imoo.tw/c02.php 

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

2.請參考我們的應用實例 imoo msn機器人應用實例 http://www.imoo.tw/blog/?p=84

3.歡迎洽談 專案合作 / 客制 / 行銷 /經銷 / 代理 事宜,可聯絡(sonet.all@gmail.com)
===================================================

輕鬆學會MSN机器人開發(vb6) - imoo msn機器人 - 愛慕MSN机器人的秘密基地


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

以上為簡易說明,MSN机器人開發套件更詳盡的操控功能,可向 愛慕msn机器人申請測試,我們會提供
開發文件與範例供您參考,申請網址 http://www.imoo.tw/c02.php
  评论这张
 
阅读(181)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017