递归火山软件开发平台

标题: 火山pc怎样让时钟周期SetTimer记录一次循环等待超时就销毁？ [打印本页]

作者: 雅婷 时间: 2021-9-1 15:38
标题: 火山pc怎样让时钟周期SetTimer记录一次循环等待超时就销毁？

易语言火山怎样让SetTimer时钟周期记录一次循环超时等待无输入就自动销毁，从而实现识别到2秒内敲击了两次相同按键的效果？（在2秒内如果识别到第二次敲击就立即销毁等待下一次激活输入，如果不自动销毁时钟会一直在后台运行可能会占用系统资源）

以下是我的错误思路示范，不知道哪里错了：

.版本 2
.支持库 spec

.子程序微标键周期反馈事件

限时器＝ 20

.判断开始 (定时器设定值 ≠ 0)  ' 在一开始判断给定的时钟周期是否等于0
' 调试输出 (“时钟循环”, 集_计时器, “次”)
.判断开始 (集_计时器＜限时器)  ' 解释：集_计时器用来记录这个时钟循环了多少次，循环小于30次，且次数不能大于给定的目标 5次
      ' 调试输出 (“这是一个api时钟反馈周期，用于反馈微标键的操作事件----------------------------”)
      集_计时器＝集_计时器＋ 1  ' 没有达到目标就每循环一次都加1次，累计次数
      调试输出 (“时钟循环”, 集_计时器, “次”)
      .如果真 (集_计时器 ≥ 30)
         ' 是否销毁时钟＝销毁时钟_ (0, 0)
      .如果真结束

.判断 (集_计时器 ≥ 30)  ' 如果大于限时器设置的目标，但是小于集_计时器的30次数，则来到这里
      ' 调试输出 (“===========限时器 ----4毫秒内算双击=========”, 限时器)
      ' 调试输出 (“目标是” ＋到文本 (限时器) ＋ “已经超时”, , “但循环还没超时”)
      调试输出 (“集_计时器＞限时器，值为：”, 集_计时器)
      ' 集_计时器＝ 0
      ' 是否销毁时钟＝销毁时钟_ (0, 0)
      .' 如果真 (是否销毁时钟＝假)

         ' 销毁时钟_ (0, 0)
         ' 定时器设定值＝ 0
         ' 集_计时器＝ 0

      .如果真结束

      .判断开始断 (单击次数.次数＜ 3)
         ' 单击次数.次数＝ 1
         ' 单击次数.次数＝单击次数.次数＋ 1
         ' 调试输出 (“按下了中键”, )

      .默认

      .判断结束

.' 判断 (集_计时器＞限时器)  ' 如果时钟循环的次数大于目标限时器的值
      ' 单击次数.次数＝ 0
      ' ' 调试输出 (“===========限时器 ----4毫秒内算双击=========”, 限时器)
      ' 调试输出 (“集_计时器＞限时器，值为：”, 集_计时器)

      ' 是否销毁时钟＝销毁时钟_ (0, 0)
      .' 如果真 (是否销毁时钟＝假)
         ' 销毁时钟_ (0, 0)
         ' 定时器设定值＝ 0
      .如果真结束

.默认

.判断结束
' 调试输出 (“全局_要模拟的按键”, 全局_要模拟的按键, “单击次数.次数”, 单击次数.次数, “集_计时器 ”, 集_计时器, “限时器”, 限时器, “销毁时钟”, 是否销毁时钟)

.默认
' 是否销毁时钟＝销毁时钟_ (0, 0)
.' 如果真 (是否销毁时钟＝假)
      ' 销毁时钟_ (0, 0)
      ' 定时器设定值＝ 0

（为啥我的问题都没人回答呢？是这个论坛没人太冷清还是大佬都懒得回答小白的问题呀？我发了五六篇类似的问题好多天都没人回答，都石沉大海了，不是说这里都是大佬聚集地吗？这样逛论坛根本没办法自学学习到有用的知识哦，好烦）

作者: 雅婷 时间: 2021-9-1 15:47
http://bbs.voldp.com/forum.php?m ... id=10829&extra=
http://bbs.voldp.com/forum.php?m ... id=10824&extra=
http://bbs.voldp.com/forum.php?m ... id=10792&extra=
http://bbs.voldp.com/forum.php?m ... id=10789&extra=
http://bbs.voldp.com/forum.php?m ... id=10679&extra=
奇了怪了，我发了这么多帖子都没一个人回答我，太打击我的积极性了

