下面简单用VB距离说明怎么调用它:
首先当然是引用对象Messenger API Type Library了。
然后声明一个对象MessengerAPI.Messenger:
Private WithEvents oMSN As MessengerAPI.Messenger
我们需要的东西都在这里边,简单介绍几个:
MyContacts:IMessengerContacts 对象
MyFriendlyName: 当前的昵称
MyGroups: IMessengerGroupss对象
MyPhoneNumber:返回电话号码
MyProperty:现在没有使用
MyServiceId :返回Service id应该是{9b017612-c9f1-11d2-8d9f-0000f875c541}]
MyServiceName:返回Service name应该是 .NET Messenger Service
MySigninName:返回当前的签名,eMail地址
MyStatus:返回当前状态,MISTATUS枚举值
其实本地属性和通过PrimaryService得到的一样
做几个简单的演示:
首先是登陆演示,使用MessengerAPI.Messenger的 SignIn 或者AutoSignin方法:
Public Sub SignIn(ByVal bAuto As Boolean, Optional ByVal sSignInName As String, Optional ByVal sPassword As String)
On Error GoTo ErrorHandle
If bAuto = True Then
oMSN.AutoSignin
Else
ManualSignIn:
oMSN.SignIn 0, sSignInName, sPassword
End If
Exit Sub
ErrorHandle:
Dim MConstants As MSGRConstants
MConstants = err.Number
If MConstants = MSGR_E_FAIL Then
GoTo ManualSignIn
ElseIf MConstants = MSGR_E_ALREADY_LOGGED_ON Then
’已经登陆
End If
End Sub
获取全部用户列表:
通过Messenger的MyContacts对象(它是只读的)
它其实就是一个IMessengerContacts对象,而IMessengerContacts类又是IMessengerContact类的一个集合,在IMessengerContact中保存联系人信息。
因此可以这样遍历联系人。
Dim oContacts As IMessengerContacts
Dim oContact As IMessengerContact
Dim iCount As Integer
Dim i As Long
Set oContacts = oMSN.MyContacts
iCount = oContacts.Count
For i = 0 To iCount - 1
Set oContact = MsgrContacts.Item
List1.AddItem MsgrContact.FriendlyName &. vbTab &. "(" &. getStatusDesc(MsgrContact.Status) &. ")"
Next
相关文章
VB辅导:VB数据类型概述
VB辅导:VB导出的数学
ADO对象动态创建数据库和表
VB辅导:Dir()函数
VB中调用M 6.2API函数
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