- .版本 2
- .支持库 EThread
- .支持库 iext
- .程序集 窗口程序集_启动窗口
- .程序集变量 集_队列, 鱼刺类_队列
- .程序集变量 文件号, 整数型
- .程序集变量 许可证, 整数型
- .程序集变量 线程数量, 整数型
- .子程序 _按钮1_被单击
- 文件号 ＝ 打开文件 (取运行目录 () ＋ “\test.txt”, #读入, )
- 移到文件首 (文件号)
- .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
- 集_队列.压入文本 (读入一行 (文件号))
- .判断循环尾 ()
- 关闭文件 (文件号)
- 信息框 (“ok”, 0, , )
- .子程序 __启动窗口_创建完毕
- 许可证 ＝ 创建进入许可证 ()
- .子程序 _按钮2_被单击
- 启动线程 (&开始工作, , )
- .子程序 开始工作
- .局部变量 线程句柄, 整数型
- .判断循环首 (集_队列.取队列长度 () ＞ 0)
- .判断循环首 (线程数量 ≥ 到整数 (编辑框线程数量.内容)) //中国黑防 www.vcs6.com
- _延迟 (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”, 到字节集 (随机文本)) //中国黑防 www.vcs6.com
- 信息框 (“ok”, 0, , )
|
发表于 2021-3-30 13:43:17
|
/1 
