.版本 2 .支持库 EThread .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 集_队列, 鱼刺类_队列 .程序集变量 文件号, 整数型 .程序集变量 许可证, 整数型 .程序集变量 线程数量, 整数型 .子程序 _按钮1_被单击 文件号 ＝ 打开文件 (取运行目录 () ＋ “\test.txt”, #读入, ) 移到文件首 (文件号) .判断循环首 (是否在文件尾 (文件号, ) ＝ 假) 集_队列.压入文本 (读入一行 (文件号)) .判断循环尾 () 关闭文件 (文件号) 信息框 (“ok”, 0, , ) .子程序 __启动窗口_创建完毕 许可证 ＝ 创建进入许可证 () .子程序 _按钮2_被单击 启动线程 (&开始工作, , ) .子程序 开始工作 .局部变量 线程句柄, 整数型 .判断循环首 (集_队列.取队列长度 () ＞ 0) .判断循环首 (线程数量 ≥ 到整数 (编辑框线程数量.内容)) _延迟 (50) .判断循环尾 () 启动线程 (&多线程导入, , 线程句柄) 进入许可区 (许可证) 线程数量 ＝ 线程数量 ＋ 1 退出许可区 (许可证) 关闭线程句柄 (线程句柄) _延迟 (60) .判断循环尾 () .子程序 多线程导入 .局部变量 文本数据, 文本型 .局部变量 文本数组, 文本型, , "0" .局部变量 账号, 文本型 .局部变量 数字1, 文本型 .局部变量 数字2, 文本型 .局部变量 索引, 整数型 ' 进入许可区 (许可证) 集_队列.弹出文本 (文本数据) ' 退出许可区 (许可证) 文本数组 ＝ 分割文本 (文本数据, “----”, ) .如果真 (取数组成员数 (文本数组) ＝ 2) 数字1 ＝ 文本数组 [1] 数字2 ＝ 文本数组 [2] 进入许可区 (许可证) 索引 ＝ 超级列表框1.插入表项 (, , , , , ) 退出许可区 (许可证) 超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1)) 超级列表框1.置标题 (索引, 1, 数字1) 超级列表框1.置标题 (索引, 2, 数字2) _延迟 (500) 超级列表框1.置标题 (索引, 3, 到文本 (到整数 (数字1) ＋ 到整数 (数字2))) 进入许可区 (许可证) 线程数量 ＝ 线程数量 － 1 退出许可区 (许可证) .如果真结束 .子程序 _按钮3_被单击 .局部变量 随机文本, 文本型 .计次循环首 (300, ) 置随机数种子 () 随机文本 ＝ 随机文本 ＋ 到文本 (取随机数 (5, 100)) ＋ “----” ＋ 到文本 (取随机数 (100, 300)) ＋ #换行符 .计次循环尾 () 写到文件 (取运行目录 () ＋ “\test.txt”, 到字节集 (随机文本)) 信息框 (“ok”, 0, , )