如何实现鼠标录制中间隔时间的录制？

summer0411

大家好，想写一个键鼠录制，但是写不好时间这一块，想实现记录单独一行记录时间，比如鼠标左键弹起后，过了2秒再按下左键，能单独记录延时2000毫秒。

  

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

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

拷贝内存_ (按键信息, 参数二, 28)
' 消息值 513=鼠标左键按下  514=鼠标左键放开  516=右键按下  517=右键放开  519=中键按下  520=中键放开
如果真 (开始录制 ＝ 1)
如果真 (设置_单选5 ＝ 1)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “移动”
加入文本列3 ＝ 到文本 (取鼠标水平位置 ())
加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())
加入文本列5 ＝ “真”
加入文本列6 ＝ “假”
插入表项2 ()

判断 (消息值 ＞ 512)
判断 (消息值 ＝ 513)
如果真 (设置_选择8 ＝ 1)
调试输出 (“左键按下”)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “左键按下”
加入文本列3 ＝ 到文本 (取鼠标水平位置 ())
加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())
加入文本列5 ＝ “真”
加入文本列6 ＝ “假”
插入表项2 ()

判断 (消息值 ＝ 514)
如果真 (设置_选择8 ＝ 1)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “左键弹起”
加入文本列3 ＝ 到文本 (取鼠标水平位置 ())
加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())
加入文本列5 ＝ “真”
加入文本列6 ＝ “假”
插入表项2 ()

判断 (消息值 ＝ 516)
如果真 (设置_选择8 ＝ 1)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “右键按下”
加入文本列3 ＝ 到文本 (取鼠标水平位置 ())
加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())
加入文本列5 ＝ “真”
加入文本列6 ＝ “假”
插入表项2 ()

判断 (消息值 ＝ 517)
如果真 (设置_选择8 ＝ 1)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “右键弹起”
加入文本列3 ＝ 到文本 (取鼠标水平位置 ())
加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())
加入文本列5 ＝ “真”
加入文本列6 ＝ “假”
插入表项2 ()

判断 (消息值 ＝ 519)
如果真 (设置_选择8 ＝ 1)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “中键按下”
加入文本列3 ＝ 到文本 (取鼠标水平位置 ())
加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())
加入文本列5 ＝ “真”
加入文本列6 ＝ “假”
插入表项2 ()

判断 (消息值 ＝ 520)
如果真 (设置_选择8 ＝ 1)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “中键弹起”
加入文本列3 ＝ 到文本 (取鼠标水平位置 ())
加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())
加入文本列5 ＝ “真”
加入文本列6 ＝ “假”
插入表项2 ()

判断 (消息值 ＝ 522)
如果真 (设置_选择8 ＝ 1)
如果真 (按键信息.标记 ＝ 7864320)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “滚轮滚动”
加入文本列3 ＝ 到文本 (1)
插入表项2 ()
如果真 (按键信息.标记 ＝ -7864320)
加入文本列1 ＝ “鼠标”
加入文本列2 ＝ “滚轮滚动”
加入文本列3 ＝ 到文本 (-1)
插入表项2 ()





判断 (消息值 ＝ 256)
如果真 (设置_选择7 ＝ 1)
启动线程 (&键盘按下, 按键信息.键代码, )
加入文本列1 ＝ “键盘”
加入文本列2 ＝ “按键按下”
加入文本列3 ＝ 到文本 (键盘_键代码取键名 (按键信息.键代码))
插入表项2 ()

判断 (消息值 ＝ 257)
如果真 (设置_选择7 ＝ 1)
启动线程 (&键盘放开, 按键信息.键代码, )
加入文本列1 ＝ “键盘”
加入文本列2 ＝ “按键弹起”
加入文本列3 ＝ 到文本 (键盘_键代码取键名 (按键信息.键代码))
插入表项2 ()

