简单实现[BCB5]:键盘全局钩子[Hook],监视多进程键盘操作。

原创 2001年11月04日 18:15:00

 

闲来无事,在WIN2K下用BCB5做了个键盘挂钩小程序,监视全局按键情况。Hook安放和回调函数放在一个单独DLL中,DLL原码如下:

 //----------------------------------------------------------------------------------------------------
extern "C" __declspec(dllexport) void __stdcall SetHook(HWND,bool);
LRESULT CALLBACK HookProc(int nCode,WPARAM wParam,LPARAM lParam)  
 //----------------------------------------------------------------------------------------------------
static HINSTANCE hInstance;    // 应用实例句柄
static HWND hWndMain;           // MainForm句柄
static HHOOK hKeyHook;        // HOOK句柄
static const myMessage=2000;   // 自定义消息号
static const SecondPar=1;          // 自定义消息第2参数
 //----------------------------------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{  hInstance=hinst; return 1; }
 //----------------------------------------------------------------------------------------------------
void __stdcall SetHook(HWND hMainWin,bool nCode) 
{     
 if(nCode)  // 安放HOOK
   {
    hWndMain=hMainWin;
    hKeyHook=SetWindowsHookEx(WH_JOURNALRECORD,(HOOKPROC)HookProc,hInstance,0);
   }
 else         // 卸下HOOK
    UnhookWindowsHookEx(hKeyHook);
}
 //----------------------------------------------------------------------------------------------------
LRESULT CALLBACK HookProc(int nCode,WPARAM wParam,LPARAM lParam) 
{                      
 EVENTMSG *keyMSG=(EVENTMSG *)lParam;
 if((nCode==HC_ACTION)&&(keyMSG->message==WM_KEYUP))
     PostMessage(hWndMain,myMessage,(char)(keyMSG->paramL),SecondPar);
     // 向调用窗体发消息myMessage和虚拟键码(char)(keyMSG->paramL)
 return((int)CallNextHookEx(hKeyHook,nCode,wParam,lParam));
}
 //----------------------------------------------------------------------------------------------------

应用代码如下:(调DLL)
 //----------------------------------------------------------------------------------------------------
static HINSTANCE hDLL;  // DLL句柄
typedef void __stdcall (*DLLFUN)(HWND,bool);
DLLFUN DLLSetHook;
static const myMessage=2000;
static const SecondPar=1;
 //----------------------------------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner)
{}
 //----------------------------------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 hDLL=LoadLibrary((LPCTSTR)"Project1.dll"); // DLL文件名:Project1.dll
 if(hDLL==NULL)
   { ShowMessage("DLL: 不能加载!程序退出。"); exit(1); }
 DLLSetHook =(DLLFUN)GetProcAddress(hDLL,"SetHook");
 if(DLLSetHook==NULL)
   { ShowMessage("DLL: 函数没找到!程序退出。"); FreeLibrary(hDLL); exit(1); }
 DLLSetHook(this->Handle,true);
}
 //----------------------------------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 DLLSetHook(NULL,false);  // 卸下HOOK
 FreeLibrary(hDLL);              // 卸下DLL
}
 //----------------------------------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,bool &Handled)
{                                         // BCB5.0 的ApplicationEvents元件
 if((Msg.message==myMessage)&&(Msg.lParam==SecondPar))
    ShowMessage("   收到HOOK按键消息!/n/n 【键虚拟码】:"+IntToStr(Msg.wParam));
}
 //----------------------------------------------------------------------------------------------------

用 WH_JOURNALRECORD 类型HOOK可简单实现.

C#.Net的全局键盘钩子(Hook)技术

///如未特别说明,本人所发表的技术文章都为原创, 任何人引用都请注明出处,并包含本声明 ///作者: CSDN网名hatita,邮件:hatita_qq@hotmail.com,QQ:6791346...
  • sgear
  • sgear
  • 2006年10月20日 15:27
  • 2025

HOOK使用:全局键盘钩子

// CatchKey.cpp : Defines the entry point for the DLL application. // #define _WIN32_WINNT 0x05...
  • toss156
  • toss156
  • 2012年02月29日 22:39
  • 23879

用键盘全局钩子[Hook]监视多进程键盘操作

用键盘全局钩子[Hook]监视多进程键盘操作 闲来无事,在WIN2K下用BCB5做了个键盘挂钩小程序,监视全局按键情况。Hook安放和回调函数放在一个单独DLL中,DLL原码如下:  //----...
  • diligentcat
  • diligentcat
  • 2011年12月03日 05:31
  • 672

全局钩子(hook鼠标键盘消息)

生成DLL文件,模块定义文件为: LIBRARY Hook EXPORTSSetHook@2实现文件如下。其中g_hWnd为所有进程共享,并且绕过了系统对可写数据的写时复制机制,维护的是一份拷贝。 /...
  • xiaobaohe
  • xiaobaohe
  • 2011年04月10日 17:51
  • 6147

C#全局键盘钩子

using System; using System.Collections.Generic; using System.Diagnostics; using System.Runtime.Inter...
  • hoopmac
  • hoopmac
  • 2013年10月15日 18:18
  • 994

VC实现的全局键盘钩子

键盘钩子的功能就是监视系统按键动作,这是一种很有用的技术,在一些工程项目中,有监视人员操作动作的需求,便于定位故障原因。也可以用于实现密码监视等黑客行为。 钩子分线程专用钩子和全局钩子,线程专用钩子只...
  • zjuman2007
  • zjuman2007
  • 2017年08月14日 21:47
  • 947

控制台程序安装全局钩子

   今天在写一个程序的时候发现的问题,在以前的学习过程中没有遇到过,所以记录以备后查程序大致是这样的 A:主程序 控制台程序 负责安装一个WH_KEYBOARD_LL钩子,其中钩子的安装于回调函数在...
  • cmdhack
  • cmdhack
  • 2011年01月12日 19:15
  • 2555

用钩子机制实现键盘监听---键盘监听器

用钩子机制实现键盘监听—键盘监听器 Windows系统是建立在事件驱动的机制上的,说穿了就是整个系统都是通过消息的传递来实现的。而钩子是Windows系统中非常重要的系统接口,用它可以截获并处理送...
  • zf1228
  • zf1228
  • 2016年07月10日 15:46
  • 649

利用键盘钩子捕获Windows键盘动作

转自:http://www.yesky.com/328/1890328.shtml         引言   在科研生产中对研制、调试操作的记录是非常有必要而且是有很重要价值的。通过对记录信息的分...
  • seaskying
  • seaskying
  • 2014年03月03日 09:27
  • 3717

VC++实现监视系统的键盘操作(2) 创建记录键盘动作的全局钩子DLL

全局钩子函数必须以DLL(动态连接库)为载体进行封装,VC++6.0中有三种形式的MFC DLL可供选择,即 Regular DLL with MFC statically linked(标准静态链...
  • tanyouliang
  • tanyouliang
  • 2012年10月24日 13:07
  • 2511
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:简单实现[BCB5]:键盘全局钩子[Hook],监视多进程键盘操作。
举报原因:
原因补充:

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