易语言，软件编辑好了,怎么添加关闭软件热键 或者 设置时间自动关闭

软件编辑好了,怎么添加关闭软件热键 或者 设置时间自动关闭

源码：

.版本 2
.支持库 spec
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 关闭热键, 整数型
.程序集变量 time, 整数型
.程序集变量 ke, 整数型
.程序集变量 取现行时间关闭, 整数型
.程序集变量 kt, 文本型

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

调试输出 (到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ())))
关闭热键 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键)
time ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)
取现行时间关闭 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F11键)

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

.判断开始 (参数一 ＝ 关闭热键)
    结束 ()
.判断 (参数一 ＝ time)
    ke ＝ 5  ' 5秒后关闭
    .判断循环首 (ke ≠ 0)
    ke ＝ ke － 1
    .判断循环尾 ()
    .判断开始 (ke ＝ 0)
    结束 ()
    .默认

    .判断结束

.判断 (参数一 ＝ 取现行时间关闭)
    .判断循环首 (到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ())) ≠ “20:00:00”)  ' 20:00:00时关闭
    kt ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))
    .判断开始 (kt ＝ “20:00:00”)
    结束 ()
    .默认

    .判断结束

    .判断循环尾 ()
.默认

.判断结束

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息