.版本 2 .子程序 登陆QQ返回key, 整数型 .参数 Session, QQ_Session, 参考 可空 数组 .局部变量 局部_提交网址, 文本型 .局部变量 局部_返回数据, 文本型 .局部变量 局部_Cookies, 文本型 .局部变量 pt_local_token, 文本型 .局部变量 Json, 类_json .局部变量 局部_登陆数量, 整数型 .局部变量 i, 整数型 .局部变量 QQ号, 文本型, , "0" .局部变量 昵称数组, 文本型, , "0" .局部变量 QQ, 文本型 .局部变量 昵称, 文本型 .局部变量 clientkey, 文本型 .局部变量 OSesiion, QQ_Session ' 第一步，先取出cookies 局部_提交网址 ＝ “https://xui.ptlogin2.qq.com/cgi-bin/xlogin?proxy_url=https%3A//qzs.qq.com/qzone/v6/portal/proxy.html&daid=5&&hide_title_bar=1&low_login=0&qlogin_auto_login=1&no_verifyimg=1&link_target=blank&appid=549000912&style=22&target=self&s_url=https%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&pt_qr_app=%E6%89%8B%E6%9C%BAQQ%E7%A9%BA%E9%97%B4&pt_qr_link=https%3A//z.qzone.com/download.html&self_regurl=https%3A//qzs.qq.com/qzone/v6/reg/index.html&pt_qr_help_link=https%3A//z.qzone.com/download.html&pt_no_auth=0” 局部_返回数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局部_提交网址, , , 局部_Cookies, , , , , , , , , , , , , )) pt_local_token ＝ 网页_取单条Cookie (局部_Cookies, “pt_local_token”, 真) 输出调试文本 (“pt_local_token”, pt_local_token) ' 4300 4301 4302 4303 4304 4305 4300~4305 端口自己做一下遍历 局部_提交网址 ＝ “https://localhost.ptlogin2.qq.com:4301/pt_get_uins?callback=ptui_getuins_CB&r=” ＋ 时间_取随机时间戳 () ＋ “&pt_local_tk=” ＋ pt_local_token 局部_返回数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局部_提交网址, , , 局部_Cookies, , , , , , , , , , , , , )) 局部_返回数据 ＝ 文本_取出中间文本 (局部_返回数据, “var var_sso_uin_list=”, “;”, , ) 输出调试文本 (“局部_返回数据”, 局部_返回数据) .如果真 (Json.解析 (局部_返回数据) ＝ 假) 返回 (0) .如果真结束 局部_登陆数量 ＝ Json.成员数 () 输出调试文本 (“局部_登陆数量”, 到文本 (局部_登陆数量)) .计次循环首 (局部_登陆数量, i) QQ ＝ Json.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].account”, ) 昵称 ＝ Json.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].nickname”, ) 加入成员 (昵称数组, 昵称) 加入成员 (QQ号, QQ) .计次循环尾 () .计次循环首 (取数组成员数 (QQ号), i) 局部_提交网址 ＝ “https://localhost.ptlogin2.qq.com:4301/pt_get_st?clientuin=” ＋ QQ号 [i] ＋ “&callback=ptui_getst_CB&r=” ＋ 时间_取随机时间戳 () ＋ “&pt_local_tk=” ＋ pt_local_token 局部_返回数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (局部_提交网址, , , 局部_Cookies, , , , , , , , , , , , , )) clientkey ＝ 网页_取单条Cookie (局部_Cookies, “clientkey”, 真) OSesiion.Uin ＝ QQ号 [i] OSesiion.Nick ＝ 昵称数组 [i] OSesiion.ClientKey ＝ clientkey 加入成员 (Session, OSesiion) .计次循环尾 () 返回 (取数组成员数 (Session))