在“键盘监控的实现Ⅱ——容易产生误解的CallNextHookEx函数”中,提到按键消息的修改是不能通过更改参数调用CallNextHookEx函数来实现的。
本文就是要解决这个问题,如何来实现按键消息的修改。这里我们要引入一个函数
Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, ByVal scan As Byte, ByVal dwflags As Integer, ByVal dwextrainfo As Integer)
这个函数的目的是模拟按键消息,就像真的在点击键盘似的。
keybd_event(Keys.Z, 0, 0, 0) 表示模拟按下Z键
keybd_event(Keys.Z, 0, 2, 0) 表示模拟弹起Z键
但是不管是真的点击键盘还是模拟按键消息。这个按键消息都会被我们的消息处理函数拦截到。我们该如何区分呢?
先看看消息处理函数
Private Function KeyboardHookProc(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
Dim MyKeyboardHookStruct As KeyboardHookStruct = DirectCast(Marshal.PtrToStructure(lParam, GetType(KeyboardHookStruct)), KeyboardHookStruct)
自己处理的一些代码,例如:记录、屏蔽、映射等
Return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam)
End Function
由于安装的是WH_KEYBOARD_LL钩子。按键消息的详细信息是在lParam指向的KeyboardHookStruct中。故在上面的函数中,第一句就是获得该结构的详细信息。我们来看看该结构在MSDN中的解释
Public Structure KeyboardHookStruct
Dim vkCode As Integer
Dim ScanCode As Integer
Dim Flags As Integer
Dim Time As Integer
Dim DwExtraInfo As Integer
End Structure
其中各个参数意义如下:
VkCode:按键的虚拟键码。键盘上的每个按键对应一个虚拟键码
ScanCode:硬件的扫描码
Flags:按键消息的详细信息。是一些标识位的组合
Time:时间。
DwExtraInfo:扩展到按键消息的信息
参数Flags是一个八位的二进制,各个位的标识信息如下:
0位:扩展键的标识位。1表示该键是扩展键;0表示不是。
1位~3位:保留位,一般是0。
4位:标识消息的类型,1表示该消息是模拟的;0表示该消息是真实的
5位:Alt键的标识位。1表示Alt是按下的;0表示Alt键没有被按下
6位:保留位,一般是0
7位:按键的状态标识位。1表示按键是弹起的,0表示按键是按下的
从上面的文字可以看出,在Flags参数中的第四位是能区分消息的类别的。当我们点击键盘的时候,这位是0,是真实的按键消息;当我们用keybd_event函数模拟按键消息时,这位是1。
这下思路有了。我们在消息处理函数中,将模拟按键消息一律放过,只处理真实的按键消息。就能实现按键消息的修改(映射)。我们以例子来说明,键盘消息的修改,按下A,反馈的是Z。参看下面的函数
Private Function KeyboardHookProc(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
Dim MyKeyboardHookStruct As KeyboardHookStruct = DirectCast(Marshal.PtrToStructure(lParam, GetType(KeyboardHookStruct)), KeyboardHookStruct)
If (MyKeyboardHookStruct.Flags And 16) = 16 Then
Return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam)
End If
If MyKeyboardHookStruct.vkCode=Keys.A Then
Dim KeyStatue As Integer=(MyKeyboardHookStruct.Flags And 128) / 64
keybd_event(Keys.Z, 0, KeyStatue, 0)
Return 1
Else
Return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam)
End If
End Function
函数的第一句是获得KeyboardHookStruct结构。后面一个判断是将模拟键盘消息放过。然后紧接着判断是否是A,若是A,则模拟键盘消息Z,并丢弃A这个消息;若不是,放过消息丢给后面的程序。这样一段代码就实现了对键盘消息的修改(映射),将A改成Z。当然,也能实现其他的键盘消息的映射。
本文转自万仓一黍博客园博客,原文链接:http://www.cnblogs.com/grenet/archive/2010/12/09/1901406.html,如需转载请自行联系原作者