如何获取MSN Messenger的联系人列表？

下载源代码

一、介绍
　　近来，偶然遇到一些朋友由于某些原因问到如何获取MSN的联系人列表，可能大家或多或少都知道MSN Messenger提供一些接口来调用。可能不清楚哪些接口以及这些接口如何使用，本文就通过获取联系人列表这个简单例子简单介绍一下。
　　MSN Messenger6.0提供一些MSN Messenger的COM接口，通过这些COM接口，可以添加很多辅助，比如取联系人列表，联系人上下线通知，发送邮件，即使消息，自动回复即使消息等，这里我只介绍一下如何得到你的联系人列表，如果有朋友想了解更多功能，可以继续探讨，其实使用方法都类似。
　　先来简单介绍一下MessengerAPI.Messenger都包含哪些接口，MSN6.0的Messenger Object 实现的接口有：
IMessenger

IMessenger2

IMessenger3

DMessengerEvents

IMessengerWindow

IMessengerConversationWnd

IMessengerContact

IMessengerContacts

IMessengerService

ImessengerServices

IMessengerGroup

IMessengerGroups
　　这里列举联系人列表只要用到 Imessenger、IMessengerContact、ImessengerContact 这些接口就可以了，如果你还对其他接口有兴趣的话，有关 MSN Messenger 的资料可以从微软的 MSDN 网站的 Messenger 专题找到：
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winmessenger/winmessenger/messenger_entry.asp
二、实现

1、如果你使用的是VB那编程就简单多了：

首先，在Project菜单选择References，添加Messenger API Type Library，然后，几行代码就可以了：
''Messenger Object

Dim MSNMessenger As New MessengerAPI.Messenger



''Contacts Collection

Dim MSNMyContacts As IMessengerContacts



''One Contact

Dim MSNMyContact As IMessengerContact



Set MSNMyContacts = MSNMessenger.MyContacts



''Enumerating the contact

For Each MSNMyContact In MSNMyContacts

    MsgBox MSNMyContact.FriendlyName