DNF用易语言怎么编写连发程序

.版本

2

.程序集

窗口程序集1

.程序集变量

按键

.子程序

__启动窗口_创建完毕

HOOK.安装键盘钩子

(&连发开关)

.子程序

连发开关

.参数

键代码,

整数型

.参数

状态,

整数型

.如果真

(选择框1.选中

＝

真)

.如果真

(状态

≠

257

且

键代码

＝

按键)

.如果真

(时钟1.时钟周期

≠

到整数

(编辑框1.内容))

时钟1.时钟周期

＝

到整数

(编辑框1.内容)

.如果真结束

.如果真结束

.如果真

(状态

＝

257

且

键代码

＝

按键)

时钟1.时钟周期

＝

0

.如果真结束

.如果真结束

.子程序

__启动窗口_将被销毁

HOOK.卸载键盘钩子

()

.子程序

_时钟1_周期事件

按键

(按键,

3)

超级延时

(100,

0)

按键

(按键,

4)

.子程序

_按钮1_被单击

信息框

(“请点击确定后，按下需要连发的按键”,

0,

)

.子程序

__启动窗口_按下某键,

逻辑型

.参数

键代码,

整数型

.参数

功能键状态,

整数型

按键

＝

键代码

信息框

(“设置成功！”,

0,

)

.子程序

_按钮1_按下某键,

逻辑型

.参数

键代码,

整数型

.参数

功能键状态,

整数型

按键

＝

键代码

信息框

(“设置成功！”,

0,

)

.子程序

_选择框1_按下某键,

逻辑型

.参数

键代码,

整数型

.参数

功能键状态,

整数型

按键

＝

键代码

信息框

(“设置成功！”,

0,

)

.子程序

_编辑框1_获得焦点

编辑框1.内容

＝

“”

.子程序

_选择框1_被单击

.如果真

(按键

＝

0)

信息框

(“请设置按键！”,

0,

)

选择框1.选中

＝

假

返回

()

.如果真结束

.如果真

(到整数

(编辑框1.内容)

＜

1)

信息框

(“请输入正确速度！”,

0,

)

.如果真结束

.如果

(选择框1.选中

＝

真)

编辑框1.禁止

＝

真

.否则

编辑框1.禁止

＝

假

-------------------------------------------------------------------------------

组件：

编辑框1

（速度）

按钮1

（确定）

选择框1

（开始连发）

聊天框可以输入说明是游戏的问题

换一个按键的代码就可以了，用易模块就可以