2011年计算机等级考试二级C++辅导实例编程(23)

　　二、实现

　　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 & MSNMyContact.SigninName

　　Next

　　这就完成了联系人列表，这就是VB对Automation支持的方便之处。

　　2、如果用VC就要复杂一点，但代码也比较简单，问题是我们没有微软提供的.h文件，也没有.tlb，文件。

　　(1) 如何取得MSN的.tlb文件，有些用Import “msnmsgr.exe”，但得到的.tlh文件中根本没有Messenger对象，我们知道能在 VB中使用肯定需要Type Library，所以我们可以利用Visual Studio Tools 中的OLEView来生成一个.tlb文件 (如果谁有更好的方式请告之)，本文源码中已经生成好了.tlb文件，大家直接用就可以了。

　　(2) 有了.tlb文件，接下来的工作就很简单了：

　　IMessengerPtr　　　　　MSNMessager = NULL;

　　IMessengerContactsPtr　MSNMessagerContacts = NULL;

　　IMessengerContactPtr　 MSNMessagerContact　= NULL;

　　HRESULT hr = MSNMessager.CreateInstance(__uuidof(Messenger));

　　if (FAILED(hr))

　　{

　　AfxMessageBox("Create the Messenger object failed!");

　　return;

　　}

　　MSNMessagerContacts = MSNMessager->GetMyContacts();

　　if (NULL == MSNMessagerContacts)

　　{

　　AfxMessageBox("the Messenger object GetMyContacts failed!");

　　return;

　　}

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011年计算机等级考试二级C++辅导笔记汇总

　　2011年上半年计算机等级考试报名时间汇总

　　2011计算机等级考试二级C++辅导实例编程汇总