Question

怎么用易语言写一个连发工具

就是在按住指定键位不放时 启动这个工具放开这个指定键位时就  停止这个工具 时停止而不是关掉 再按下指定键时还可以 启动的 要达到这个效果应该怎么写

Answer 1

.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 热键标识F1, 整数型
.程序集变量 已经启动, 逻辑型

.子程序 __启动窗口_创建完毕

热键标识F1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 热键标识F1)
.如果 (已经启动 ＝ 假)
已经启动 ＝ 真
时钟1.时钟周期 ＝ 1000
.否则
已经启动 ＝ 假
时钟1.时钟周期 ＝ 0
_启动窗口.标题 ＝ “已经停止”
.如果结束

.如果真结束

.子程序 _时钟1_周期事件

' 在这里写你要连发的东西
_启动窗口.标题 ＝ “已经启动”

Answer 2

.版本 2
.支持库 shellEx
.支持库 eAPI
.子程序 __启动窗口_创建完毕
注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F键)
' 按下F键就可以连续按 x 键 再按下F键就可以停下按 x 键
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果 (时钟1.时钟周期 ＝ 0)
时钟1.时钟周期 ＝ 1
.否则
时钟1.时钟周期 ＝ 0
.如果结束
.子程序 _时钟1_周期事件
模拟按键 (#X键, , ) ' 这里改成E模块里的按键命令