AU3键盘HOOK

4月192017

作者：AOPO 发布：2017-4-19 15:21 Wednesday 分类：源码示例阅读：5705次评论：0条


#include &lt;WindowsConstants.au3&gt;

;Global Const $tagKBDLLHOOKSTRUCT = "dword vkCode;dword scanCode;dword flags;dword time;ulong_ptr dwExtraInfo"

Global $hCallback = DllCallbackRegister("LowLevelKeyboardProc", "long", "int;wparam;lparam")
Global $hModule = _WinAPI_GetModuleHandle(0)
Global $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hCallback), $hModule)

OnAutoItExitRegister("OnAutoItExit")

While 1
    Sleep(10)
WEnd

;===========================================================
;nCode
;小于0返回CallNextHookEx

;wParam
;消息: WM_KEYDOWN, WM_KEYUP, WM_SYSKEYDOWN, WM_SYSKEYUP

;lParam
;KBDLLHOOKSTRUCT结构指针

;Return
;如果钩子过程没有处理消息,返回CallNextHookEx
;如果钩子过程处理的消息,返回一个非零值来防止系统传递消息给其余的钩链或目标窗口
;===========================================================
Func LowLevelKeyboardProc($nCode, $wParam, $lParam)
    If $nCode &lt; 0 Then Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)

    Local $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
    Local $iCode = DllStructGetData($tKEYHOOKS, "vkCode")
    Local $iScan = DllStructGetData($tKEYHOOKS, "scanCode")
    Local $iFlag = DllStructGetData($tKEYHOOKS, "flags")

    Switch $wParam
        Case $WM_KEYDOWN
            ToolTip("按键按下: (" &amp; $iCode &amp; ")")
            If $iCode = 65 Then Return 1;屏蔽a键按下
        Case $WM_KEYUP
            ToolTip("按键抬起: (" &amp; $iCode &amp; ")")
        Case $WM_SYSKEYDOWN
            ToolTip("系统按键按下: (" &amp; $iCode &amp; ")")
        Case $WM_SYSKEYUP
            ToolTip("系统按键抬起: (" &amp; $iCode &amp; ")")
        Case Else
            ConsoleWrite($wParam &amp; @CRLF)
            ToolTip("其他消息: (" &amp; $wParam &amp; ")")
    EndSwitch

    Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc

Func OnAutoItExit()
    _WinAPI_UnhookWindowsHookEx($hHook)
    DllCallbackFree($hCallback)
EndFunc   ;==&gt;OnAutoItExit```
<br />

本文固定链接: http://jianyiit.com/post-261.html