判断 (消息值 ＝ 260 且 按键信息.键代码 ＝ 164 或 按键信息.键代码 ＝ 165)
如果真 (设置_选择7 ＝ 1)
加入文本列1 ＝ “键盘”
加入文本列2 ＝ “按键按下”
加入文本列3 ＝ 到文本 (键盘_键代码取键名 (按键信息.键代码))
插入表项2 ()





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

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 /> .如果真 (开始录制 ＝ 1)<br />     .如果真 (设置_单选5 ＝ 1)<br />         加入文本列1 ＝ “鼠标”<br />         加入文本列2 ＝ “移动”<br />         加入文本列3 ＝ 到文本 (取鼠标水平位置 ())<br />         加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())<br />         加入文本列5 ＝ “真”<br />         加入文本列6 ＝ “假”<br />         插入表项2 ()<br /> <br />     .如果真结束<br /> <br />     .判断开始 (消息值 ＞ 512)<br /> <br />         .判断开始 (消息值 ＝ 513)<br />             .如果真 (设置_选择8 ＝ 1)<br />                 调试输出 (“左键按下”)<br />                 加入文本列1 ＝ “鼠标”<br />                 加入文本列2 ＝ “左键按下”<br />                 加入文本列3 ＝ 到文本 (取鼠标水平位置 ())<br />                 加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())<br />                 加入文本列5 ＝ “真”<br />                 加入文本列6 ＝ “假”<br />                 插入表项2 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 514)<br />             .如果真 (设置_选择8 ＝ 1)<br />                 加入文本列1 ＝ “鼠标”<br />                 加入文本列2 ＝ “左键弹起”<br />                 加入文本列3 ＝ 到文本 (取鼠标水平位置 ())<br />                 加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())<br />                 加入文本列5 ＝ “真”<br />                 加入文本列6 ＝ “假”<br />                 插入表项2 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 516)<br />             .如果真 (设置_选择8 ＝ 1)<br />                 加入文本列1 ＝ “鼠标”<br />                 加入文本列2 ＝ “右键按下”<br />                 加入文本列3 ＝ 到文本 (取鼠标水平位置 ())<br />                 加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())<br />                 加入文本列5 ＝ “真”<br />                 加入文本列6 ＝ “假”<br />                 插入表项2 ()<br /> <br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 517)<br />             .如果真 (设置_选择8 ＝ 1)<br />                 加入文本列1 ＝ “鼠标”<br />                 加入文本列2 ＝ “右键弹起”<br />                 加入文本列3 ＝ 到文本 (取鼠标水平位置 ())<br />                 加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())<br />                 加入文本列5 ＝ “真”<br />                 加入文本列6 ＝ “假”<br />                 插入表项2 ()<br /> <br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 519)<br />             .如果真 (设置_选择8 ＝ 1)<br />                 加入文本列1 ＝ “鼠标”<br />                 加入文本列2 ＝ “中键按下”<br />                 加入文本列3 ＝ 到文本 (取鼠标水平位置 ())<br />                 加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())<br />                 加入文本列5 ＝ “真”<br />                 加入文本列6 ＝ “假”<br />                 插入表项2 ()<br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 520)<br />             .如果真 (设置_选择8 ＝ 1)<br />                 加入文本列1 ＝ “鼠标”<br />                 加入文本列2 ＝ “中键弹起”<br />                 加入文本列3 ＝ 到文本 (取鼠标水平位置 ())<br />                 加入文本列4 ＝ 到文本 (取鼠标垂直位置 ())<br />                 加入文本列5 ＝ “真”<br />                 加入文本列6 ＝ “假”<br />                 插入表项2 ()<br /> <br />             .如果真结束<br /> <br />         .判断 (消息值 ＝ 522)<br />             .如果真 (设置_选择8 ＝ 1)<br />                 .如果真 (按键信息.标记 ＝ 7864320)<br />                     加入文本列1 ＝ “鼠标”<br />                     加入文本列2 ＝ “滚轮滚动”<br />                     加入文本列3 ＝ 到文本 (1)<br />                     插入表项2 ()<br />                 .如果真结束<br />                 .如果真 (按键信息.标记 ＝ -7864320)<br />                     加入文本列1 ＝ “鼠标”<br />                     加入文本列2 ＝ “滚轮滚动”<br />                     加入文本列3 ＝ 到文本 (-1)<br />                     插入表项2 ()<br /> <br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断 (消息值 ＝ 256)<br />         .如果真 (设置_选择7 ＝ 1)<br />             启动线程 (&键盘按下, 按键信息.键代码, )<br />             加入文本列1 ＝ “键盘”<br />             加入文本列2 ＝ “按键按下”<br />             加入文本列3 ＝ 到文本 (键盘_键代码取键名 (按键信息.键代码))<br />             插入表项2 ()<br />         .如果真结束<br /> <br />     .判断 (消息值 ＝ 257)<br />         .如果真 (设置_选择7 ＝ 1)<br />             启动线程 (&键盘放开, 按键信息.键代码, )<br />             加入文本列1 ＝ “键盘”<br />             加入文本列2 ＝ “按键弹起”<br />             加入文本列3 ＝ 到文本 (键盘_键代码取键名 (按键信息.键代码))<br />             插入表项2 ()<br />         .如果真结束<br /> <br />     .判断 (消息值 ＝ 260 且 按键信息.键代码 ＝ 164 或 按键信息.键代码 ＝ 165)<br />         .如果真 (设置_选择7 ＝ 1)<br />             加入文本列1 ＝ “键盘”<br />             加入文本列2 ＝ “按键按下”<br />             加入文本列3 ＝ 到文本 (键盘_键代码取键名 (按键信息.键代码))<br />             插入表项2 ()<br />         .如果真结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> 返回 (呼叫下一钩子_ (鼠标钩子句柄, 代码值, 消息值, 参数二))

