一、引言
QQ一直是國內最令人矚目的及時(shí)通訊軟件,近6年的經(jīng)營(yíng)使其在IM市場(chǎng)有了"世界第一"名號。在國內市場(chǎng),QQ的市場(chǎng)占有率已經(jīng)超過(guò)了70%,用戶(hù)群龐大,本人就是騰訊QQ的一個(gè)用戶(hù)。不知QQ會(huì )員是否能夠消息群發(fā),但我這個(gè)免費用戶(hù)是享受不了這個(gè)服務(wù)的,給同事和朋友們發(fā)通知好辛苦啊。在網(wǎng)上Google了一下,找到幾個(gè)小軟件,可是消息后面又加個(gè)廣告尾巴。還是自己動(dòng)手吧:
如果要分析騰訊QQ協(xié)議來(lái)編寫(xiě)發(fā)送QQ消息是很復雜的一件事情,那么,有沒(méi)有簡(jiǎn)單的辦法呢?答案是肯定的:有!
既然Windows使用消息循環(huán)來(lái)處理輸入信息,那么如果我們能夠用程序模擬產(chǎn)生"操作QQ時(shí)鼠標和鍵盤(pán)操作所發(fā)出的消息" ,那么就應該可以實(shí)現程序發(fā)送QQ消息,進(jìn)而批量發(fā)送QQ消息,即消息群發(fā)。
二、具體實(shí)現
QQ給某個(gè)人發(fā)送消息時(shí),將創(chuàng )建如下圖所示的窗口(對話(huà)框窗口),我們發(fā)消息就是填寫(xiě)消息內容,然后點(diǎn)擊發(fā)送。要模擬QQ消息發(fā)送,我們就需要填寫(xiě)消息內容,然后模擬按鍵發(fā)送。

第一步,找到聊天主窗口,該窗口的標題是與*****聊天中,我們可以通過(guò)使用FindWindowEx函數來(lái)找到這個(gè)窗口。
第二步,找到輸入消息的控件并在里面填寫(xiě)消息。注意:可能是騰訊公司為了安全,在窗口里又套了幾個(gè)窗口,如果有興趣,可以用微軟的工具SPY++自己看看。通過(guò)使用SPY++觀(guān)察,發(fā)現該控件是一個(gè)RichEdit類(lèi),位置如上圖所示,我們還是用 FindWindowEx函數來(lái)找到它,然后取得指針,通過(guò)指針往里面些數據。

第三步,模擬鼠標點(diǎn)發(fā)送按鈕的操作,可以通過(guò)取得該按鈕的指針,然后發(fā)送一個(gè)BM_CLICK消息就可以了。
通過(guò)程序模擬,實(shí)現的非常好。用VC6建立一個(gè)簡(jiǎn)單的對話(huà)框程序,添加一個(gè)按鈕(改Caption值為發(fā)送),為該按鈕填加以下執行代碼:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | 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){//找到消息填寫(xiě)控件 CRichEditCtrl* pRich=(CRichEditCtrl*)(CWnd::FromHandle(hNext)); pRich->GetWindowText (str); pRich->SetSel (nLen,nLen); pRich->ReplaceSel ("成都外國語(yǔ)學(xué)校 黃東");//填上將要發(fā)送的內容 }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); //繼續找 }//While} |
至此,主要部件已經(jīng)實(shí)現了,如何讓程序自動(dòng)為每個(gè)好友打開(kāi)聊天窗口,和這個(gè)也差不了太多,就留給各位去研究吧,這條思路適合目前所有的IM軟件。
程序在VC6下編譯通過(guò)(文件很小,只有20KB),操作系統為Windows 2000 SP4,QQ版本為2004 SP1,按發(fā)送按鈕之前需要打開(kāi)一個(gè)聊天窗口。
聯(lián)系客服