二、實(shí)現(xiàn)

　　1、如果你使用的是VB那編程就簡(jiǎn)單多了：

　　首先，在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

　　這就完成了聯(lián)系人列表，這就是VB對(duì)Automation支持的方便之處。

　　2、如果用VC就要復(fù)雜一點(diǎn)，但代碼也比較簡(jiǎn)單，問(wèn)題是我們沒(méi)有微軟提供的.h文件，也沒(méi)有.tlb，文件。

　　(1) 如何取得MSN的.tlb文件，有些用Import “msnmsgr.exe”，但得到的.tlh文件中根本沒(méi)有Messenger對(duì)象，我們知道能在 VB中使用肯定需要Type Library，所以我們可以利用Visual Studio Tools 中的OLEView來(lái)生成一個(gè).tlb文件 (如果誰(shuí)有更好的方式請(qǐng)告之)，本文源碼中已經(jīng)生成好了.tlb文件，大家直接用就可以了。

　　(2) 有了.tlb文件，接下來(lái)的工作就很簡(jiǎn)單了：

　　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月計(jì)算機(jī)等級(jí)考試成績(jī)查詢(xún)時(shí)間匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)C++輔導(dǎo)筆記匯總

　　2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)C++輔導(dǎo)實(shí)例編程匯總