Visual Basic中調(diào)用MSN API函數(shù)

      了解這方面內(nèi)容的起因是早上有位朋友讓我看一段關(guān)于MSN開發(fā)程序，現(xiàn)在無法運(yùn)行，我打開工程發(fā)現(xiàn)是針對4.7編寫的，而他的計算機(jī)安裝的6.2，因為我也用6.2所以我在VB中查看了一下，發(fā)現(xiàn)是缺少Messenger Type Library。但是多了Messenger API Type Library，可能是作為Messenger Type Library的替代，但它的功能不如以前的Messenger Type Library 全面，起碼我現(xiàn)在就發(fā)現(xiàn)它不能修改本地的MyFriendlyName，不明白為什么把它弄成只讀的，MyStatus是可寫。
　　下面簡單用VB具體說明怎么調(diào)用它：
　　首先當(dāng)然是引用對象Messenger API Type Library了。
　　然后聲明一個對象MessengerAPI.Messenger。

Private WithEvents oMSN As MessengerAPI.Messenger

　　我們需要的東西都在這里邊,簡單介紹幾個：
　　MyContacts：IMessengerContacts 對象
　　MyFriendlyName： 當(dāng)前的昵稱
　　MyGroups： IMessengerGroupss對象
　　MyPhoneNumber：返回電話號碼
　　MyProperty：現(xiàn)在沒有使用
　　MyServiceId ：返回Service id應(yīng)該是{9b017612-c9f1-11d2-8d9f-0000f875c541}]
　　MyServiceName：返回Service name應(yīng)該是 .NET Messenger Service
　　MySigninName：返回當(dāng)前的簽名，eMail地址
　　MyStatus：返回當(dāng)前狀態(tài)，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 　　’已經(jīng)登陸 　End If End Sub

　　獲取全部用戶列表：
　　通過Messenger的MyContacts對象（它是只讀的）
　　它其實就是一個IMessengerContacts對象，而IMessengerContacts類又是IMessengerContact類的一個集合，在IMessengerContact中保存聯(lián)系人信息。
　　因此可以這樣遍歷聯(lián)系人。

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

　　getStatusDesc函數(shù)用來返回狀態(tài)文本描述:

Private Function getStatusDesc(eStatus As MISTATUS) As String 　Select Case eStatus 　　Case MISTATUS_AWAY 　　　getStatusDesc = "走開了" 　　Case MISTATUS_BE_RIGHT_BACK 　　　getStatusDesc = "馬上回來" 　　Case MISTATUS_BUSY 　　　getStatusDesc = "在忙碌" 　　Case MISTATUS_IDLE 　　　getStatusDesc = "在發(fā)呆" 　　Case MISTATUS_INVISIBLE 　　　getStatusDesc = "隱身" 　　Case MISTATUS_LOCAL_CONNECTING_TO_SERVER 　　　getStatusDesc = "正在鏈接服務(wù)器" 　　Case MISTATUS_LOCAL_DISCONNECTING_FROM_SERVER 　　　getStatusDesc = "從服務(wù)器斷開" 　　Case MISTATUS_LOCAL_FINDING_SERVER 　　　getStatusDesc = "正在搜索服務(wù)器" 　　Case MISTATUS_LOCAL_SYNCHRONIZING_WITH_SERVER 　　　getStatusDesc = "正在和服務(wù)器同步" 　　Case MISTATUS_OFFLINE 　　　getStatusDesc = "離線" 　　Case MISTATUS_ON_THE_PHONE 　　　getStatusDesc = "在接電話" 　　Case MISTATUS_ONLINE 　　　getStatusDesc = "在線" 　　Case MISTATUS_OUT_TO_LUNCH 　　　getStatusDesc = "外出就餐" 　　Case MISTATUS_UNKNOWN 　　　getStatusDesc = "未知" 　End Select End Function

　　獲取組列表：
　　方法同獲取聯(lián)系人，只是換了一下對象.

Dim oGroups As IMessengerGroups Dim oGroup As IMessengerGroup Set oGroups = oMSN.MyGroups For Each oGroup In oGroups 　List1.AddItem oGroup.Name Next

　　下面就是將組和用戶關(guān)聯(lián)起來：
　　明白上面的方法，這個很容易實現(xiàn)，IMessengerGroup類的對象中含有IMessengerContact類對象的集合。

Dim oGroups As IMessengerGroups Dim oGroup As IMessengerGroup Dim oContacts As IMessengerContacts Dim oContact As IMessengerContact Set oGroups = oMSN.MyGroups For Each oGroup In oGroups Set oContacts = oGroup.Contacts For Each oContact In oContacts List1.AddItem oGroup.Name & " " & oContact.SigninName Next Next

　　再介紹一下服務(wù)：
　　也是用樣道理：

Dim oServices As IMessengerServices Dim oService As IMessengerService Set oServices = oMSN.Services Set oService = oServices.PrimaryService MsgBox oService.MyFriendlyName & getStatusDesc(oService.MyStatus) & oService.MySigninName & oService.ServiceId & oService.ServiceName

　　我現(xiàn)在怎么覺得PrimaryService的意義不大，IMessengerServices中就一個PrimaryService可用，還是只讀的。
　　當(dāng)然各個對象可能還有一些相應(yīng)的方法就不多介紹，我介紹的這些通過對象瀏覽器就可以看明白，其中還有對象或成員我現(xiàn)在還沒學(xué)會使用，現(xiàn)在只是大致了解一下，我希望看到這篇文章的人也有了一點初步了解。