取本机已登录的QQ号，q

kmskik

求取本机已登录的QQ号的源码，要求使用最新版本的QQ，如下这个体验版QQ，论坛之前的取QQ都取不了。谢谢高手大佬们。

虚拟易友

kmskik 发表于 2023-7-6 00:08
这个会失效吗，另外URLDecodeUtf8  这个命令在哪儿找呢，谢谢

有没有可能，我发的代码里面说了要鱼刺类模块？没有鱼刺类你就自己改代码啊。。。。

xiaoka2018

这个版本资格开放了吗

kmskik

xiaoka2018 发表于 2023-7-5 20:05
这个版本资格开放了吗

开放了啊，我刚下载下来安装了的。

找软件看我签名

应该是改了框架 都写了全新架构了

虚拟易友

  

子程序名	返回值类型	公开	备 注
_按钮_获取QQ_被单击

变量名	类 型	静态	数组	备 注
url_r	文本型
url_tk	文本型
Http	WinHttpR
Url	文本型
Header	文本型
Cookie	文本型
Return	文本型
正则	正则表达式
Json	类_json
i	整数型

计次循环首 (14, )
url_r ＝ url_r ＋ 到文本 (取随机数 (0, 9))
计次循环尾 ()
计次循环首 (10, )
url_tk ＝ url_tk ＋ 到文本 (取随机数 (0, 9))
计次循环尾 ()
' 请自行调用鱼刺模块！
Http.Auto (真)
Http.AutoCookies (真)
Url ＝ “https://localhost.ptlogin2.qq.com:4301/pt_get_uins?callback=ptui_getuins_CB&r=0.104” ＋ url_r ＋ “&pt_local_tk=-” ＋ url_tk
Http.Open (“GET”, Url)
' Http.SetRequestHeader (“Host”, “localhost.ptlogin2.qq.com:4301”)
Http.SetRequestHeader (“Referer”, “https://xui.ptlogin2.qq.com/”)
Cookie ＝ “pt_local_token=-” ＋ url_tk
Http.CookieAdd (Cookie)
Http.Send ()
Return ＝ Http.GetResponseText ()
Return ＝ URLDecodeUtf8 (Return)
正则.创建 (“{.*}”, , , )
正则.搜索全部 (Return)
计次循环首 (正则.取匹配数量 (), i)
Json.解析 (正则.取匹配文本 (i))
组合框_QQ列表.加入项目 (Json.取通用属性 (“nickname”) ＋ “--” ＋ Json.取通用属性 (“uin”), i)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮_获取QQ_被单击<br /> .局部变量 url_r, 文本型<br /> .局部变量 url_tk, 文本型<br /> .局部变量 Http, WinHttpR<br /> .局部变量 Url, 文本型<br /> .局部变量 Header, 文本型<br /> .局部变量 Cookie, 文本型<br /> .局部变量 Return, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 Json, 类_json<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (14, )<br />     url_r ＝ url_r ＋ 到文本 (取随机数 (0, 9))<br /> .计次循环尾 ()<br /> .计次循环首 (10, )<br />     url_tk ＝ url_tk ＋ 到文本 (取随机数 (0, 9))<br /> .计次循环尾 ()<br /> ' 请自行调用鱼刺模块！<br /> Http.Auto (真)<br /> Http.AutoCookies (真)<br /> Url ＝ “https://localhost.ptlogin2.qq.com:4301/pt_get_uins?callback=ptui_getuins_CB&r=0.104” ＋ url_r ＋ “&pt_local_tk=-” ＋ url_tk<br /> Http.Open (“GET”, Url)<br /> ' Http.SetRequestHeader (“Host”, “localhost.ptlogin2.qq.com:4301”)<br /> Http.SetRequestHeader (“Referer”, “<a href="https://xui.ptlogin2.qq.com/" rel="nofollow" rel="nofollow" target="_blank">https://xui.ptlogin2.qq.com/</a>”)<br /> Cookie ＝ “pt_local_token=-” ＋ url_tk<br /> Http.CookieAdd (Cookie)<br /> Http.Send ()<br /> Return ＝ Http.GetResponseText ()<br /> Return ＝ URLDecodeUtf8 (Return)<br /> 正则.创建 (“{.*}”, , , )<br /> 正则.搜索全部 (Return)<br /> .计次循环首 (正则.取匹配数量 (), i)<br />     Json.解析 (正则.取匹配文本 (i))<br />     组合框_QQ列表.加入项目 (Json.取通用属性 (“nickname”) ＋ “--” ＋ Json.取通用属性 (“uin”), i)<br /> .计次循环尾 ()

门童

这个还能用~

已注销648492

找找窗口句柄名，还有名字含QQ号数字的文件夹

kmskik

门童 发表于 2023-7-5 22:27
这个还能用~

不行我试了，这个取不到

kmskik

qq37530271 发表于 2023-7-5 20:38
[e=0].版本 2

.子程序 _按钮_获取QQ_被单击

这个会失效吗，另外URLDecodeUtf8  这个命令在哪儿找呢，谢谢