作者: 1185907650 时间: 2021-9-1 16:32
不需要这么麻烦，http://bbs.voldp.com/forum.php?m ... =%E6%97%B6%E9%92%9F
直接时钟执行后，在事件中做个记录；达到要求就停止就好了。
易语言的问题一般回复的人都少，而且你贴的是易语言的代码哦亲

作者: 雅婷 时间: 2021-9-1 16:40

1185907650 发表于 2021-9-1 16:32
不需要这么麻烦，http://bbs.voldp.com/forum.php?mod=viewthread&tid=6837&highlight=%E6%97%B6%E9%92%9F ...

我其实是想一个键实现单击、双击、三击及长按某键功能，关键就卡在不知道怎么识别这三个状态，而且我写的的代码好像功能会冲突，互相干扰，比如我明明快速双击了两次他就给我识别成1次了

作者: 叮咚茶 时间: 2021-9-1 22:09

(, 下载次数: 61)

N击

作者: kamikaze 时间: 2021-9-2 00:20
直接鼠标钩子即可

作者: 雅婷 时间: 2021-9-2 01:55

叮咚茶发表于 2021-9-1 22:09
N击

你这个有代码模式吗？图片不好复制呀

作者: 雅婷 时间: 2021-9-2 01:59

叮咚茶发表于 2021-9-1 22:09
N击

谢谢，明天我试试

作者: 雅婷 时间: 2021-9-2 02:25

叮咚茶发表于 2021-9-1 22:09
N击

有两个问题，第一是这个不是用在按钮上的，而是打算用在键盘或鼠标侧键上的，第二是你这个n击虽然适用性广，我暂时不知道你这个是2秒内累计的次数，还是任何时候都会累计，还有如果检测到是双击行为就应该输出双击的结果，同时重置计时器和屏蔽其他次数的结果，不能和其他动作重叠或冲突哦，类似于鼠标的左键快速双击是打开文件，慢速单击是重命名那样，功能功独立不会重叠，现在是半夜，等明天我试试你提供的代码，看有没有问题

作者: 雅婷 时间: 2021-9-2 08:27

叮咚茶发表于 2021-9-1 22:09
N击

