QQ快捷登陆易语言源码

QQ快捷登陆易语言源码

@LeyBc

.版本 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))