近来ＱＱ尾巴病毒大肆发作，我也是经常收到网友们发到来的带尾巴的消息，于是，好奇心一来，我也来研究研究此病毒的发作原理。首先，我不知道ＱＱ尾巴病毒真正的原理，我只是猜测并且自己写了一个类似的程序来实现它。
ＱＱ尾巴的发作情况：当用户打开一个ＱＱ消息发送窗口时，病毒会自动往消息文本框里输入文本，然后不等用户反应过来就发出去了。
程序实现：首先要找到ＱＱ消息发送窗口的句柄以及消息文本框与“发送”按钮的窗口句柄。
一、
如何找到ＱＱ消息发送窗口句柄：
ＱＱ消息发送窗口有两种，一种是消息模式，在这种情况下，窗口标题含有“发送消息”字样；一种是聊天模式，窗口标题含有“聊天中”字样；
通过枚举窗口就可找到相应的句柄：
// 取得ＱＱ的发送消息窗口
function getqqwnd: hwnd;
var
hcurrentwindow: hwnd;
wndtext:string;
begin
hcurrentwindow := getwindow(application.handle, gw_hwndfirst);
while hcurrentwindow <> 0 do
begin
wndtext:=getwndtext(hcurrentwindow);
if (pos('聊天中',wndtext)>0) or (pos('发送消息',wndtext)>0) then
begin
result:=hcurrentwindow;
