获取本机QQ号

冰墩墩

闲着瞎玩
通过网页访问 获取本机QQ    精易模块  自己添加

左哼哼

取不到 浪费点
.版本 2
.支持库 spec

.子程序 获取本机登录QQ
.局部变量 局_网址, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 随机数, 整数型
.局部变量 JSON, 类_json
.局部变量 i, 整数型
.局部变量 QQ号, 文本型
.局部变量 昵称, 文本型

置随机数种子 ()
随机数 ＝ 取随机数 (1000000000, 2000000000)
局_网址 ＝ “https://localhost.ptlogin2.qq.com:4301/pt_get_uins?callback=ptui_getuins_CB&pt_local_tk=-” ＋ 到文本 (随机数)
局_结果 ＝ 网页_访问_对象 (局_网址, 0, , “pt_local_token=-” ＋ 到文本 (随机数), , “Referer: https://ui.ptlogin2.qq.com/”, , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
局_返回 ＝ 文本_取出中间文本 (局_返回, “var var_sso_uin_list=”, “;”, , )
JSON.解析 (局_返回)
.计次循环首 (JSON.成员数 (“”), i)
    QQ号 ＝ JSON.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].uin”)
    昵称 ＝ JSON.取通用属性 (“[” ＋ 到文本 (i － 1) ＋ “].nickname”)
    调试输出 (“QQ号 ” ＋ QQ号, “昵称 ” ＋ 昵称)
.计次循环尾 ()

Nning

获取不到啊！！！！

超级の赛亚人

可以

花喵喵

非常好 感谢分享

d0ngqia0ming

没有用没有用没有用没有用没有用没有用没有用没有用没有用

taotao

1111111111111111111

水木凌风

这个支持全系统和任何qq版本吗

sky122

3333333333333333333333

c虾扯蛋

666666666666666

a1445240821

非常好 感谢分享