.版本 2 .支持库 EThread .支持库 spec .程序集 窗口程序集_窗口1 .程序集变量 集_许可证, 整数型 .程序集变量 集_许可证_x, 整数型 .程序集变量 集_编号_x, 整数型 .程序集变量 集_信号, 整数型, , , 0 = 继续工作； 1 = 退出 .程序集变量 集_定时值, 整数型, , , 秒 .子程序 _窗口1_创建完毕 集_许可证 ＝ 创建进入许可证 () 集_许可证_x ＝ 创建进入许可证 () .子程序 _窗口1_可否被关闭, 逻辑型 删除进入许可证 (集_许可证) 删除进入许可证 (集_许可证_x) .子程序 任务线程 .局部变量 局_编号, 整数型 进入许可区 (集_许可证_x) 集_编号_x ＝ 集_编号_x ＋ 1 局_编号 ＝ 集_编号_x 退出许可区 (集_许可证_x) .循环判断首 () 调试输出 (“任务线程”, 局_编号, “正在执行任务...”) 进入许可区 (集_许可证) .如果真 (集_信号 ＝ 1) ' //接收到定时关闭信号，退出任务线程 退出许可区 (集_许可证) 调试输出 (“任务线程”, 局_编号, “接收到结束信号，退出任务！”) 跳出循环 () .如果真结束 退出许可区 (集_许可证) 延时 (3000) .循环判断尾 (真) 返回 () .子程序 监控时间 .局部变量 局_当前时间, 日期时间型 .局部变量 局_计时, 整数型 局_当前时间 ＝ 取现行时间 () .循环判断首 () 局_计时 ＝ 取时间间隔 (取现行时间 (), 局_当前时间, #秒) 标签2.标题 ＝ 到文本 (局_计时) .如果真 (局_计时 ≥ 集_定时值) ' //时间 到，发信号关闭任务 进入许可区 (集_许可证) 集_信号 ＝ 1 退出许可区 (集_许可证) 跳出循环 () .如果真结束 延时 (1000) .循环判断尾 (真) 返回 () .子程序 _按钮_开始_被单击 .局部变量 局_线程数量, 整数型 .局部变量 局_句柄, 整数型 集_定时值 ＝ 到整数 (编辑框_定时值.内容) 进入许可区 (集_许可证) 集_信号 ＝ 0 退出许可区 (集_许可证) 进入许可区 (集_许可证_x) 集_编号_x ＝ 0 退出许可区 (集_许可证_x) 局_线程数量 ＝ 10 .计次循环首 (局_线程数量, ) 启动线程 (&任务线程, , 局_句柄) .如果 (0 ＝ 局_句柄) 信息框 (“创建任务线程出错”, 0, , ) 返回 () .否则 CloseHandle (局_句柄) 局_句柄 ＝ 0 .如果结束 .计次循环尾 () 启动线程 (&监控时间, , 局_句柄) .如果 (0 ＝ 局_句柄) 信息框 (“创建监控时间线程出错”, 0, , ) 返回 () .否则 CloseHandle (局_句柄) 局_句柄 ＝ 0 .如果结束 返回 ()