LEOONL

summer0411 发表于 2024-11-28 10:06
不行，试过了，传递出来的是一堆15ms，我想实现如果间隔时间是2000ms，就是一个延时2000ms ,而不是一堆15 ...

判断与上一次坐标相等就整数变量+1，判断不相等就是监控间隔×次数

  

子程序名	返回值类型	公开	备 注
抓坐标

变量名	类 型	静态	数组	备 注
x	整数型
y	整数型
x2	整数型
y2	整数型

判断循环首 (真)
x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
如果 (x ＝ x2 且 y ＝ y2)
静止次数 ＝ 静止次数 ＋ 1
如果真 (静止次数 ＞ 0)
编辑框1.加入文本 (“(” ＋ 到文本 (静止次数 × 20) ＋ “)” ＋ #换行符 )
静止次数 ＝ 0
编辑框1.加入文本 (到文本 (x) ＋ “-” ＋ 到文本 (y) ＋ #换行符 )
x2 ＝ x
y2 ＝ y
延时 (20)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 抓坐标<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 x2, 整数型<br /> .局部变量 y2, 整数型<br /> <br /> .判断循环首 (真)<br />     x ＝ 取鼠标水平位置 ()<br />     y ＝ 取鼠标垂直位置 ()<br />     .如果 (x ＝ x2 且 y ＝ y2)<br />         静止次数 ＝ 静止次数 ＋ 1<br />     .否则<br />         .如果真 (静止次数 ＞ 0)<br />             编辑框1.加入文本 (“(” ＋ 到文本 (静止次数 × 20) ＋ “)” ＋ #换行符)<br />         .如果真结束<br />         静止次数 ＝ 0<br />         编辑框1.加入文本 (到文本 (x) ＋ “-” ＋ 到文本 (y) ＋ #换行符)<br />         x2 ＝ x<br />         y2 ＝ y<br />     .如果结束<br />     延时 (20)<br /> .判断循环尾 ()

laihobglei

增加一个消息值事件写成延时,传递参数进来不就行了.

summer0411

laihobglei 发表于 2024-11-28 09:59
增加一个消息值事件写成延时,传递参数进来不就行了.

不行，试过了，传递出来的是一堆15ms，我想实现如果间隔时间是2000ms，就是一个延时2000ms ,而不是一堆15ms。

我爱编程e

没明白意思?
不过这种模拟点击鼠标键盘类建议用大漠操作好点吧
大漠插件下载 https://dm.52hsxx.com/dmcj/dm%E5%AF%86%E7%A0%81%E6%98%AF1234.rar