QQ群授权模块源码

QQ群授权模块源码

@1339683697

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型

返回 (0)

.子程序 加载QQ验证窗口, 逻辑型, 公开, 验证成功返回真，不成功返回假
.参数 授权QQ群, 文本型, , 需要验证的QQ群，如两个都不填写则验证成功，必须两个成员以上，成员可相同
.局部变量 QQ群列表, 文本型
.局部变量 UA, 文本型
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 QQ群, 文本型, , "3"

置空变量 ()
载入 (窗口1, , 真)
UA ＝ “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”
QQ群列表 ＝ 到文本 (网页_访问_对象 (“https://qun.qq.com/cgi-bin/qun_mgr/get_group_list”, 1, “bkn=” ＋ bkn, cookie, , UA))
json.解析 (QQ群列表)
.计次循环首 (json.成员数 (“join”), i)
    QQ群 [1] ＝ json.取通用属性 (“join[” ＋ 到文本 (i － 1) ＋ “].gc”)
    QQ群 [2] ＝ json.取通用属性 (“create[” ＋ 到文本 (i － 1) ＋ “].gc”)
    QQ群 [3] ＝ json.取通用属性 (“manage[” ＋ 到文本 (i － 1) ＋ “].gc”)
    .如果真 (授权QQ群 ＝ QQ群 [1] 或 授权QQ群 ＝ QQ群 [2] 或 授权QQ群 ＝ QQ群 [3])
        返回 (真)
    .如果真结束

.计次循环尾 ()
返回 (假)

.子程序 Get_bkn, 文本型
.参数 skey, 文本型
.局部变量 js, 类_脚本组件

js.执行 (#bkn)
返回 (js.运行 (“get_bkn”, skey))

.子程序 置空变量

bkn ＝ “”
cookie ＝ “”

.子程序 遍历数组, 逻辑型
.参数 遍历值, 文本型
.参数 数组, 文本型, 数组
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (数组), i)
    .如果真 (数组 [i] ＝ 遍历值)
        返回 (真)
    .如果真结束

.计次循环尾 ()
返回 (假)