QQ一直是國(guó)內(nèi)最令人矚目的及時(shí)通訊軟件，近6年的經(jīng)營(yíng)使其在IM市場(chǎng)有了"世界第一"名號(hào)。在國(guó)內(nèi)市場(chǎng)，QQ的市場(chǎng)占有率已經(jīng)超過(guò)了70%，用戶群龐大，本人就是騰訊QQ的一個(gè)用戶。不知QQ會(huì)員是否能夠消息群發(fā)，但我這個(gè)免費(fèi)用戶是享受不了這個(gè)服務(wù)的，給同事和朋友們發(fā)通知好辛苦啊。在網(wǎng)上Google了一下，找到幾個(gè)小軟件，可是消息后面又加個(gè)廣告尾巴。還是自己動(dòng)手吧：
如果要分析騰訊QQ協(xié)議來(lái)編寫發(fā)送QQ消息是很復(fù)雜的一件事情，那么，有沒(méi)有簡(jiǎn)單的辦法呢？答案是肯定的：有！
既然Windows使用消息循環(huán)來(lái)處理輸入信息，那么如果我們能夠用程序模擬產(chǎn)生"操作QQ時(shí)鼠標(biāo)和鍵盤操作所發(fā)出的消息" ，那么就應(yīng)該可以實(shí)現(xiàn)程序發(fā)送QQ消息，進(jìn)而批量發(fā)送QQ消息，即消息群發(fā)。
二、具體實(shí)現(xiàn)
QQ給某個(gè)人發(fā)送消息時(shí)，將創(chuàng)建如下圖所示的窗口（對(duì)話框窗口），我們發(fā)消息就是填寫消息內(nèi)容，然后點(diǎn)擊發(fā)送。要模擬QQ消息發(fā)送，我們就需要填寫消息內(nèi)容，然后模擬按鍵發(fā)送。
 |
第一步，找到聊天主窗口，該窗口的標(biāo)題是與*****聊天中，我們可以通過(guò)使用FindWindowEx函數(shù)來(lái)找到這個(gè)窗口。
第二步，找到輸入消息的控件并在里面填寫消息。注意：可能是騰訊公司為了安全，在窗口里又套了幾個(gè)窗口，如果有興趣，可以用微軟的工具SPY++自己看看。通過(guò)使用SPY++觀察，發(fā)現(xiàn)該控件是一個(gè)RichEdit類，位置如上圖所示，我們還是用 FindWindowEx函數(shù)來(lái)找到它，然后取得指針，通過(guò)指針往里面些數(shù)據(jù)。
 |
第三步，模擬鼠標(biāo)點(diǎn)發(fā)送按鈕的操作，可以通過(guò)取得該按鈕的指針，然后發(fā)送一個(gè)BM_CLICK消息就可以了。
通過(guò)程序模擬，實(shí)現(xiàn)的非常好。用VC6建立一個(gè)簡(jiǎn)單的對(duì)話框程序，添加一個(gè)按鈕（改Caption值為發(fā)送），為該按鈕填加以下執(zhí)行代碼：
| void CMySMSDlg:: QQSendMessage() { CString str; CWnd* pMainWnd = AfxGetMainWnd()->GetWindow(GW_HWNDFIRST); while (pMainWnd) { HWND hWnd,hNext; hWnd = pMainWnd->m_hWnd; pMainWnd->GetWindowText(str); if(str.Find ("聊天")>-1){//找到聊天主窗口Begin //找RichEdit hWnd=FindWindowEx(pMainWnd->m_hWnd,NULL,"#32770",NULL); pMainWnd = CWnd::FromHandle(hWnd); hWnd=FindWindowEx(pMainWnd->m_hWnd,NULL,"AfxWnd42",NULL); CWnd* pChildWnd=CWnd::FromHandle(hWnd); int nLen = str.GetLength (); hNext = FindWindowEx(pChildWnd->m_hWnd,NULL,"RICHEDIT",NULL); if(hNext){//找到消息填寫控件 CRichEditCtrl* pRich=(CRichEditCtrl*)(CWnd::FromHandle(hNext)); pRich->GetWindowText (str); pRich->SetSel (nLen,nLen); pRich->ReplaceSel ("成都外國(guó)語(yǔ)學(xué)校 黃東");//填上將要發(fā)送的內(nèi)容 }else return; //找消息發(fā)送按鈕 hWnd=FindWindowEx(pMainWnd->m_hWnd,NULL,NULL,NULL); while (hWnd) { pChildWnd=CWnd::FromHandle(hWnd); pChildWnd->GetWindowText(str); if(str.Find ("發(fā)送")>-1){ pChildWnd->SendMessage (BM_CLICK);//發(fā)送 return;// 退出 } hWnd=FindWindowEx(pMainWnd->m_hWnd,hWnd,NULL,NULL); } return; }//找到聊天主窗口End else pMainWnd = pMainWnd->GetWindow(GW_HWNDNEXT); //繼續(xù)找 }//While } |
至此，主要部件已經(jīng)實(shí)現(xiàn)了，如何讓程序自動(dòng)為每個(gè)好友打開聊天窗口，和這個(gè)也差不了太多，就留給各位去研究吧，這條思路適合目前所有的IM軟件。
程序在VC6下編譯通過(guò)(文件很小，只有20KB)，操作系統(tǒng)為Windows 2000 SP4，QQ版本為2004 SP1，按發(fā)送按鈕之前需要打開一個(gè)聊天窗口。