QQ获取等级源码

.版本 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)
' 返回(局_返回)

@就想改个名字