QQ空间取本地已登陆的QQ登陆源码

这个是取本地已登陆QQ客户端的第一个QQ登陆空间

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

登录 ()

.子程序 登录
.局部变量 局_cookie, 文本型
.局部变量 局_返回信息, 文本型
.局部变量 局_pt_local_token, 文本型
.局部变量 局_uin, 文本型
.局部变量 局_昵称, 文本型
.局部变量 局_返回协议头, 文本型
.局部变量 局_临时文本, 文本型, , "5"
.局部变量 局_I, 整数型

网页_访问_对象 (“http://xui.ptlogin2.qq.com/cgi-bin/xlogin?proxy_url=http%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=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&pt_qr_app=手机QQ空间&pt_qr_link=http%3A//z.qzone.com/download.html&self_regurl=http%3A//qzs.qq.com/qzone/v6/reg/index.html&pt_qr_help_link=http%3A//z.qzone.com/download.html”, , , , 局_cookie)
局_pt_local_token ＝ 网页_取单条Cookie (局_cookie, “pt_local_token”, 真)
局_cookie ＝ 网页_取单条Cookie (局_cookie, “uikey”, 假) ＋ “;pt_local_token=” ＋ 局_pt_local_token
局_临时文本 ＝ { “4300”, “4302”, “4304”, “4306”, “4308” }
.计次循环首 (5, 局_I)
    局_返回信息 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://localhost.ptlogin2.qq.com:” ＋ 局_临时文本 [局_I] ＋ “/pt_get_uins?callback=ptui_getuins_CB&r=0.8530095575169545&pt_local_tk=” ＋ 局_pt_local_token, , , 局_cookie))
    .如果真 (局_返回信息 ≠ “”)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
调试输出 (局_返回信息)
局_uin ＝ 文本_取出中间文本 (局_返回信息, “uin” ＋ #引号 ＋ “:” ＋ #引号, #引号)
局_昵称 ＝ 文本_取出中间文本 (局_返回信息, “nickname” ＋ #引号 ＋ “:” ＋ #引号, #引号)
局_返回信息 ＝ 到文本 (网页_访问_对象 (“http://localhost.ptlogin2.qq.com:” ＋ 局_临时文本 [局_I] ＋ “/pt_get_st?clientuin=” ＋ 局_uin ＋ “&callback=ptui_getst_CB&r=0.5058679166179147&pt_local_tk=” ＋ 局_pt_local_token, , , 局_cookie))
局_返回信息 ＝ 到文本 (网页_访问_对象 (“http://ptlogin2.qq.com/jump?clientuin=” ＋ 局_uin ＋ “&keyindex=9&pt_aid=549000912&daid=5&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&pt_local_tk=” ＋ 局_pt_local_token ＋ “&pt_3rd_aid=0&ptopt=1&style=40”, , , 局_cookie))
调试输出 (局_返回信息)
局_返回信息 ＝ 文本_取出中间文本 (局_返回信息, “', '”, “', '”)
局_返回信息 ＝ 到文本 (网页_访问_对象 (局_返回信息, , , 局_cookie, , , 局_返回协议头, , 真))
' 调试输出 (局_返回信息, 局_返回协议头)
局_返回信息 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://user.qzone.qq.com/” ＋ 局_uin, , , 局_cookie))
编辑框1.内容 ＝ 局_返回信息
局_返回信息 ＝ 文本_取出中间文本 (局_返回信息, “<title>”, “[http://”)
.如果真 (局_返回信息 ≠ “”)
    信息框 (局_返回信息 ＋ “!登录成功,QQ:” ＋ 局_uin, 0, , )
    返回 ()
.如果真结束
信息框 (“登录失败”, 0, , )

@雅蠛蝶~