.版本 2 .支持库 iext .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 许可证, 线程许可证 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .局部变量 n, 整数型 ' 注册个许可证 许可证 ＝ 线程_创建许可证 () ' 假设1000条任务 .计次循环首 (1000, i) n ＝ 超级列表框1.插入表项 (-1, 到文本 (i), , , , ) 超级列表框1.置标题 (n, 1, 文本_取随机数字 (取随机数 (6, 12))) 超级列表框1.置标题 (n, 2, “－”) ' 标记为“待执行” .计次循环尾 () .子程序 _按钮1_被单击 .计次循环首 (到整数 (编辑框1.内容), ) 启动线程 (&run, , ) ' 有多少线程启动多少次，也不需要传递参数什么的 .计次循环尾 () .子程序 run, , , 执行操作子程序 .局部变量 i, 整数型 .判断循环首 (真) ' 搞个死循环，保证一直循环下去，然后没任务时再手动跳出 线程_进入许可区 (许可证) ' 操作控件，要加上许可证 i ＝ 超级列表框1.查找表项 (“－”, , 真, 2) ' 查找“待执行”的项目 .如果 (i ＝ -1) ' 找不到惹... 线程_退出许可区 (许可证) ' 别忘了结束（跳出循环下面的代码不会执行，所以要提前写） 跳出循环 () .否则 超级列表框1.置标题 (i, 2, “－ ”) ' 赶紧把标题改了，要不然一会重复执行惹...为惹不影响美观，后面加个空格(俺太聪明惹...) .如果结束 线程_退出许可区 (许可证) ' 别忘了结束 ' ...这里就是登录的主功能实现区了 开始... 超级列表框1.置标题 (i, 2, 选择 (post (超级列表框1.取标题 (i, 1)), “√”, “×”)) ' ...这里就是登录的主功能实现区了 结束... .判断循环尾 () .子程序 post, 逻辑型, , 比如这是个POST登录的子程序 .参数 number, 文本型 ' 略去1000行... 置随机数种子 () 程序_延时 (取随机数 (10, 100)) 返回 (选择 (取随机数 (0, 1) ＝ 0, 假, 真)) ' 略去1000行... .子程序 __启动窗口_将被销毁 ' 最后删掉 线程_删除许可证 (许可证)