本文的重点在于底层键盘钩子的应用,前些天CSDN的VB版有人问如何实现屏蔽win键,说实话,这东西用VB也是可以做到的,只不过全局钩子的钩子函数必须写在标准dll中,而VB只能通过变通的方法做出标准dll,稍微有点麻烦,所以我索性用VC写了一个dll,这样VC、VB或Delphi等等都可以调用,而且我也留出了足够的接口,稍后就会看到。
有一点必须得声明一下,底层键盘钩子有一个半致命的缺点,就是只能在NT及其以上系统中使用,不过好在现在用2000、XP、2003的人绝对不在少数,将来用LongHorn的人估计也少不了,所以这点倒是不用太担心。 :)
好了,闲话少说,源代码在此:
DLL头文件(在VC中使用这个DLL中的函数时,需要包含这个头文件,就像使用API要包含windows.h一样):
/********************************************************************/ /* 文件名: MaskKey.h */ /* */ /* 功能: 标准 DLL 导出函数头文件, 在使用该DLL的程序中包含此文件 */ /* */ /* 作者: 卢培培 (goodname008) 时间: 2004.8.21 */ /* */ /* BLOG: http://blog.csdn.net/goodname008 */ /********************************************************************/
DECLSPEC_IMPORT BOOL WINAPI StartMaskKey( LPDWORD lpdwVirtualKey, int nLength, BOOL bDisableKeyboard = FALSE );
DECLSPEC_IMPORT BOOL WINAPI StopMaskKey(); |
DLL主文件:
/********************************************************************/ /* 文件名: MaskKey.cpp */ /* */ /* 功能: 标准 DLL ---- 利用底层键盘钩子实现屏蔽键盘任意按键 */ /* */ /* 作者: 卢培培 (goodname008) 时间: 2004.8.21 */ /* */ /* BLOG: http://blog.csdn.net/goodname008 */ /********************************************************************/
// 导出函数列表 // StartMaskKey // StopMaskKey
#define _WIN32_WINNT 0x0500 // 设置系统版本, 确保可以使用底层键盘钩子
#include "windows.h"
// 全局变量 LPDWORD g_lpdwVirtualKey = NULL; // Keycode 数组的指针 int g_nLength = 0; // Keycode 数组的大小 BOOL g_bDisableKeyboard = FALSE; // 是否屏蔽整个键盘 HINSTANCE g_hInstance = NULL; // 模块实例句柄 HHOOK g_hHook = NULL; // 钩子句柄
// 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: delete 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) { if (g_bDisableKeyboard) return TRUE; KBDLLHOOKSTRUCT* pStruct = (KBDLLHOOKSTRUCT*)lParam; LPDWORD tmpVirtualKey = g_lpdwVirtualKey; for (int i = 0; i < g_nLength; i++) { if (pStruct->vkCode == *tmpVirtualKey++) return TRUE; }
}
// 传给系统中的下一个钩子 return CallNextHookEx(g_hHook, nCode, wParam, lParam); }
/********************************************************************/ /* 开始屏蔽键盘按键 */ /* */ /* 参数: */ /* lpdwVirtualKey Keycode 数组的指针 */ /* nLength Keycode 数组的大小 */ /* bDisableKeyboard 是否屏蔽整个键盘 */ /* */ /* 返回值: TRUE 成功, FALSE 失败 */ /********************************************************************/ BOOL WINAPI StartMaskKey(LPDWORD lpdwVirtualKey, int nLength, BOOL bDisableKeyboard = FALSE) { // 如果已经安装键盘钩子则返回 FALSE if (g_hHook != NULL) 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_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; } |
DEF文件(MaskKey.def):
EXPORTS StartMaskKey @1 StopMaskKey @2 |
上面就是DLL工程中主要的三个文件,工程类型为Win32 Dynamic-Link Library。从DEF文件可以看出,DLL共有两个导出函数:StartMaskKey和StopMaskKey。
StartMaskKey有三个参数,lpdwVirtualKey是一个指向DWORD数组的指针,该DWORD数组用来存放virtual-key code,nLength是该数组的大小,bDisableKeyboard是个逻辑值,如果为TRUE表示禁用整个键盘,默认为FALSE。使用正确的参数调用StartMaskKey,DLL可以将DWORD数组中每一个virtual-key code与键盘上对应的按键屏蔽掉,按这些键将完全没有反应(包括win键)。事实上,对于virtual-key code只要一个字节就可以表示了,但KBDLLHOOKSTRUCT结构中的vkCode是DWORD型,所以为求统一我也采用4个字节(DWORD)。纵然如此,微软还是在MSDN中强调了,virtual-key code的值必须是1到254之间的值,这点一定要注意。
StopMaskKey没有参数,表示停止屏蔽键盘按键。如果在程序中没有调用StopMaskKey停止屏蔽键盘按键,在进程或线程退出时将自动停止屏蔽,恢复原来的状态。当然进程和线程一定要正常退出,如果是被别的程序以TerminateProcess或TerminateThread等微软不太建议使用的野蛮手段结束进程或线程的话,就不太好办了。 :(
下面是在VC中调用的例子:(两个Dialog的成员函数,对应两个按钮)
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);
}
void CMaskKeyAppDlg::OnStopmaskkey() { StopMaskKey();
} |
下面是在VB中调用的例子:(在窗体上添加2个CommandButton,并分别改名为cmdStartMask和cmdStopMask)
Option Explicit Private Declare Function StartMaskKey Lib "MaskKey" (lpdwVirtualKey As Long, ByVal nLength 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) = &H 5C ' 右边的win键 StartMaskKey key(0), UBound(key) + 1 End Sub
Private Sub cmdStopMask_Click() StopMaskKey End Sub |
对于VB,如果是在VB的IDE环境中按F5启动程序,则必须调用StopMaskKey才能使键盘恢复状态,如果没有调用,则在退出VB的IDE环境时由DLL恢复键盘状态。对于编译后独立执行的VB程序,则和VC编译后的程序一样,无论是否调用StopMaskKey,都将在程序退出时由DLL自动卸载钩子,恢复键盘状态。
其实,钩子并不是什么很深奥的技术,我写这个DLL的目的,也是为了我们在以后用到的时候,可以实行“拿来主义”。
DLL源代码及VC和VB调用例程的下载地址:http://csdngoodname008.51.net/MaskKey.zip