利用底层键盘钩子拦载任意按键（回调版）

    前段时间我曾经写过一篇《利用底层键盘钩子屏蔽任意按键》，并放到了我的blog上。这篇文章的题目中把“屏蔽”改成了“拦截”，显然要比以前的版本强一些了。对于以前写的那个DLL，有一个不够理想的地方，就是仅仅能实现屏蔽。如果想在屏蔽之前加入一些“小动作”，就只能修改DLL，在LowLevelKeyboardProc函数中添加代码，实现新的功能。但这样显然不够灵活，这样的DLL也不具备一般性了。所以我自然而然地想到了回调，Windows中有很多需要回调函数的API，我们当然也可以写出这样的API，这样做的好处就是可以给DLL调用程序留下足够的接口。此时，DLL就像一个阀门，我们不关心的按键消息就把它放过去，只把我们关心的按键消息拦截下来，然后进一步处理，而这些处理的代码就写在DLL调用程序的回调函数中，这样做是最理想不过的了。
    相对于前一个版本，修改后的DLL源代码如下：
 

/********************************************************************/
/* 文件名: MaskKey.cpp                                              */
/*                                                                  */
/* 功能: 标准 DLL ---- 利用底层键盘钩子实现拦截键盘任意按键         */
/*                                                                  */
/* 作者: 卢培培 (goodname008)             时间: 2005.1.18           */
/*                                                                  */
/* BLOG: http://blog.csdn.net/goodname008                           */
/********************************************************************/

// 导出函数列表
// StartMaskKey
// StopMaskKey

#define _WIN32_WINNT  0x0500                   // 设置系统版本, 确保可以使用底层键盘钩子

#include "windows.h"

// 回调函数指针
typedef BOOL (CALLBACK* LPFNKEYBOARDPROC)(WPARAM, KBDLLHOOKSTRUCT*);

// 全局变量
LPDWORD       g_lpdwVirtualKey = NULL;         // Keycode 数组的指针
int           g_nLength = 0;                   // Keycode 数组的大小
BOOL          g_bDisableKeyboard = FALSE;      // 是否屏蔽整个键盘
HINSTANCE     g_hInstance = NULL;              // 模块实例句柄
HHOOK         g_hHook = NULL;                  // 钩子句柄
LPFNKEYBOARDPROC   g_lpfnKeyboardProc;         // 键盘钩子回调函数指针

// DLL 入口函数
BOOL APIENTRY DllMain(HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
{
// 保存模块实例句柄
g_hInstance = (HINSTANCE)hModule;

// 在进程结束或线程结束时卸载钩子
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
break;
case DLL_THREAD_ATTACH:
break;
case DLL_PROCESS_DETACH:

case DLL_THREAD_DETACH:
free(g_lpdwVirtualKey);
if (g_hHook != NULL) UnhookWindowsHookEx(g_hHook);
break;
}
return TRUE;
}

// 底层键盘钩子函数
LRESULT CALLBACK LowLevelKeyboardProc(int nCode, WPARAM wParam, LPARAM lParam)
{
// 拦截键盘的某些按键, 如果 g_bDisableKeyboard 为 TRUE 则拦截整个键盘按键
if (nCode >= HC_ACTION)
{
KBDLLHOOKSTRUCT* pStruct = (KBDLLHOOKSTRUCT*)lParam;
if (g_bDisableKeyboard)
if (g_lpfnKeyboardProc(wParam, pStruct))
return CallNextHookEx(g_hHook, nCode, wParam, lParam);
else
return true;

LPDWORD tmpVirtualKey = g_lpdwVirtualKey;
for (int i = 0; i < g_nLength; i++)
{
if (pStruct->vkCode == *tmpVirtualKey++)
if (g_lpfnKeyboardProc(wParam, pStruct))
return CallNextHookEx(g_hHook, nCode, wParam, lParam);
else
return true;
}

}

// 调用系统中的下一个钩子
return CallNextHookEx(g_hHook, nCode, wParam, lParam);
}

