.版本 2 .支持库 console .支持库 spec .支持库 EThread .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 time, 整数型 .局部变量 jc, 整数型 .局部变量 jc2, 整数型 .局部变量 文件号_xh, 整数型 .局部变量 控制台对象, 控制台对象 .局部变量 清屏_time, 整数型 运行目录 ＝ 取运行目录 () ＋ “\” .' 如果真 (文件是否存在 (运行目录 ＋ “xh_.bin”) ＝ 假) ' 取可能性学号 () .如果真结束 取可能性学号 () 读缓存学号 () 调试输出 (学号数) 线程数 ＝ 20 许可证 ＝ _创建进入许可证 () 初始化验证码识别 () 线程池.创建 (线程数, , ) 线程_启动 (&调度线程, , ) 清屏_time ＝ 取启动时间 () 启动线程 (&输出统计信息, , ) .判断循环首 (真) ' time ＝ 取启动时间 () .如果真 (执行计次 － 失败计次 ≥ 学号数) 调试输出 (“完成任务！！！”, #换行符) 跳出循环 () .如果真结束 程序_延时 (1000, ) .判断循环尾 () 调试输出 (“正在退出线程池……”, #换行符) .判断循环首 (线程池.取_是否空闲 () ＝ 假) 处理事件 () 程序_延时 (1000, ) .判断循环尾 () 调试输出 (“正在写出有效学号……”, #换行符) 文件号_xh ＝ 打开文件 (运行目录 ＋ “xh.txt”, #重写, ) 调试输出 (文件号_xh) .计次循环首 (学号数, jc) .如果真 (学号_tag [jc] ＝ 1 或 学号_tag [jc] ＝ 3) jc2 ＝ jc2 ＋ 1 调试输出 (格式化学号 (学号 [jc], 8)) .如果真 (jc2 ＞ 9) jc2 ＝ 0 调试输出 (#换行符) .如果真结束 写文本行 (文件号_xh, 格式化学号 (学号 [jc], 8)) .如果真结束 .计次循环尾 () 关闭文件 (文件号_xh) 调试输出 (#换行符) 调试输出 (“完成！”, “写出：”, 到文本 (有效计次), “ 个”, #换行符, “路径为：”, 运行目录 ＋ “xh.txt”) 线程池.销毁 (2, , ) 关闭文件 (文件号_学号_tag) 返回 (0) ' 可以根据您的需要返回任意数值