.版本 2
.子程序键盘钩子回调函数, 整数型, , 回调函数是钩子里最重要的东西
.参数参数一
.参数按键状态
.参数键值
.局部变量按键信息, 按键信息
.版本 2
.支持库 spec
.子程序微标键反馈事件
.参数窗口句柄, 整数型
.参数 wmsg, 整数型
.参数时钟ID, 整数型
.参数 dw, 整数型
' 限时器＝ 20
' 集_计时器＝ 0
销毁时钟_ (窗口句柄, 时钟ID)
.判断开始 (时钟ID ＝单键.驱动组合键 (#微标键, #E键, , 0))
调试输出 (“api模式识别长按”)
集_按键次数累加＝ -1
.判断 (时钟ID ＝单键.驱动组合键 (#微标键, #E键, 2, 2))
.如果真 (集_按键次数累加＞ 0)
调试输出 (集_按键次数累加, “击”)
.如果真结束
集_按键次数累加＝ 0
.默认
.局部变量声音文件_局, 文本型
.局部变量局部_单击次数, 整数型
' 目标按键代码＝取代码 (编辑框1.内容, ) － 32
' 目标按键代码＝取代码 (“174”, ) － 32
' 目标按键代码＝ 8
取键键值＝取字节集数据 (指针到字节集 (键值, 1), #整数型, ) ' 把指针转换成键值，键值取出来了想怎么玩怎么玩
全局_按键状态＝按键状态
定时器设定值＝ 60
集_时间2 ＝ 0
是否超时＝ “未超时”
停止长按＝假
是否双击＝假
.判断开始 (取键键值＝ #WIN键) ' 退格键
.判断开始 (按键状态＝ #按键按下) ' 按下
销毁时钟_ (0, 单键.驱动组合键 (#微标键, #E键, , 0))
销毁时钟_ (0, 单键.驱动组合键 (#微标键, #E键, 2, 2))
设置时钟_ (0, 单键.驱动组合键 (#微标键, #E键, , 0), 200, &微标键反馈事件)
.判断 (按键状态＝ #按键抬起)
销毁时钟_ (0, 单键.驱动组合键 (#微标键, #E键, , 0))
销毁时钟_ (0, 单键.驱动组合键 (#微标键, #E键, 2, 2))
设置时钟_ (0, 单键.驱动组合键 (#微标键, #E键, , 0), 200, &微标键反馈事件)
集_按键次数累加＝集_按键次数累加＋ 1
' 调试输出 (“单击次数”, 集_按键次数累加)
.默认
.判断结束
' 返回 (呼叫窗口函数 (前一窗口句柄, 取窗口句柄 (), wmsg, wparm, lparam))，这个不知道填写什么，就没填写
.默认

复制代码

好家伙，你这变成按键连点器了！！真是猝不及防啊，根本不是想要的效果，按照你这个方式写的，按一下微标键**出五个资源管理器窗口，关都关不赢啊，

我要的是点两下微标键才打开资源管理器，同时屏蔽原始输出的开始按钮，点一下还是原来的开始菜单功能不变，这两次都和第一次的不能冲突。其实要的就是鼠标一样的双击效果

作者: 雅婷 时间: 2021-9-2 08:38

kamikaze 发表于 2021-9-2 00:20
直接鼠标钩子即可

能详细一点吗，我用在侧键上的，想在侧键实现双击，或者利用键盘上的微标键实现双击打开我的电脑功能，双击不能和原来的单击有冲突，意思是检测到双击动作就得屏蔽原来的单击事件，只输出双击动作，我今天看到有人推荐用取启动时间（）命令，但是好像会冲突，单击和双击的功能重叠了

看下如下代码哪里有问题

.版本 2
.支持库 spec
.子程序输出次数, 整数型, 公开
.参数键代码, 整数型
.局部变量上次键代码_局, 整数型, 静态
.局部变量上次时间_局, 整数型, 静态
.局部变量累计_局, 整数型, 静态
.局部变量次数_局, 文本型
.局部变量返回值, 整数型
.如果 (上次键代码_局 ≠ 键代码)
上次键代码_局＝键代码
上次时间_局＝取启动时间 ()
' 时钟1.时钟周期＝ 10
' 定时器设定值＝ 10
输入时间ID ＝集_按键.建立定时器 (10, &微标键反馈事件)
.否则
.判断开始 (取启动时间 () －上次时间_局＜ 600)
累计_局＝累计_局＋ 1
输出调试文本 (“双击” ＋到文本 (累计_局))
上次键代码_局＝ 0
次数_局＝ “双击”
.默认
上次时间_局＝取启动时间 ()
输入时间ID ＝集_按键.建立定时器 (10, &微标键反馈事件)
' 时钟1.时钟周期＝ 10
' 输出调试文本 (“单击”)
次数_局＝ “单击”
.判断结束
.如果结束
.判断开始 (次数_局＝ “双击”)
返回值＝ 2
' 模拟按键 (91, #E键, )
.默认
返回值＝ 0
调试输出 (“按了回车键”)
.判断结束
返回 (返回值)

复制代码

作者: 叮咚茶 时间: 2021-9-2 11:19

雅婷发表于 2021-9-2 08:27
好家伙，你这变成按键连点器了！！真是猝不及防啊，根本不是想要的效果，按照你这个方式写的，按一下微 ...

你真棒,抄都没抄好,直接上代码吧
(, 下载次数: 4)

作者: ZCXXX 时间: 2021-9-2 17:36

雅婷发表于 2021-9-1 16:40
我其实是想一个键实现单击、双击、三击及长按某键功能，关键就卡在不知道怎么识别这三个状态，而且我写 ...

单击双击三级都会混淆的你要自己判断

单击有单击事件

双击有的有事件有的组件没有

三级自己从单击+双击里面判断

至于按住不放这种识别你可以使用按下与放开这2个事件

作者: 雅婷 时间: 2021-9-2 21:00

叮咚茶发表于 2021-9-2 11:19
你真棒,抄都没抄好,直接上代码吧

刚看了，谢谢效果确实有，但我不是用在按钮上的

，而是用在键盘钩子捕获的按键上的，比如我想把左微标键（键代码91 和92）屏蔽掉，改成你这个N击和长按事件，每个输出是事件不能重叠冲突（其实最多3击就够了，多了我怕会出现不同状态下的功能重叠冲突，如果能避免当然更好）

作者: 雅婷 时间: 2021-9-2 21:09

kamikaze 发表于 2021-9-2 00:20
直接鼠标钩子即可

能详细一点吗？我想用键盘钩子把左微标键屏蔽掉然后改成单击双击和长按事件，功能不能有重叠冲突，如果键盘实现了就套用在鼠标上（把微标键改成单击切换下一曲键代码176 双击切换上一曲键码 177 三击微标键暂停播放长按微标键打开我的电脑键码 91 + 69 类似线控耳机那样的效果）

作者: 雅婷 时间: 2021-9-2 21:11

叮咚茶发表于 2021-9-2 11:19
你真棒,抄都没抄好,直接上代码吧

我其实想用键盘钩子把左微标键屏蔽掉然后改成单击双击和长按事件，功能不能有重叠冲突，如果键盘实现了就套用在鼠标上（把微标键改成单击切换下一曲键代码176 双击切换上一曲键码 177 三击微标键暂停播放长按微标键打开我的电脑键码 91 + 69 类似线控耳机那样的效果）

作者: 雅婷 时间: 2021-9-2 22:08

1185907650 发表于 2021-9-1 16:32
不需要这么麻烦，http://bbs.voldp.com/forum.php?mod=viewthread&tid=6837&highlight=%E6%97%B6%E9%92%9F ...

作者: 雅婷 时间: 2021-9-3 01:00
本帖最后由雅婷于 2021-9-3 01:22 编辑

叮咚茶发表于 2021-9-2 11:19
你真棒,抄都没抄好,直接上代码吧

发个网盘给你吧（截图是9.3号那个压缩包里的）链接：https://pan.baidu.com/s/1GSMWjG6WW8-VMqnZNZe_wA
提取码：0000
在吗？我把你的按钮判断改成按键判断如下代码没有任何作用了，按了没反应你看下哪里出了问题呀？

.版本 2
.支持库 spec
.子程序键盘钩子回调函数, 整数型, , 回调函数是钩子里最重要的东西
.参数参数一
.参数按键状态
.参数键值
.局部变量按键信息, 按键信息
.局部变量声音文件_局, 文本型
.局部变量局部_单击次数, 整数型
.局部变量窗口句柄, 整数型
.局部变量时钟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
.默认
.判断结束
返回 (呼叫窗口函数地址 (比较按钮, 窗口句柄, 按键状态, #按键抬起, #按键按下))
.默认
.判断结束
.默认
.判断结束
.如果真结束
<blockquote>

复制代码

(, 下载次数: 27)

作者: mudou 时间: 2021-9-3 01:38
我去，还没弄好呢，大家都给了你思路了，你应该早搞好了的，还有你还在用时钟，你知道它的特性吗，并不适合你现在的功能，其实你用了钩子，完全可以实现你要的功能了，时间判断也并不需要时钟来操作。

作者: mudou 时间: 2021-9-3 03:54
(, 下载次数: 27)
(, 下载次数: 51)

(, 下载次数: 30)

看看是不是你想要的，不用时钟。

作者: 雅婷 时间: 2021-9-3 09:21
本帖最后由雅婷于 2021-9-3 09:34 编辑

mudou 发表于 2021-9-3 03:54
看看是不是你想要的，不用时钟。

问下你这个双击和长按只能在鼠标左键上实现吗？还是任何按键都适用？还有这个单击和双击长按会不会出现功能重叠冲突的情况呀？（因为所有左键出厂都已经有双击功能了，所以不需要实现，我需要的是任何按键都能实现双击三击和长按等功能，把它做成通用方法类，需要哪个键实现功能，就输入哪个键就行的那种，而不是只能用在鼠标左键上）

作者: 雅婷 时间: 2021-9-3 09:40

mudou 发表于 2021-9-3 03:54
看看是不是你想要的，不用时钟。

(, 下载次数: 0) (, 下载次数: 0)

作者: 雅婷 时间: 2021-9-3 09:43

叮咚茶发表于 2021-9-2 11:19
你真棒,抄都没抄好,直接上代码吧

(, 下载次数: 28) (, 下载次数: 27) (, 下载次数: 0) 没效果

作者: 雅婷 时间: 2021-9-3 11:08

mudou 发表于 2021-9-3 03:54
看看是不是你想要的，不用时钟。

(, 下载次数: 38) 在吗？刚试了你这个代码，我觉得我们调试环境可能不一样，（我用的是键盘钩子，当按下某键后按键会一直输出结果，**起时才会停止输出）你这个在我这还是没达到效果，因为我这里测试发现任何时候都会识别成双击，单击直接没了，长按还必须要和别的按键组合才行，我需要的是一个键实现单击双击或三击和长按这四个功能，而不依赖组合键

作者: mudou 时间: 2021-9-3 16:52
你不是要用鼠标来操作的吗，又改键盘了？

作者: mudou 时间: 2021-9-3 17:18

雅婷发表于 2021-9-3 11:08
在吗？刚试了你这个代码，我觉得我们调试环境可能不一样，（我用的是键盘钩子，当按下某键后按键会一直输 ...

你是局部变量吧

作者: 雅婷 时间: 2021-9-3 19:59
本帖最后由雅婷于 2021-9-3 20:17 编辑

mudou 发表于 2021-9-3 16:52
你不是要用鼠标来操作的吗，又改键盘了？

鼠标只是引出例子，相当于抛砖引玉，不能只限于鼠标啊，关键我想要的是键盘也能用，通常来说如果键盘能用的话鼠标一般就能通用，但鼠标能用的键盘不一定能用，因为鼠标获取的钩子按键好像是单次输出，键盘钩子获取的按键是只要按住没抬起来就一直是输出的状态，尤其是已经有默认集成双击的功能，我记得甚至还有个api只要调用这个api就能获得双击的动作，但键盘能双击三击长按操作的我没见过，也没人集成这样的命令，再有就是我怕大家不仔细看问题的大佬会误导一看到鼠标和多次点击连想起来就以为是要做鼠标连点器，或按钮连点器，就一股脑儿不问缘由的推荐我用按键精灵，实际上5楼那位大神就已经被误导了，我想要的是按键操作，他理解成鼠标点按钮的操作了，他的那个按钮n击改成按键钩子后 “返回 (呼叫窗口函数地址 (比较按钮, 窗口句柄, 状态, wParam, lParam))”命令的一二参数和四五参数返回值不知道怎么填了，因为按键没有这些参数，只有按下和**起

作者: 雅婷 时间: 2021-9-3 20:20
本帖最后由雅婷于 2021-9-3 20:23 编辑

叮咚茶发表于 2021-9-2 11:19
你真棒,抄都没抄好,直接上代码吧

那个按钮n击的按钮有四五个参数改成按键钩子后 “返回 (呼叫窗口函数地址 (比较按钮, 窗口句柄, 状态, wParam, lParam))”命令的一二参数和四五参数返回值不知道怎么填了，因为按键钩子没有这些参数，只有按下和抬起，有些参数还是我猜的，尤其是wParam，lParam 两个参数在按键按下时候怎么获取呢？还有第一个参数也有点莫名其妙，不知道要比较什么

作者: 雅婷 时间: 2021-9-4 13:51

叮咚茶发表于 2021-9-2 11:19
你真棒,抄都没抄好,直接上代码吧

如果把返回 (CallWindowProc (oldButtonProc, hwnd, wMsg, wParam, lParam))，换成“ 返回 (调用下一个钩子 (键盘钩子1, 代码, 按键状态, 钩子键值)) CallNextHookEx后面的参数应该怎么填写？主要是你的返回参数有5个，而我这个键盘钩子只有四个参数

作者: 雅婷 时间: 2021-9-4 13:54

mudou 发表于 2021-9-3 03:54
看看是不是你想要的，不用时钟。

用12楼那个大神的代码把返回 (CallWindowProc (oldButtonProc, hwnd, wMsg, wParam, lParam))，换成“ 返回 (调用下一个钩子 (键盘钩子1, 代码, 按键状态, 钩子键值)) CallNextHookEx后面的参数应该怎么填写？主要是它的返回参数有5个，而我这个键盘钩子只有四个参数

作者: qaz2428119 时间: 2021-9-4 20:05
你这是求助还是定制?
你首先要搞明白

作者: 雅婷 时间: 2021-9-5 11:45
本帖最后由雅婷于 2021-9-5 11:47 编辑

qaz2428119 发表于 2021-9-4 20:05
你这是求助还是定制?
你首先要搞明白

我已经搞定了，谢谢你的参与和解答，我不应该把我的用途说出来的，那样感觉我废话有点多有点影响你们理解了，我只需要说怎么实现这个功能就行的，至于实现后用来干嘛这事不用你们操心了，（但我不说用途我又怕你们理解错误，会问我为啥非要实现这个功能之类的）

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)