.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 登录 () .子程序 登录 .局部变量 局_cookie, 文本型 .局部变量 局_返回信息, 文本型 .局部变量 局_pt_local_token, 文本型 .局部变量 局_uin, 文本型 .局部变量 局_昵称, 文本型 .局部变量 局_返回协议头, 文本型 .局部变量 局_临时文本, 文本型, , "5" .局部变量 局_I, 整数型 网页_访问_对象 (“//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 (网页_访问_对象 (“//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” ＋ #引号 ＋ “:” ＋ #引号, #引号) 局_返回信息 ＝ 到文本 (网页_访问_对象 (“//localhost.ptlogin2.qq.com:” ＋ 局_临时文本 [局_I] ＋ “/pt_get_st?clientuin=” ＋ 局_uin ＋ “&callback=ptui_getst_CB&r=0.5058679166179147&pt_local_tk=” ＋ 局_pt_local_token, , , 局_cookie)) 局_返回信息 ＝ 到文本 (网页_访问_对象 (“//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 (网页_访问_对象 (“//user.qzone.qq.com/” ＋ 局_uin, , , 局_cookie)) 编辑框1.内容 ＝ 局_返回信息 局_返回信息 ＝ 文本_取出中间文本 (局_返回信息, “<title>”, “[//”) .如果真 (局_返回信息 ≠ “”) 信息框 (局_返回信息 ＋ “!登录成功,QQ:” ＋ 局_uin, 0, , ) 返回 () .如果真结束 信息框 (“登录失败”, 0, , )