易语言做软件实现登陆就添加指定文件,关闭就自动删除

易语言做软件实现登陆就添加指定文件,关闭就自动删除，求解决啊

两个事件，一个自定义个子程序，登录成功后执行，将资源列表里面的文件，使用写到文件命令（）创建到本地硬盘， 第二个使用窗口将被销毁事件 使用删除文件（）命令删除文件

源码：

.版本 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”)     结束 ()     .默认

    .判断结束

    .判断循环尾 () .默认

.判断结束