.版本 2 .支持库 spec .支持库 shell .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 cookie, 文本型 .程序集变量 线程池, 鱼刺类_线程池Ex, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 QQ等级数组, QQ等级类型, , "0" .子程序 __启动窗口_创建完毕 .局部变量 aaa, 文本型 .局部变量 QQ数组, 文本型, , "0" .局部变量 n, 整数型 调试输出 (到文本 ({ 117, 114, 108, 46, 100, 108, 108 })) aaa ＝ 到文本 (读入文件 (取特定目录 (3) ＋ “asd.txt”)) QQ数组 ＝ 分割文本 (aaa, #换行符, ) 重定义数组 (QQ等级数组, 假, 取数组成员数 (QQ数组)) .计次循环首 (取数组成员数 (QQ数组), n) QQ等级数组 [n].QQ号 ＝ QQ数组 [n] .计次循环尾 () .子程序 _按钮1_被单击 ' cookie ＝ 网页_取Cookie (“qzone.qq.com”) ' 置剪辑板文本 (cookie) .' 如果真 (寻找文本 (cookie, “pt4_token=”, , 假) ≠ -1) ' 调试输出 (“获取成功”) .如果真结束 cookie ＝ 编辑框2.内容 .子程序 _按钮2_被单击 启动线程 (&主工作线程, , ) .子程序 主工作线程 .局部变量 总任务数, 整数型 .局部变量 n, 整数型 .局部变量 空闲数, 整数型 .局部变量 当前任务数, 整数型 .局部变量 并发数, 整数型 .局部变量 完成内容, 文本型 .局部变量 启动时间, 整数型 启动时间 ＝ 取启动时间 () 并发数 ＝ 到整数 (编辑框1.内容) 线程池.创建 (并发数, 并发数, ) 总任务数 ＝ 取数组成员数 (QQ等级数组) .判断循环首 (n ＜ 总任务数) 空闲数 ＝ 线程池.取_空闲线程数 () .如果真 (空闲数 ＞ 0) 当前任务数 ＝ 总任务数 － n .如果真 (当前任务数 ＞ 空闲数) 当前任务数 ＝ 空闲数 .如果真结束 .计次循环首 (当前任务数, ) n ＝ n ＋ 1 线程池.投递任务 (&功能_网页访问, n) .计次循环尾 () .如果真结束 线程池.等待任务动态 () .判断循环尾 () .判断循环首 (线程池.取_是否空闲 () ＝ 假) .如果真 (线程池.取_状态 () ≠ #线程池_正在工作) 跳出循环 () .如果真结束 线程池.等待任务动态 (100) .判断循环尾 () 线程池.销毁 () 启动时间 ＝ 取启动时间 () － 启动时间 信息框 (到文本 (启动时间), 0, , ) .计次循环首 (取数组成员数 (QQ等级数组), n) 完成内容 ＝ 完成内容 ＋ QQ等级数组 [n].QQ号 ＋ “-----------” ＋ QQ等级数组 [n].QQ等级 ＋ #换行符 .计次循环尾 () 写到文件 (取特定目录 (3) ＋ “aaaaaaaaaaaaaaaaa.txt”, 到字节集 (完成内容)) .子程序 功能_网页访问, , , 本命令由【精易网页调试助手】生成，请配合精易模块使用。 .参数 序号, 整数型 .局部变量 局_网址, 文本型 .局部变量 局_方式, 整数型 .局部变量 局_提交cookie, 文本型 .局部变量 ADD_协议头, 类_POST数据类 .局部变量 局_提交协议头, 文本型 .局部变量 局_是否重定向, 逻辑型 .局部变量 局_结果, 字节集 .局部变量 局_返回, 文本型 .局部变量 level, 文本型 .局部变量 QQ类型, QQ等级类型 ' https://club.vip.qq.com/api/vip/getQQLevelInfo?g_tk=145697921&requestBody=%7B%22sClientIp%22%3A%22127.0.0.1%22%2C%22sSessionKey%22%3A%22MCrJh3lJdO%22%2C%22iKeyType%22%3A1%2C%22iAppId%22%3A0%2C%22iUin%22%3A840590433%7D 局_网址 ＝ “https://club.vip.qq.com/api/vip/getQQLevelInfo?g_tk=145697921&requestBody=%7B%22sClientIp%22%3A%22127.0.0.1%22%2C%22sSessionKey%22%3A%22MCrJh3lJdO%22%2C%22iKeyType%22%3A1%2C%22iAppId%22%3A0%2C%22iUin%22%3A” ＋ QQ等级数组 [序号].QQ号 ＋ “%7D” 局_方式 ＝ 0 局_提交cookie ＝ cookie ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.122 Safari/537.36 SE 2.X MetaSr 1.0”) 局_提交协议头 ＝ ADD_协议头.获取协议头数据 () 局_是否重定向 ＝ 真 ' 局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , 局_提交cookie, , 局_提交协议头, , , 局_是否重定向, , , , , , , , ) 网页_访问S (局_网址, 局_方式, , 局_提交cookie, , 局_提交协议头, , 局_是否重定向, , , , , , , , , 局_结果, , , , ) 局_返回 ＝ 到文本 (局_结果) level ＝ 文本_取出中间文本 (局_返回, #常量1, #常量2) ' 等级 ' level ＝ 取文本右边 (level, 取文本长度 (level) － 3) ' level ＝ 取文本左边 (level, 取文本长度 (level) － 3) .如果 (取文本长度 (level) ＝ 0) QQ等级数组 [序号].QQ等级 ＝ “查询失败” ' QQ类型.QQ号 ＝ QQ数组 [序号] ' QQ类型.QQ等级 ＝ “查询失败” ' 调试输出 (QQ类型.QQ号, QQ类型.QQ等级) ' 调试输出 (局_返回) .否则 ' QQ类型.QQ号 ＝ QQ数组 [序号] ' QQ类型.QQ等级 ＝ level QQ等级数组 [序号].QQ等级 ＝ level .如果结束 ' 调试输出 (level) ' 加入成员 (QQ等级数组, QQ类型) ' 调试输出 (level) ' 返回(局_返回)