易语言 如何实现按住热键开启子程序功能 松开热键关闭子程序功能

如题,请高手赐教

.版本 2
.支持库 shellEx
.支持库 spec
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 倒数, 整数型
.程序集变量 线程句柄, 整数型
.子程序 __启动窗口_创建完毕
注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F6键)
时钟1.时钟周期 = 100
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
调试输出 (参数一)
调试输出 (参数二)
.如果真 (参数二 = 0 且 参数一 = 33001)
倒数 = 10
.如果真结束

.子程序 _时钟1_周期事件
倒数 = 倒数 - 1
.如果 (倒数 < 0)
.如果真 (线程句柄 > 0)
强制结束线程 (线程句柄)
线程句柄 = 0
.如果真结束
.否则
.如果真 (线程句柄 = 0)
启动线程 (&子程序1, , 线程句柄)
.如果真结束
.如果结束

.子程序 子程序1
.判断循环首 (倒数 ≥ 0) ' 如果不需要子程序反复执行,可不用循环.
标题 = 到文本 (取现行时间 ())
延时 (500)
.判断循环尾 ()
线程句柄 = 0
温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-07-23
代码
按下某键时
启动线程 (&子程序, , 变量)

松开某键时
关闭线程句柄 (变量)
第2个回答  2013-07-23
代码
按下某键时'响应以下代码
启动线程 (&子程序, , 变量)

松开某键时'响应以下代码
关闭线程句柄 (变量)
第3个回答  2013-07-23

源码都在这了,使用的是输入设备控件,想比之下,注册热键效果要好