HOOK进程失败，大家帮看看是何原因？

2010-01-21 12:05:20 316 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

内核编程之SSDTHook（2）Hook NtOpenProcess实现进程保护本博文由CSDN博主zuishikonghuan所作，版权归zuishikonghuan所有，转载请注明出处：上一篇博文“内核编程之SSDTHook（1）原理（地址：）”中，介绍了SSDTHook的原理，这一篇博文，我们来写一个实例，通过Hook NtOpenProcess来的实现进程保护。我之前写过两篇Ring3下的API Inline Hook的博文，这两篇博文通过Inline 阅读详情



var

  Form1: TForm1;

  hhk: HHOOK;

  function GetMsgProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;



implementation



{$R *.dfm}



function GetMsgProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;

begin

  result := 1;

  if nCode<>HC_ACTION then exit;

  MessageBox(0,'ok','ok',MB_OK);

  result := CallNextHookEx(hhk,nCode,wParam,lParam);

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  hwnd,pid:dword;

begin

  try

    hwnd := FindWindow('Notepad',nil);

    if hwnd=0 then exit;

    GetWindowThreadProcessId(hwnd,pid);

    if pid=0 then exit;

    hhk := SetWindowsHookEx(13,@GetMsgProc,HINSTANCE,pid);

    //这里pid改为0就没问题，可以成功HOOK，如果设置为找到的pid,就HOOK失败，这个pid和任务管理器的pid是一致的。

    //请问为什么HOOK失败呢？

    if hhk=0 then exit;

    Caption := 'hook on';

  except

    Caption := '出错';

  end;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  if (hhk<>0) and UnHookWindowsHookEx(hhk) then Caption := 'unhook';

end;

...全文

IAT HOOK IAT Hook的实现阅读详情

Think-In-C

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

HOOK进程失败，大家帮看看是何原因？

相关推荐