鼠标键盘钩子脚本录制源码求修改 - 精易论坛

子程序名	返回值类型	公开	备注
鼠标_监听	整数型
参数名	类型	参考	可空	数组	备注
nCode	整数型
wParam	整数型
lParam	整数型

变量名	类型	静态	数组	备注
执行时间	整数型
mouse	MOUSEHOOKSTRUCT
局_键代码	整数型
局_键状态	整数型

' 局_键代码 = 1=左键 2=右键 3=中键 4=滚轮 5=侧键上 6=侧键下,局_键状态 = 1=按下 2=弹起 3=双击 4=滚轮往上 5=滚轮往下。
执行时间＝取启动时间 () －开始监视时间

如果真 (nCode ≥ 0)

' =====鼠标移动事件,没用的话就将其过滤不要，减少资源消耗，提高钩子稳定性======

CopyMemory_Mouse (mouse, lParam, 20)

编辑框1.加入文本 (“1,” ＋到文本 (执行时间) ＋ “,” ＋到文本 (wParam) ＋ “,” ＋到文本 (mouse.hwnd) ＋ “,” ＋到文本 (mouse.pt.X) ＋ “,” ＋到文本 (mouse.pt.Y) ＋ #换行符 )

返回 (CallNextHookEx (集_鼠标钩子句柄, nCode, wParam, lParam))

' =====鼠标移动事件,没用的话就将其过滤不要，减少资源消耗，提高钩子稳定性======
返回 (CallNextHookEx (集_鼠标钩子句柄, nCode, wParam, lParam))

子程序名	返回值类型	公开	备注
键盘_监听	整数型
参数名	类型	参考	可空	数组	备注
nCode	整数型
wParam	整数型
lParam	整数型

变量名	类型	静态	数组	备注
执行时间	整数型
Message	字节集
VkCode	整数型

' 感谢[url]https://125.confly.eu.org/forum.php?mod=viewthread&tid=14648771[/url]提供的键盘钩子报错解决方法
执行时间＝取启动时间 () －开始监视时间
Message ＝指针到字节集 (lParam, 24)
VkCode ＝取字节集数据 (Message, #整数型, 1)

如果真 (nCode ＝ #HC_ACTION ) ' 判断是否是有效按键

如果真 (wParam ＝ 256 或 wParam ＝ 257) ' 按下，放开，单击（或 wParam ＝ 258）——把这个加进去就是单击事件了

编辑框1.加入文本 (“0,” ＋到文本 (执行时间) ＋ “,” ＋到文本 (wParam) ＋ “,” ＋到文本 (VkCode) ＋ #换行符 )

' 键盘_回调 (VkCode, wParam) ' 这个是你自己调用的子程序，直接把键代码跟键状态传进去就好了

返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))

.版本 2<br />
<br />
.子程序 鼠标_监听, 整数型<br />
.参数 nCode, 整数型<br />
.参数 wParam, 整数型<br />
.参数 lParam, 整数型<br />
.局部变量 执行时间, 整数型<br />
.局部变量 mouse, MOUSEHOOKSTRUCT<br />
.局部变量 局_键代码, 整数型<br />
.局部变量 局_键状态, 整数型<br />
<br />
' 局_键代码 = 1=左键 2=右键 3=中键 4=滚轮 5=侧键上 6=侧键下,局_键状态 = 1=按下 2=弹起 3=双击 4=滚轮往上 5=滚轮往下。<br />
执行时间 ＝ 取启动时间 () － 开始监视时间<br />
.如果真 (nCode ≥ 0)<br />
    ' =====鼠标移动事件,没用的话就将其过滤不要，减少资源消耗，提高钩子稳定性======<br />
    CopyMemory_Mouse (mouse, lParam, 20)<br />
    编辑框1.加入文本 (“1,” ＋ 到文本 (执行时间) ＋ “,” ＋ 到文本 (wParam) ＋ “,” ＋ 到文本 (mouse.hwnd) ＋ “,” ＋ 到文本 (mouse.pt.X) ＋ “,” ＋ 到文本 (mouse.pt.Y) ＋ #换行符)<br />
    返回 (CallNextHookEx (集_鼠标钩子句柄, nCode, wParam, lParam))<br />
    ' =====鼠标移动事件,没用的话就将其过滤不要，减少资源消耗，提高钩子稳定性======<br />
.如果真结束<br />
返回 (CallNextHookEx (集_鼠标钩子句柄, nCode, wParam, lParam))<br />
<br />
.子程序 键盘_监听, 整数型<br />
.参数 nCode, 整数型<br />
.参数 wParam, 整数型<br />
.参数 lParam, 整数型<br />
.局部变量 执行时间, 整数型<br />
.局部变量 Message, 字节集<br />
.局部变量 VkCode, 整数型<br />
<br />
' 感谢<a href="https://125.confly.eu.org/forum.php?mod=viewthread&tid=14648771" target="_blank">https://125.confly.eu.org/forum.php?mod=viewthread&tid=14648771</a>提供的键盘钩子报错解决方法<br />
执行时间 ＝ 取启动时间 () － 开始监视时间<br />
Message ＝ 指针到字节集 (lParam, 24)<br />
VkCode ＝ 取字节集数据 (Message, #整数型, 1)<br />
.如果真 (nCode ＝ #HC_ACTION)  ' 判断是否是有效按键<br />
    .如果真 (wParam ＝ 256 或 wParam ＝ 257)  ' 按下，放开，单击（ 或 wParam ＝ 258）——把这个加进去就是单击事件了<br />
        编辑框1.加入文本 (“0,” ＋ 到文本 (执行时间) ＋ “,” ＋ 到文本 (wParam) ＋ “,” ＋ 到文本 (VkCode) ＋ #换行符)<br />
        ' 键盘_回调 (VkCode, wParam) ' 这个是你自己调用的子程序，直接把键代码跟键状态传进去就好了<br />
    .如果真结束<br />
<br />
.如果真结束<br />
返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))