.版本 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] ＝ 遍历值) 返回 (真) .如果真结束 .计次循环尾 () 返回 (假)