/********************************************************************/
/* 开始拦截键盘按键                                                 */
/*                                                                  */
/* 参数:                                                            */
/*            lpdwVirtualKey              Keycode 数组的指针        */
/*            nLength                     Keycode 数组的大小        */
/*            bDisableKeyboard            是否拦截整个键盘          */
/*                                                                  */
/* 返回值:    TRUE 成功, FALSE 失败                                 */
/********************************************************************/
BOOL WINAPI StartMaskKey(LPDWORD lpdwVirtualKey, int nLength,
LPFNKEYBOARDPROC lpfnKeyboardProc, BOOL bDisableKeyboard = FALSE)
{
// 如果已经安装键盘钩子则返回 FALSE
if (g_hHook != NULL || nLength == 0) return FALSE;

// 将用户传来的 keycode 数组保存在全局变量中
g_lpdwVirtualKey = (LPDWORD)malloc(sizeof(DWORD) * nLength);
LPDWORD tmpVirtualKey = g_lpdwVirtualKey;
for (int i = 0; i < nLength; i++)
{
*tmpVirtualKey++ = *lpdwVirtualKey++;
}
g_nLength = nLength;
g_bDisableKeyboard = bDisableKeyboard;
g_lpfnKeyboardProc = lpfnKeyboardProc;

// 安装底层键盘钩子
g_hHook = SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, g_hInstance, NULL);
if (g_hHook == NULL) return FALSE;
return TRUE;

}

/********************************************************************/
/* 停止拦截键盘按键                                                 */
/*                                                                  */
/* 参数: (无)                                                       */
/*                                                                  */
/* 返回值:    TRUE 成功, FALSE 失败                                 */
/********************************************************************/
BOOL WINAPI StopMaskKey()
{
// 卸载钩子
if (UnhookWindowsHookEx(g_hHook) == 0) return FALSE;
g_hHook = NULL;
return TRUE;
}

 
     当然了，MaskKey.h头文件中也要加上：
 

// 回调函数指针
typedef BOOL (CALLBACK* LPFNKEYBOARDPROC)(WPARAM, KBDLLHOOKSTRUCT*);

 
     下面是在VC中调用的例子：（两个Dialog的成员函数，对应两个按钮，再加上一个回调函数）
 

// 全局键盘钩子回调函数
// 参数: action 标识键盘消息(按下,弹起), keyStruct 包含按键信息
BOOL CALLBACK KeyboardProc(WPARAM action, KBDLLHOOKSTRUCT* pKeyStruct)
{
// 判断按键动作
switch (action)
{
case WM_KEYDOWN:

break;
case WM_KEYUP:

break;
case WM_SYSKEYDOWN:

break;
case WM_SYSKEYUP:

break;

}

// 返回 true 表示继续传递按键消息
// 返回 false 表示结束按键消息传递
return false;
}

void CMaskKeyAppDlg::OnStartmaskkey()
{
// 屏蔽 A, B, C, 上, 下, 左, 右及两个win键
DWORD dwVK[] = {'A', 'B', 'C', VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN, VK_LWIN, VK_RWIN};
int nLength = sizeof(dwVK) / sizeof(DWORD);
StartMaskKey(dwVK, nLength, KeyboardProc);

}

void CMaskKeyAppDlg::OnStopmaskkey()
{
StopMaskKey();

}

 
    呵呵，这样是不是让看到这里的你很兴奋呢？！StartMaskKey加了一个参数，是个函数指针，这是我们非常熟悉的回调函数的使用方法。DLL中的StartMaskKey函数收到这个函数指针后保存在了g_lpfnKeyboardProc变量中，然后在LowLevelKeyboardProc中一旦发现了要拦截的按键，就会通过函数指针调用回调函数，将控制权完全交回给DLL的调用程序，由回调函数KeyboardProc进一步处理（播放一小段音乐，还是执行个什么有意思的程序，亦或是重启关机什么的。呃，随你便了。:D），action参数用来标识键盘消息（按下或弹起），pKeyStruct参数包含了丰富的按键信息，其实就是系统传给LowLevelKeyboardProc的lParam，我又把它原封不动地传给了KeyboardProc，呵呵。最重要的就是回调函数的返回值了，它就像阀门的开关一样，将决定这个按键消息的命运。从DLL中的LowLevelKeyboardProc函数的流程可以看出，如果回调函数KeyboardProc的返回值为true则表示把该按键消息继续传递给系统中的下一个钩子；如果为false则表示结束该按键消息的传递，此时将会起到拦截按键的效果。
    用VB的人可能有些不耐烦了，别着急，上篇文章在最后给出了VB调用的例程，此篇当然不能缺少这部分了。下面是在VB中调用的例子：（在窗体上添加2个CommandButton，并分别改名为cmdStartMask和cmdStopMask）
    

