易语言火山怎样让SetTimer时钟周期记录一次循环超时等待无...

LLJ

LLJ 发表于 2021-9-2 17:50
下载还要2 JB，懒得下载
这已经是思路了，你只不过换个写法就不会了吗？比如写成热键

注意有静态变量，精易论坛没显示出来

LLJ

蓝雅婷 发表于 2021-9-3 14:26
识别不到双击应该是这一句 代码 获取不到时间，我调试的时候发现的

果真 (取启动时间 () － 双击时间 ＜ ...

把局部变量 双击时间、长按时间 设置为静态
或者改成全局变量

蓝雅婷

LLJ 发表于 2021-9-2 18:07
单击识别慢没有办法，因为你不希望单击和双击可以同时触发，就必须等待双击超时了才触发单击，你可以降低 ...

识别不到双击应该是这一句 代码 获取不到时间，我调试的时候发现的

果真 (取启动时间 () － 双击时间 ＜ 300)

蓝雅婷

  

子程序名	返回值类型	公开	备 注
键盘钩子回调函数	整数型		回调函数是钩子里最重要的东西
参数名	类 型	参考	可空	数组	备 注
参数一
按键状态
键值

变量名	类 型	静态	数组	备 注
按键信息	按键信息
声音文件_局	文本型
局部_单击次数	整数型
窗口句柄	整数型
时钟id	整数型
按键时间	整数型
比较按钮	整数型
长按时间	整数型
双击时间	整数型

' 目标按键代码 ＝ 取代码 (编辑框1.内容, ) － 32
' 目标按键代码 ＝ 取代码 (“174”, ) － 32
' 目标按键代码 ＝ 8
取键键码_钩子 ＝ 取字节集数据 (指针到字节集 (键值, 1), #整数型, )  ' 把指针转换成键值，键值取出来了想怎么玩怎么玩
全局_按键状态 ＝ 按键状态
定时器设定值 ＝ 60
' 调试输出 (取键键码_钩子)
集_时间2 ＝ 0
是否超时 ＝ “未超时”
停止长按 ＝ 假
是否双击 ＝ 假
窗口句柄 ＝ 0
如果真 (取键键码_钩子 ＝ #WIN键 )  ' 键码91
判断 (微标键切换模式.选中 ＝ 真)
判断 (按键状态 ＝ #按键按下 )  ' 按下
如果 (按下 ＝ 假)
按下 ＝ 真
长按时间 ＝ 取启动时间 ()
如果 (双击 ＝ 假)
双击 ＝ 真
双击时间 ＝ 取启动时间 ()
如果真 (取启动时间 () － 双击时间 ＜ 300)
双击 ＝ 假
输出调试文本 (“双击”)
双击时间 ＝ 取启动时间 ()
如果真 (双击)
' 调试输出 (双击)
' 累计 ＝ 累计 ＋ 1

如果真 (取启动时间 () － 长按时间 ＞ 1000)
长按时间 ＝ 取启动时间 ()
双击 ＝ 假  ' 防止放开后触发单击事件
输出调试文本 (“长按”)

' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为
' 调试输出 (取键键码_钩子)
判断 (按键状态 ＝ #按键抬起 )  ' 按下
按下 ＝ 假
如果真 (双击)
如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击
双击 ＝ 假
调试输出 (“单击”, “累计单击次数”, 累计)


' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为
' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为
' 调试输出 (取键键码_钩子)
' 按下 ＝ 假

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 键盘钩子回调函数, 整数型, , 回调函数是钩子里最重要的东西<br /> .参数 参数一<br /> .参数 按键状态<br /> .参数 键值<br /> .局部变量 按键信息, 按键信息<br /> .局部变量 声音文件_局, 文本型<br /> .局部变量 局部_单击次数, 整数型<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 时钟id, 整数型<br /> .局部变量 按键时间, 整数型<br /> .局部变量 比较按钮, 整数型<br /> .局部变量 长按时间, 整数型<br /> .局部变量 双击时间, 整数型<br /> <br /> ' 目标按键代码 ＝ 取代码 (编辑框1.内容, ) － 32<br /> ' 目标按键代码 ＝ 取代码 (“174”, ) － 32<br /> ' 目标按键代码 ＝ 8<br /> 取键键码_钩子 ＝ 取字节集数据 (指针到字节集 (键值, 1), #整数型, )  ' 把指针转换成键值，键值取出来了想怎么玩怎么玩<br /> 全局_按键状态 ＝ 按键状态<br /> 定时器设定值 ＝ 60<br /> ' 调试输出 (取键键码_钩子)<br /> <br /> 集_时间2 ＝ 0<br /> 是否超时 ＝ “未超时”<br /> <br /> 停止长按 ＝ 假<br /> 是否双击 ＝ 假<br /> 窗口句柄 ＝ 0<br /> <br /> <br /> <br /> <br /> <br /> <br /> .如果真 (取键键码_钩子 ＝ #WIN键)  ' 键码91<br />     .判断开始 (微标键切换模式.选中 ＝ 真)<br />         .判断开始 (按键状态 ＝ #按键按下)  ' 按下<br />             .如果 (按下 ＝ 假)<br />                 按下 ＝ 真<br />                 长按时间 ＝ 取启动时间 ()<br />                 .如果 (双击 ＝ 假)<br />                     双击 ＝ 真<br />                     双击时间 ＝ 取启动时间 ()<br />                 .否则<br />                     .如果真 (取启动时间 () － 双击时间 ＜ 300)<br />                         双击 ＝ 假<br />                         输出调试文本 (“双击”)<br />                     .如果真结束<br />                     双击时间 ＝ 取启动时间 ()<br />                 .如果结束<br />                 .如果真 (双击)<br />                     ' 调试输出 (双击)<br />                     ' 累计 ＝ 累计 ＋ 1<br />                 .如果真结束<br /> <br />             .否则<br />                 .如果真 (取启动时间 () － 长按时间 ＞ 1000)<br />                     长按时间 ＝ 取启动时间 ()<br />                     双击 ＝ 假  ' 防止放开后触发单击事件<br />                     输出调试文本 (“长按”)<br /> <br />                 .如果真结束<br /> <br />             .如果结束<br />             ' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为<br />             ' 调试输出 (取键键码_钩子)<br />         .判断 (按键状态 ＝ #按键抬起)  ' 按下<br />             按下 ＝ 假<br />             .如果真 (双击)<br />                 .如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击<br />                     双击 ＝ 假<br />                     调试输出 (“单击”, “累计单击次数”, 累计)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br /> <br /> <br />             ' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为<br />             ' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为<br />             ' 调试输出 (取键键码_钩子)<br />             ' 按下 ＝ 假<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束

2021.9.2鼠标侧键-新增模式切换功能-有问题未修复（精易论坛请教）.zip.zip (414.97 KB, 下载次数: 0)

2021-9-3 13:36 上传

点击文件名下载附件

LLJ 发表于 2021-9-2 18:07
单击识别慢没有办法，因为你不希望单击和双击可以同时触发，就必须等待双击超时了才触发单击，你可以降低 ...

在吗 ？最新问题，能否看下，我觉得我们调试环境可能不一样，建议下载我的源码里面测试，或者你申明一个键盘钩子调试（我用的是键盘钩子，当按下某键后按键会一直输出结果，直到抬起时才会停止输出，） 你这个代码我放到里面去只能识别到单击和长按的操作，双击识别不到是怎么回事呀？  [e=4].版本 2

蓝雅婷

LLJ 发表于 2021-9-2 18:07
单击识别慢没有办法，因为你不希望单击和双击可以同时触发，就必须等待双击超时了才触发单击，你可以降低 ...

在吗 ？最新问题，能否看下，我觉得我们调试环境可能不一样，建议下载我的源码里面测试，或者你申明一个键盘钩子调试（我用的是键盘钩子，当按下某键后按键会一直输出结果，直到抬起时才会停止输出，） 你这个代码我放到里面去只能识别到单击和长按的操作，双击识别不到是怎么回事呀？  

  

.版本 2[attach]1122559[/attach]
如果真 (取键键码_钩子 ＝ #WIN键 )  ' 键码91
判断 (微标键切换模式.选中 ＝ 真)
判断 (按键状态 ＝ #按键按下 )  ' 按下
如果 (按下 ＝ 假)
按下 ＝ 真
长按时间 ＝ 取启动时间 ()
如果 (双击 ＝ 假)
双击 ＝ 真
双击时间 ＝ 取启动时间 ()
如果真 (取启动时间 () － 双击时间 ＜ 300)
双击 ＝ 假
输出调试文本 (“双击”)
双击时间 ＝ 取启动时间 ()
如果真 (双击)
' 调试输出 (双击)
' 累计 ＝ 累计 ＋ 1

如果真 (取启动时间 () － 长按时间 ＞ 1000)
长按时间 ＝ 取启动时间 ()
双击 ＝ 假  ' 防止放开后触发单击事件
输出调试文本 (“长按”)

' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为
' 调试输出 (取键键码_钩子)
判断 (按键状态 ＝ #按键抬起 )  ' 按下
按下 ＝ 假
如果真 (双击)
如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击
双击 ＝ 假
调试输出 (“单击”, “累计单击次数”, 累计)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .支持库 spec<br /> <br /> .如果真 (取键键码_钩子 ＝ #WIN键)  ' 键码91<br />     .判断开始 (微标键切换模式.选中 ＝ 真)<br />         .判断开始 (按键状态 ＝ #按键按下)  ' 按下<br />             .如果 (按下 ＝ 假)<br />                 按下 ＝ 真<br />                 长按时间 ＝ 取启动时间 ()<br />                 .如果 (双击 ＝ 假)<br />                     双击 ＝ 真<br />                     双击时间 ＝ 取启动时间 ()<br />                 .否则<br />                     .如果真 (取启动时间 () － 双击时间 ＜ 300)<br />                         双击 ＝ 假<br />                         输出调试文本 (“双击”)<br />                     .如果真结束<br />                     双击时间 ＝ 取启动时间 ()<br />                 .如果结束<br />                 .如果真 (双击)<br />                     ' 调试输出 (双击)<br />                     ' 累计 ＝ 累计 ＋ 1<br />                 .如果真结束<br /> <br />             .否则<br />                 .如果真 (取启动时间 () － 长按时间 ＞ 1000)<br />                     长按时间 ＝ 取启动时间 ()<br />                     双击 ＝ 假  ' 防止放开后触发单击事件<br />                     输出调试文本 (“长按”)<br /> <br />                 .如果真结束<br /> <br />             .如果结束<br />             ' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为<br />             ' 调试输出 (取键键码_钩子)<br />         .判断 (按键状态 ＝ #按键抬起)  ' 按下<br />             按下 ＝ 假<br />             .如果真 (双击)<br />                 .如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击<br />                     双击 ＝ 假<br />                     调试输出 (“单击”, “累计单击次数”, 累计)<br />                 .如果真结束<br /> <br />             .如果真结束

蓝雅婷

LLJ 发表于 2021-9-2 18:07
单击识别慢没有办法，因为你不希望单击和双击可以同时触发，就必须等待双击超时了才触发单击，你可以降低 ...

在吗 ？最新问题，能否看下，我觉得我们调试环境可能不一样，建议下载我的源码里面测试，或者你申明一个键盘钩子调试（我用的是键盘钩子，当按下某键后按键会一直输出结果，直到抬起时才会停止输出，） 你这个代码我放到里面去只能识别到单击和长按的操作，双击识别不到是怎么回事呀？  

  

.版本 2[attach]1122559[/attach]
如果真 (取键键码_钩子 ＝ #WIN键 )  ' 键码91
判断 (微标键切换模式.选中 ＝ 真)
判断 (按键状态 ＝ #按键按下 )  ' 按下
如果 (按下 ＝ 假)
按下 ＝ 真
长按时间 ＝ 取启动时间 ()
如果 (双击 ＝ 假)
双击 ＝ 真
双击时间 ＝ 取启动时间 ()
如果真 (取启动时间 () － 双击时间 ＜ 300)
双击 ＝ 假
输出调试文本 (“双击”)
双击时间 ＝ 取启动时间 ()
如果真 (双击)
' 调试输出 (双击)
' 累计 ＝ 累计 ＋ 1

如果真 (取启动时间 () － 长按时间 ＞ 1000)
长按时间 ＝ 取启动时间 ()
双击 ＝ 假  ' 防止放开后触发单击事件
输出调试文本 (“长按”)

' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为
' 调试输出 (取键键码_钩子)
判断 (按键状态 ＝ #按键抬起 )  ' 按下
按下 ＝ 假
如果真 (双击)
如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击
双击 ＝ 假
调试输出 (“单击”, “累计单击次数”, 累计)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .支持库 spec<br /> <br /> .如果真 (取键键码_钩子 ＝ #WIN键)  ' 键码91<br />     .判断开始 (微标键切换模式.选中 ＝ 真)<br />         .判断开始 (按键状态 ＝ #按键按下)  ' 按下<br />             .如果 (按下 ＝ 假)<br />                 按下 ＝ 真<br />                 长按时间 ＝ 取启动时间 ()<br />                 .如果 (双击 ＝ 假)<br />                     双击 ＝ 真<br />                     双击时间 ＝ 取启动时间 ()<br />                 .否则<br />                     .如果真 (取启动时间 () － 双击时间 ＜ 300)<br />                         双击 ＝ 假<br />                         输出调试文本 (“双击”)<br />                     .如果真结束<br />                     双击时间 ＝ 取启动时间 ()<br />                 .如果结束<br />                 .如果真 (双击)<br />                     ' 调试输出 (双击)<br />                     ' 累计 ＝ 累计 ＋ 1<br />                 .如果真结束<br /> <br />             .否则<br />                 .如果真 (取启动时间 () － 长按时间 ＞ 1000)<br />                     长按时间 ＝ 取启动时间 ()<br />                     双击 ＝ 假  ' 防止放开后触发单击事件<br />                     输出调试文本 (“长按”)<br /> <br />                 .如果真结束<br /> <br />             .如果结束<br />             ' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为<br />             ' 调试输出 (取键键码_钩子)<br />         .判断 (按键状态 ＝ #按键抬起)  ' 按下<br />             按下 ＝ 假<br />             .如果真 (双击)<br />                 .如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击<br />                     双击 ＝ 假<br />                     调试输出 (“单击”, “累计单击次数”, 累计)<br />                 .如果真结束<br /> <br />             .如果真结束

蓝雅婷

LLJ 发表于 2021-9-2 17:50
下载还要2 JB，懒得下载
这已经是思路了，你只不过换个写法就不会了吗？比如写成热键

在吗 ？最新问题，能否看下，我觉得我们调试环境可能不一样，建议下载我的源码里面测试，或者你申明一个键盘钩子调试（我用的是键盘钩子，当按下某键后按键会一直输出结果，直到抬起时才会停止输出，） 你这个代码我放到里面去只能识别到单击和长按的操作，双击识别不到是怎么回事呀？  

  

.版本 2[attach]1122559[/attach]
如果真 (取键键码_钩子 ＝ #WIN键 )  ' 键码91
判断 (微标键切换模式.选中 ＝ 真)
判断 (按键状态 ＝ #按键按下 )  ' 按下
如果 (按下 ＝ 假)
按下 ＝ 真
长按时间 ＝ 取启动时间 ()
如果 (双击 ＝ 假)
双击 ＝ 真
双击时间 ＝ 取启动时间 ()
如果真 (取启动时间 () － 双击时间 ＜ 300)
双击 ＝ 假
输出调试文本 (“双击”)
双击时间 ＝ 取启动时间 ()
如果真 (双击)
' 调试输出 (双击)
' 累计 ＝ 累计 ＋ 1

如果真 (取启动时间 () － 长按时间 ＞ 1000)
长按时间 ＝ 取启动时间 ()
双击 ＝ 假  ' 防止放开后触发单击事件
输出调试文本 (“长按”)

' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为
' 调试输出 (取键键码_钩子)
判断 (按键状态 ＝ #按键抬起 )  ' 按下
按下 ＝ 假
如果真 (双击)
如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击
双击 ＝ 假
调试输出 (“单击”, “累计单击次数”, 累计)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .支持库 spec<br /> <br /> .如果真 (取键键码_钩子 ＝ #WIN键)  ' 键码91<br />     .判断开始 (微标键切换模式.选中 ＝ 真)<br />         .判断开始 (按键状态 ＝ #按键按下)  ' 按下<br />             .如果 (按下 ＝ 假)<br />                 按下 ＝ 真<br />                 长按时间 ＝ 取启动时间 ()<br />                 .如果 (双击 ＝ 假)<br />                     双击 ＝ 真<br />                     双击时间 ＝ 取启动时间 ()<br />                 .否则<br />                     .如果真 (取启动时间 () － 双击时间 ＜ 300)<br />                         双击 ＝ 假<br />                         输出调试文本 (“双击”)<br />                     .如果真结束<br />                     双击时间 ＝ 取启动时间 ()<br />                 .如果结束<br />                 .如果真 (双击)<br />                     ' 调试输出 (双击)<br />                     ' 累计 ＝ 累计 ＋ 1<br />                 .如果真结束<br /> <br />             .否则<br />                 .如果真 (取启动时间 () － 长按时间 ＞ 1000)<br />                     长按时间 ＝ 取启动时间 ()<br />                     双击 ＝ 假  ' 防止放开后触发单击事件<br />                     输出调试文本 (“长按”)<br /> <br />                 .如果真结束<br /> <br />             .如果结束<br />             ' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为<br />             ' 调试输出 (取键键码_钩子)<br />         .判断 (按键状态 ＝ #按键抬起)  ' 按下<br />             按下 ＝ 假<br />             .如果真 (双击)<br />                 .如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击<br />                     双击 ＝ 假<br />                     调试输出 (“单击”, “累计单击次数”, 累计)<br />                 .如果真结束<br /> <br />             .如果真结束

蓝雅婷

LLJ 发表于 2021-9-2 17:50
下载还要2 JB，懒得下载
这已经是思路了，你只不过换个写法就不会了吗？比如写成热键

在吗 ？最新问题，能否看下，我觉得我们调试环境可能不一样，建议下载我的源码里面测试，或者你申明一个键盘钩子调试（我用的是键盘钩子，当按下某键后按键会一直输出结果，直到抬起时才会停止输出，） 你这个代码我放到里面去只能识别到单击和长按的操作，双击识别不到是怎么回事呀？  

  

.版本 2[attach]1122559[/attach]
如果真 (取键键码_钩子 ＝ #WIN键 )  ' 键码91
判断 (微标键切换模式.选中 ＝ 真)
判断 (按键状态 ＝ #按键按下 )  ' 按下
如果 (按下 ＝ 假)
按下 ＝ 真
长按时间 ＝ 取启动时间 ()
如果 (双击 ＝ 假)
双击 ＝ 真
双击时间 ＝ 取启动时间 ()
如果真 (取启动时间 () － 双击时间 ＜ 300)
双击 ＝ 假
输出调试文本 (“双击”)
双击时间 ＝ 取启动时间 ()
如果真 (双击)
' 调试输出 (双击)
' 累计 ＝ 累计 ＋ 1

如果真 (取启动时间 () － 长按时间 ＞ 1000)
长按时间 ＝ 取启动时间 ()
双击 ＝ 假  ' 防止放开后触发单击事件
输出调试文本 (“长按”)

' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为
' 调试输出 (取键键码_钩子)
判断 (按键状态 ＝ #按键抬起 )  ' 按下
按下 ＝ 假
如果真 (双击)
如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击
双击 ＝ 假
调试输出 (“单击”, “累计单击次数”, 累计)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .支持库 spec<br /> <br /> .如果真 (取键键码_钩子 ＝ #WIN键)  ' 键码91<br />     .判断开始 (微标键切换模式.选中 ＝ 真)<br />         .判断开始 (按键状态 ＝ #按键按下)  ' 按下<br />             .如果 (按下 ＝ 假)<br />                 按下 ＝ 真<br />                 长按时间 ＝ 取启动时间 ()<br />                 .如果 (双击 ＝ 假)<br />                     双击 ＝ 真<br />                     双击时间 ＝ 取启动时间 ()<br />                 .否则<br />                     .如果真 (取启动时间 () － 双击时间 ＜ 300)<br />                         双击 ＝ 假<br />                         输出调试文本 (“双击”)<br />                     .如果真结束<br />                     双击时间 ＝ 取启动时间 ()<br />                 .如果结束<br />                 .如果真 (双击)<br />                     ' 调试输出 (双击)<br />                     ' 累计 ＝ 累计 ＋ 1<br />                 .如果真结束<br /> <br />             .否则<br />                 .如果真 (取启动时间 () － 长按时间 ＞ 1000)<br />                     长按时间 ＝ 取启动时间 ()<br />                     双击 ＝ 假  ' 防止放开后触发单击事件<br />                     输出调试文本 (“长按”)<br /> <br />                 .如果真结束<br /> <br />             .如果结束<br />             ' 检测_集.输出次数 (#WIN键, &微标键反馈事件)  ' 检测双击单击还是长按行为<br />             ' 调试输出 (取键键码_钩子)<br />         .判断 (按键状态 ＝ #按键抬起)  ' 按下<br />             按下 ＝ 假<br />             .如果真 (双击)<br />                 .如果真 (取启动时间 () － 双击时间 ＞ 300)  ' 如果双击超时，那就是单击<br />                     双击 ＝ 假<br />                     调试输出 (“单击”, “累计单击次数”, 累计)<br />                 .如果真结束<br /> <br />             .如果真结束

蓝雅婷

LLJ 发表于 2021-9-2 18:03
看这截图的代码，就觉得你还需要再练。
另外SetTimer的精度是不准确的，更不要用这个来累加计时，要计时 ...

把按钮判断改成按键判断 如下代码没有任何作用了，你看下哪里出了问题，或者结合你之前的 取启动时间（）命令修改一下能否使用

  

子程序名	返回值类型	公开	备 注
键盘钩子回调函数	整数型		回调函数是钩子里最重要的东西
参数名	类 型	参考	可空	数组	备 注
参数一
按键状态
键值

变量名	类 型	静态	数组	备 注
按键信息	按键信息
声音文件_局	文本型
局部_单击次数	整数型
窗口句柄	整数型
时钟id	整数型
按键时间	整数型
比较按钮	整数型

' 目标按键代码 ＝ 取代码 (编辑框1.内容, ) － 32
' 目标按键代码 ＝ 取代码 (“174”, ) － 32
' 目标按键代码 ＝ 8
取键键码_钩子 ＝ 取字节集数据 (指针到字节集 (键值, 1), #整数型, )  ' 把指针转换成键值，键值取出来了想怎么玩怎么玩
全局_按键状态 ＝ 按键状态
定时器设定值 ＝ 60
' 调试输出 (取键键码_钩子)
集_时间2 ＝ 0
是否超时 ＝ “未超时”
停止长按 ＝ 假
是否双击 ＝ 假
窗口句柄 ＝ 0
如果真 (取键键码_钩子 ＝ #WIN键 )  ' 退格键 键码91
调试输出 (“微标键按下，键码：”, #WIN键 )
判断 (微标键切换模式.选中 ＝ 真)
判断 (按键状态 ＝ #按键按下 )  ' 按下
调试输出 (“微标键按下，键码：”, #WIN键 )
' 多次点击.连点器 (取键键值)
销毁时钟_ (窗口句柄, #按键按下 )  ' //  #ID_TIME_MOUSE_CLICKDOWN = 2
销毁时钟_ (窗口句柄, #按键抬起 )  ' //#ID_TIME_MOUSE_CLICKUP = 3
时钟id ＝ 设置时钟 (0, 按键状态, 260, 0)
判断 (按键状态 ＝ #按键抬起 )  ' 按下
调试输出 (“微标键抬起，键码：”, #WIN键 )
' 多次点击.连点器 (取键键值)
销毁时钟_ (窗口句柄, #按键按下 )  ' //  #ID_TIME_MOUSE_CLICKDOWN = 2
销毁时钟_ (窗口句柄, #按键抬起 )  ' //#ID_TIME_MOUSE_CLICKUP = 3
时钟id ＝ 设置时钟 (窗口句柄, 按键状态, 260, 0)
按键时间 ＝ 按键时间 ＋ 1
判断 (按键状态 ≠ #按键抬起 )  ' 按下 #系统定时器
销毁时钟_ (窗口句柄, #按键抬起 )  ' 原wParam
判断 ( #按键抬起 ＝ #按键按下 )  ' 判断 (wParam ＝ #按键按下)
获取按键点击 (按键时间)
按键时间 ＝ -1
判断 ( #按键抬起 ＝ #按键抬起 )  ' 判断 (wParam ＝ #按键按下)
如果真 (按键时间 ＞ 0)
获取按键点击 (按键时间)
按键时间 ＝ 0


返回 (呼叫窗口函数地址 (比较按钮, 窗口句柄, 按键状态, #按键抬起, #按键按下 ))

子程序名	返回值类型	公开	备 注
获取按键点击
参数名	类 型	参考	可空	数组	备 注
点击次数	整数型				flag

判断 (点击次数 ＝ 0)
调试输出 (“长按”)
判断 (点击次数 ＝ 1)
调试输出 (“单击”)
判断 (点击次数 ＝ 2)
调试输出 (“双击”)
载入 (窗口1, , 真)

调试输出 (点击次数, “击”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 键盘钩子回调函数, 整数型, , 回调函数是钩子里最重要的东西<br /> .参数 参数一<br /> .参数 按键状态<br /> .参数 键值<br /> .局部变量 按键信息, 按键信息<br /> .局部变量 声音文件_局, 文本型<br /> .局部变量 局部_单击次数, 整数型<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 时钟id, 整数型<br /> .局部变量 按键时间, 整数型<br /> .局部变量 比较按钮, 整数型<br /> <br /> ' 目标按键代码 ＝ 取代码 (编辑框1.内容, ) － 32<br /> ' 目标按键代码 ＝ 取代码 (“174”, ) － 32<br /> ' 目标按键代码 ＝ 8<br /> 取键键码_钩子 ＝ 取字节集数据 (指针到字节集 (键值, 1), #整数型, )  ' 把指针转换成键值，键值取出来了想怎么玩怎么玩<br /> 全局_按键状态 ＝ 按键状态<br /> 定时器设定值 ＝ 60<br /> ' 调试输出 (取键键码_钩子)<br /> <br /> 集_时间2 ＝ 0<br /> 是否超时 ＝ “未超时”<br /> <br /> 停止长按 ＝ 假<br /> 是否双击 ＝ 假<br /> 窗口句柄 ＝ 0<br /> .如果真 (取键键码_钩子 ＝ #WIN键)  ' 退格键 键码91<br />     调试输出 (“微标键按下，键码：”, #WIN键)<br />     .判断开始 (微标键切换模式.选中 ＝ 真)<br />         .判断开始 (按键状态 ＝ #按键按下)  ' 按下<br />             调试输出 (“微标键按下，键码：”, #WIN键)<br />             ' 多次点击.连点器 (取键键值)<br />             销毁时钟_ (窗口句柄, #按键按下)  ' //  #ID_TIME_MOUSE_CLICKDOWN = 2<br />             销毁时钟_ (窗口句柄, #按键抬起)  ' //#ID_TIME_MOUSE_CLICKUP = 3<br />             时钟id ＝ 设置时钟 (0, 按键状态, 260, 0)<br />         .判断 (按键状态 ＝ #按键抬起)  ' 按下<br />             调试输出 (“微标键抬起，键码：”, #WIN键)<br />             ' 多次点击.连点器 (取键键值)<br />             销毁时钟_ (窗口句柄, #按键按下)  ' //  #ID_TIME_MOUSE_CLICKDOWN = 2<br />             销毁时钟_ (窗口句柄, #按键抬起)  ' //#ID_TIME_MOUSE_CLICKUP = 3<br />             时钟id ＝ 设置时钟 (窗口句柄, 按键状态, 260, 0)<br />             按键时间 ＝ 按键时间 ＋ 1<br />         .判断 (按键状态 ≠ #按键抬起)  ' 按下 #系统定时器<br />             销毁时钟_ (窗口句柄, #按键抬起)  ' 原wParam<br />             .判断开始 (#按键抬起 ＝ #按键按下)  ' 判断 (wParam ＝ #按键按下)<br />                 获取按键点击 (按键时间)<br />                 按键时间 ＝ -1<br />             .判断 (#按键抬起 ＝ #按键抬起)  ' 判断 (wParam ＝ #按键按下)<br />                 .如果真 (按键时间 ＞ 0)<br />                     获取按键点击 (按键时间)<br />                 .如果真结束<br />                 按键时间 ＝ 0<br />             .默认<br /> <br />             .判断结束<br />             返回 (呼叫窗口函数地址 (比较按钮, 窗口句柄, 按键状态, #按键抬起, #按键按下))<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 获取按键点击<br /> .参数 点击次数, 整数型, , flag<br /> <br /> .判断开始 (点击次数 ＝ 0)<br />     调试输出 (“长按”)<br /> .判断 (点击次数 ＝ 1)<br />     调试输出 (“单击”)<br /> .判断 (点击次数 ＝ 2)<br />     调试输出 (“双击”)<br />     载入 (窗口1, , 真)<br /> <br /> .默认<br />     调试输出 (点击次数, “击”)

蓝雅婷

LLJ 发表于 2021-9-2 18:03
看这截图的代码，就觉得你还需要再练。
另外SetTimer的精度是不准确的，更不要用这个来累加计时，要计时 ...

用于按钮的N击事件，改成键盘狗子 按键事件.e (14.72 KB, 下载次数: 0)

2021-9-2 23:21 上传

点击文件名下载附件
此附件在网盘上也有一份
有个人提供了新的思路 ，这个能识别多次点击不会冲突 也能识别长按，比如2秒内你按8次都行只要手速快，

但是他这个是对按钮起作用的，我把它改成按键钩子就不起作用了，你看看哪里有问题？（他这个实际上就是鼠标连点器）但是我想把他改到按键里去

  

有个人提供了新的思路 ，这个能识别多次点击不会冲突 比如2秒内你按8次都行只要手速快
但是他这个是对按钮起作用的，我把它改成按键钩子就不起作用了

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

比较按钮 ＝ 设置窗口属性 (按钮1.取窗口句柄 (), -4, 到整数 (&新按钮))

子程序名	返回值类型	公开	备 注
新按钮	整数型		newButtonProc
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				hwnd
状态	整数型				wMsg
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
鼠标时间	整数型			m_mouse_flag

判断 (状态 ＝ #按钮向下 )
销毁时钟 (窗口句柄, #ID时间_鼠标_点击向下 )  ' //  #ID_TIME_MOUSE_CLICKDOWN = 2
销毁时钟 (窗口句柄, #ID时间_鼠标_点击向上 )  ' //#ID_TIME_MOUSE_CLICKUP = 3
设置时钟 (窗口句柄, #ID时间_鼠标_点击向下, 260, 0)
判断 (状态 ＝ #按钮向上 )
销毁时钟 (窗口句柄, #ID时间_鼠标_点击向下 )
销毁时钟 (窗口句柄, #ID时间_鼠标_点击向上 )
设置时钟 (窗口句柄, #ID时间_鼠标_点击向上, 260, 0)
鼠标时间 ＝ 鼠标时间 ＋ 1
判断 (状态 ＝ #系统定时器 )
销毁时钟 (窗口句柄, wParam)
判断 (wParam ＝ #ID时间_鼠标_点击向下 )
鼠标点击 (鼠标时间)
鼠标时间 ＝ -1
判断 (wParam ＝ #ID时间_鼠标_点击向上 )
如果真 (鼠标时间 ＞ 0)
鼠标点击 (鼠标时间)
鼠标时间 ＝ 0





返回 (呼叫窗口函数地址 (比较按钮, 窗口句柄, 状态, wParam, lParam))

子程序名	返回值类型	公开	备 注
鼠标点击
参数名	类 型	参考	可空	数组	备 注
点击次数	整数型				flag

判断 (点击次数 ＝ 0)
调试输出 (“长按”)
判断 (点击次数 ＝ 1)
调试输出 (“单击”)
判断 (点击次数 ＝ 2)
调试输出 (“双击”)
载入 (窗口1, , 真)

调试输出 (点击次数, “击”)

i支持库列表	支持库注释
spec	特殊功能支持库

有个人提供了新的思路 ，这个能识别多次点击不会冲突 比如2秒内你按8次都行只要手速快<br /> <br /> 但是他这个是对按钮起作用的，我把它改成按键钩子就不起作用了<br /> .版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 比较按钮 ＝ 设置窗口属性 (按钮1.取窗口句柄 (), -4, 到整数 (&新按钮))<br /> <br /> .子程序 新按钮, 整数型, , newButtonProc<br /> .参数 窗口句柄, 整数型, , hwnd<br /> .参数 状态, 整数型, , wMsg<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 鼠标时间, 整数型, 静态, , m_mouse_flag<br /> <br /> .判断开始 (状态 ＝ #按钮向下)<br />     销毁时钟 (窗口句柄, #ID时间_鼠标_点击向下)  ' //  #ID_TIME_MOUSE_CLICKDOWN = 2<br />     销毁时钟 (窗口句柄, #ID时间_鼠标_点击向上)  ' //#ID_TIME_MOUSE_CLICKUP = 3<br />     设置时钟 (窗口句柄, #ID时间_鼠标_点击向下, 260, 0)<br /> .判断 (状态 ＝ #按钮向上)<br />     销毁时钟 (窗口句柄, #ID时间_鼠标_点击向下)<br />     销毁时钟 (窗口句柄, #ID时间_鼠标_点击向上)<br />     设置时钟 (窗口句柄, #ID时间_鼠标_点击向上, 260, 0)<br />     鼠标时间 ＝ 鼠标时间 ＋ 1<br /> .判断 (状态 ＝ #系统定时器)<br />     销毁时钟 (窗口句柄, wParam)<br />     .判断开始 (wParam ＝ #ID时间_鼠标_点击向下)<br />         鼠标点击 (鼠标时间)<br />         鼠标时间 ＝ -1<br />     .判断 (wParam ＝ #ID时间_鼠标_点击向上)<br />         .如果真 (鼠标时间 ＞ 0)<br />             鼠标点击 (鼠标时间)<br />         .如果真结束<br />         鼠标时间 ＝ 0<br />     .默认<br /> <br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (呼叫窗口函数地址 (比较按钮, 窗口句柄, 状态, wParam, lParam))<br /> <br /> .子程序 鼠标点击<br /> .参数 点击次数, 整数型, , flag<br /> <br /> .判断开始 (点击次数 ＝ 0)<br />     调试输出 (“长按”)<br /> .判断 (点击次数 ＝ 1)<br />     调试输出 (“单击”)<br /> .判断 (点击次数 ＝ 2)<br />     调试输出 (“双击”)<br />     载入 (窗口1, , 真)<br /> <br /> .默认<br />     调试输出 (点击次数, “击”)