键盘监控的实现Ⅲ——按键消息的修改(映射)

在“键盘监控的实现Ⅰ——Keyboard Hook API函数”中,介绍了基本的Key Hook API函数

  在“键盘监控的实现Ⅱ——容易产生误解的CallNextHookEx函数”中,提到按键消息的修改是不能通过更改参数调用CallNextHookEx函数来实现的。

  本文就是要解决这个问题,如何来实现按键消息的修改。这里我们要引入一个函数

  Private Declare Sub keybd_event Lib "user32" (ByVal bvk As ByteByVal scan As ByteByVal dwflags As IntegerByVal 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 IntegerByVal wParam As IntegerByVal 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 IntegerByVal wParam As IntegerByVal 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,如需转载请自行联系原作者

上一篇:创业明星︱ 横扫美国CES大展,看精酿啤酒机的“高富帅”进阶之路


下一篇:再温暖的鸡汤不如一场殊死的战争,诸神之战四赛区冠军出炉!