键盘监控的实现Ⅲ——按键消息…

本文就是要解决这个问题，如何来实现按键消息的修改。这里我们要引入一个函数
　　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