鱼刺多线程登录卓智校园网服务系统源码

部分代码：

.版本 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)  ' 可以根据您的需要返回任意数值

@850536360