键鼠录制的取的第一个时间总是不对，大家帮忙看看。

summer0411

大家帮忙看看，为什么取的第一个时间总是不对。

  

子程序名	返回值类型	公开	备 注
处理消息	整数型
参数名	类 型	参考	可空	数组	备 注
代码值	整数型
消息值	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
按键信息	按键信息
坐标	坐标_

拷贝内存_ (按键信息, 参数二, 28)
' 消息值 513=鼠标左键按下  514=鼠标左键放开  516=右键按下  517=右键放开  519=中键按下  520=中键放开
如果真 (开始录制 ＝ 1)
如果真 (选择框4.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
调试输出 (“鼠标移动”)
动作 ＝ “鼠标移动”
按键 ＝ “无”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

判断 (消息值 ＞ 512)
判断 (消息值 ＝ 513)
如果真 (选择框2.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “鼠标按下”
按键 ＝ “左键”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

判断 (消息值 ＝ 514)
如果真 (选择框2.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “鼠标放开”
按键 ＝ “左键”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

判断 (消息值 ＝ 516)
如果真 (选择框2.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “鼠标按下”
按键 ＝ “右键”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

判断 (消息值 ＝ 517)
如果真 (选择框2.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “鼠标放开”
按键 ＝ “右键”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

判断 (消息值 ＝ 519)
如果真 (选择框2.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “鼠标按下”
按键 ＝ “中键”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

判断 (消息值 ＝ 520)
如果真 (选择框2.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “鼠标放开”
按键 ＝ “中键”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

判断 (消息值 ＝ 522)
如果真 (选择框2.选中 ＝ 真)
如果真 (按键信息.标记 ＝ 7864320)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “滚轮滚动”
按键 ＝ “滚轮”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ 1
插入表项2 ()
间隔 ＝ 取启动时间 ()
如果真 (按键信息.标记 ＝ -7864320)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “滚轮滚动”
按键 ＝ “滚轮”
X ＝ 取鼠标水平位置 ()
Y ＝ 取鼠标垂直位置 ()
滚轮方向 ＝ -1
插入表项2 ()
间隔 ＝ 取启动时间 ()





判断 (消息值 ＝ 256)
如果真 (选择框1.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “键盘按下”
按键 ＝ 键盘_键代码取键名 (按键信息.键代码)
X ＝ -1
Y ＝ -1
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()
启动线程 (&键盘按下, 按键信息.键代码, )

判断 (消息值 ＝ 257)
如果真 (选择框1.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “键盘放开”
按键 ＝ 键盘_键代码取键名 (按键信息.键代码)
X ＝ -1
Y ＝ -1
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()
启动线程 (&键盘放开, 按键信息.键代码, )

判断 (消息值 ＝ 260 且 按键信息.键代码 ＝ 164 或 按键信息.键代码 ＝ 165)
如果真 (选择框1.选中 ＝ 真)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “键盘按下”
按键 ＝ 键盘_键代码取键名 (按键信息.键代码)
X ＝ -1
Y ＝ -1
滚轮方向 ＝ 0
插入表项2 ()
间隔 ＝ 取启动时间 ()

调试输出 (“3”)




返回 (呼叫下一钩子_ (鼠标钩子句柄, 代码值, 消息值, 参数二))

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 处理消息, 整数型<br /> .参数 代码值, 整数型<br /> .参数 消息值, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 按键信息, 按键信息<br /> .局部变量 坐标, 坐标_<br /> <br /> 拷贝内存_ (按键信息, 参数二, 28)<br /> ' 消息值 513=鼠标左键按下  514=鼠标左键放开  516=右键按下  517=右键放开  519=中键按下  520=中键放开<br /> <br /> <br /> <br /> <br /> .如果真 (开始录制 ＝ 1)<br /> <br />     .如果真 (选择框4.选中 ＝ 真)<br />         间隔 ＝ 取启动时间 () － 间隔<br />         调试输出 (“鼠标移动”)<br />         动作 ＝ “鼠标移动”<br />         按键 ＝ “无”<br />         X ＝ 取鼠标水平位置 ()<br />         Y ＝ 取鼠标垂直位置 ()<br />         滚轮方向 ＝ 0<br />         插入表项2 ()<br />         间隔 ＝ 取启动时间 ()<br />     .如果真结束<br /> <br />     .判断开始 (消息值 ＞ 512)<br />         .判断开始 (消息值 ＝ 513)<br />             .如果真 (选择框2.选中 ＝ 真)<br />                 间隔 ＝ 取启动时间 () － 间隔<br />                 动作 ＝ “鼠标按下”<br />                 按键 ＝ “左键”<br />                 X ＝ 取鼠标水平位置 ()<br />                 Y ＝ 取鼠标垂直位置 ()<br />                 滚轮方向 ＝ 0<br /> <br />                 插入表项2 ()<br />                 间隔 ＝ 取启动时间 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 514)<br />             .如果真 (选择框2.选中 ＝ 真)<br />                 间隔 ＝ 取启动时间 () － 间隔<br />                 动作 ＝ “鼠标放开”<br />                 按键 ＝ “左键”<br />                 X ＝ 取鼠标水平位置 ()<br />                 Y ＝ 取鼠标垂直位置 ()<br />                 滚轮方向 ＝ 0<br /> <br />                 插入表项2 ()<br />                 间隔 ＝ 取启动时间 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 516)<br />             .如果真 (选择框2.选中 ＝ 真)<br />                 间隔 ＝ 取启动时间 () － 间隔<br />                 动作 ＝ “鼠标按下”<br />                 按键 ＝ “右键”<br />                 X ＝ 取鼠标水平位置 ()<br />                 Y ＝ 取鼠标垂直位置 ()<br />                 滚轮方向 ＝ 0<br /> <br />                 插入表项2 ()<br />                 间隔 ＝ 取启动时间 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 517)<br />             .如果真 (选择框2.选中 ＝ 真)<br />                 间隔 ＝ 取启动时间 () － 间隔<br />                 动作 ＝ “鼠标放开”<br />                 按键 ＝ “右键”<br />                 X ＝ 取鼠标水平位置 ()<br />                 Y ＝ 取鼠标垂直位置 ()<br />                 滚轮方向 ＝ 0<br /> <br />                 插入表项2 ()<br />                 间隔 ＝ 取启动时间 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 519)<br />             .如果真 (选择框2.选中 ＝ 真)<br />                 间隔 ＝ 取启动时间 () － 间隔<br />                 动作 ＝ “鼠标按下”<br />                 按键 ＝ “中键”<br />                 X ＝ 取鼠标水平位置 ()<br />                 Y ＝ 取鼠标垂直位置 ()<br />                 滚轮方向 ＝ 0<br /> <br />                 插入表项2 ()<br />                 间隔 ＝ 取启动时间 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 520)<br />             .如果真 (选择框2.选中 ＝ 真)<br />                 间隔 ＝ 取启动时间 () － 间隔<br />                 动作 ＝ “鼠标放开”<br />                 按键 ＝ “中键”<br />                 X ＝ 取鼠标水平位置 ()<br />                 Y ＝ 取鼠标垂直位置 ()<br />                 滚轮方向 ＝ 0<br /> <br />                 插入表项2 ()<br />                 间隔 ＝ 取启动时间 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 522)<br />             .如果真 (选择框2.选中 ＝ 真)<br />                 .如果真 (按键信息.标记 ＝ 7864320)<br />                     间隔 ＝ 取启动时间 () － 间隔<br />                     动作 ＝ “滚轮滚动”<br />                     按键 ＝ “滚轮”<br />                     X ＝ 取鼠标水平位置 ()<br />                     Y ＝ 取鼠标垂直位置 ()<br />                     滚轮方向 ＝ 1<br /> <br />                     插入表项2 ()<br />                     间隔 ＝ 取启动时间 ()<br />                 .如果真结束<br />                 .如果真 (按键信息.标记 ＝ -7864320)<br />                     间隔 ＝ 取启动时间 () － 间隔<br />                     动作 ＝ “滚轮滚动”<br />                     按键 ＝ “滚轮”<br />                     X ＝ 取鼠标水平位置 ()<br />                     Y ＝ 取鼠标垂直位置 ()<br />                     滚轮方向 ＝ -1<br /> <br />                     插入表项2 ()<br />                     间隔 ＝ 取启动时间 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断 (消息值 ＝ 256)<br />         .如果真 (选择框1.选中 ＝ 真)<br />             间隔 ＝ 取启动时间 () － 间隔<br />             动作 ＝ “键盘按下”<br />             按键 ＝ 键盘_键代码取键名 (按键信息.键代码)<br />             X ＝ -1<br />             Y ＝ -1<br />             滚轮方向 ＝ 0<br /> <br />             插入表项2 ()<br />             间隔 ＝ 取启动时间 ()<br />             启动线程 (&键盘按下, 按键信息.键代码, )<br />         .如果真结束<br /> <br />     .判断 (消息值 ＝ 257)<br />         .如果真 (选择框1.选中 ＝ 真)<br />             间隔 ＝ 取启动时间 () － 间隔<br />             动作 ＝ “键盘放开”<br />             按键 ＝ 键盘_键代码取键名 (按键信息.键代码)<br />             X ＝ -1<br />             Y ＝ -1<br />             滚轮方向 ＝ 0<br /> <br />             插入表项2 ()<br />             间隔 ＝ 取启动时间 ()<br />             启动线程 (&键盘放开, 按键信息.键代码, )<br />         .如果真结束<br /> <br /> <br />     .判断 (消息值 ＝ 260 且 按键信息.键代码 ＝ 164 或 按键信息.键代码 ＝ 165)<br />         .如果真 (选择框1.选中 ＝ 真)<br />             间隔 ＝ 取启动时间 () － 间隔<br />             动作 ＝ “键盘按下”<br />             按键 ＝ 键盘_键代码取键名 (按键信息.键代码)<br />             X ＝ -1<br />             Y ＝ -1<br />             滚轮方向 ＝ 0<br /> <br />             插入表项2 ()<br />             间隔 ＝ 取启动时间 ()<br /> <br />         .如果真结束<br /> <br />         调试输出 (“3”)<br />     .默认<br /> <br />     .判断结束<br /> <br /> <br /> .如果真结束<br /> <br /> 返回 (呼叫下一钩子_ (鼠标钩子句柄, 代码值, 消息值, 参数二))

Suky

summer0411 发表于 2024-2-21 18:23
是的，怎么处理？

简单粗暴的法子就是  录制结束后   把第一个间隔置空

再复杂的  看你写的这代码    我解释怕你听不明白   到时就是误导了

补充内容 (2024-2-21 18:43):
论坛里其实有记录键鼠的源码的，建议你搜一下看一下，可以参考别人的写法

Suky

间隔 ＝ 取启动时间 () － 间隔

间隔初始为0    所以  你第一个的间隔   实际上是启动时间吧

summer0411

Suky 发表于 2024-2-21 17:57
间隔 ＝ 取启动时间 () － 间隔

间隔初始为0    所以  你第一个的间隔   实际上是启动时间吧 ...

是的，怎么处理？

決不放棄

你软件得有个开始录制的按钮之类的吧，在开始录制后把间隔=0