鼠标键盘钩子脚本录制源码求修改

895012320

对照论坛的https://bbs.125.la/thread-14730340-1-1.html帖子改写的鼠标键盘脚本录制源码，经过修改出来还没有达到要求，现求大神帮修改下。如图所示：

  

子程序名	返回值类型	公开	备 注
鼠标_监听	整数型
参数名	类 型	参考	可空	数组	备 注
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://bbs.125.la/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://bbs.125.la/forum.php?mod=viewthread&tid=14648771" target="_blank">https://bbs.125.la/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))

修改要求录制时加入的文本如果以上画红圈的地方相同的时候不加入的文本里面，请大神帮修改一下。
HOOK键盘鼠标钩子22.e (18.16 KB, 下载次数: 10)

2024-9-30 09:51 上传

点击文件名下载附件

LEOONL

HOOK键盘鼠标钩子22.e (18.67 KB, 下载次数: 21)

2024-9-30 10:14 上传

点击文件名下载附件