Option Explicit
Private Declare Function StartMaskKey Lib "MaskKey" (lpdwVirtualKey As Long, ByVal nLength As Long, ByVallpfnKeyboarProc As Long, Optional ByVal bDisableKeyboard As Boolean = False) As Long
Private Declare Function StopMaskKey Lib "MaskKey" () As Long

Private Sub cmdStartMask_Click()
' 屏蔽 A, B, C, 上, 下, 左, 右及两个win键
Dim key(8) As Long
key(0) = vbKeyA
key(1) = vbKeyB
key(2) = vbKeyC
key(3) = vbKeyLeft
key(4) = vbKeyRight
key(5) = vbKeyUp
key(6) = vbKeyDown
key(7) = &H5B               ' 左边的win键
key(8) = &H5C               ' 右边的win键
StartMaskKey key(0), UBound(key) + 1, AddressOf KeyboardProc
End Sub

Private Sub cmdStopMask_Click()
StopMaskKey
End Sub

 
    窗体模块的代码和以前的例程几乎一样，只是在调用StartMaskKey函数时加了一个参数：AddressOf KeyboardProc。在VB中用过回调函数的人对这东西绝不会陌生，AddressOf是一个一元运算符，后面接一个函数名，它的功能就是获得指定函数的指针。但有一点必须注意，该回调函数（此例中为KeyboardProc）必须写在VB的标准模块中，标准模块的代码如下：
    

Option Explicit

Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_SYSKEYDOWN = &H104
Private Const WM_SYSKEYUP = &H105

Public Type KBDLLHOOKSTRUCT
vkCode As Long              ' 虚拟按键码(1--254)
scanCode As Long            ' 硬件按键扫描码
flags As Long               ' flags
time As Long                ' 消息时间戳
dwExtraInfo As Long         ' 额外信息
End Type

Public Enum KEYACTION
ACTION_KEYDOWN = WM_KEYDOWN
ACTION_KEYUP = WM_KEYUP
ACTION_SYSKEYDOWN = WM_SYSKEYDOWN
ACTION_SYSKEYUP = WM_SYSKEYUP
End Enum

' 全局键盘钩子回调函数
' 参数: action 标识键盘消息(按下,弹起), keyStruct 包含按键信息
Public Function KeyboardProc(ByVal action As KEYACTION, keyStruct As KBDLLHOOKSTRUCT) As Boolean
Select Case action
Case ACTION_KEYDOWN
Debug.Print keyStruct.vkCode, "按下键盘按键"
Case ACTION_KEYUP
Debug.Print keyStruct.vkCode, "弹起键盘按键"
Case ACTION_SYSKEYDOWN

Case ACTION_SYSKEYUP

End Select

' 返回 True 表示继续传递按键消息
' 返回 False 表示结束按键消息传递
KeyboardProc = False
End Function

 
    和VC版的调用例程差不多，只是把语法翻译成了VB的，这个VB标准模块中的KeyboardProc有没有点MFC消息映射函数的味道呢？！   :D

    需要注意的是，VB的回调函数必须写在标准模块中。细心的人还可能会发现，我对action参数作了一点小手脚，改成了一个枚举类型，这主要是为了易于理解。

    OK，要写的就这么多了，关于全局键盘钩子的内容我也想告一段落了。利用VC编写的DLL，VB也可以方便地实现全局键盘钩子了。当然，这不仅仅局限于键盘钩子，利用这种方法可以实现任何类型的钩子。

    DLL源代码及VC和VB调用例程的下载地址： http://csdngoodname008.51.net/MaskKeyCB.zip
 

*-------------------------------------------*
*  转载请通知作者并注明出处，CSDN欢迎您！   *
*  作者：卢培培（goodname008）              *
*  邮箱：goodname008@163.com                *
*  专栏：http://blog.csdn.net/goodname008   *
*-------------------------------------------*