QQ取本机cookie操作空间易语言源码

QQ操作空间取本机cookie易语言源码 

@sanfeng

.版本 2
.支持库 spec

.子程序 登录
.局部变量 局_返回信息, 文本型
.局部变量 局_pt_local_token, 文本型
.局部变量 局_uin, 文本型, , "0"
.局部变量 局_昵称, 文本型, , "0"
.局部变量 局_返回协议头, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 局_临时文本, 文本型, , "5"
.局部变量 局_I, 整数型
.局部变量 返回信息, 文本型
.局部变量 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”, , , , 局_cooki)
局_pt_local_token ＝ 网页_取单条Cookie (局_cooki, “pt_local_token”, 真)
局_cooki ＝ 网页_取单条Cookie (局_cooki, “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, , , 局_cooki, , , , , , , , , , , , , ))
    ' 调试输出 (局_返回信息, 局_pt_local_token, 局_临时文本 [局_I])
    .如果真 (局_返回信息 ≠ “”)
        跳出循环 ()
    .如果真结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.计次循环尾 ()
' 调试输出 (局_返回信息)
文本_取中间_批量 (局_返回信息, “uin” ＋ #引号 ＋ “:” ＋ #引号, #引号, 局_uin, , , , , , , )
文本_取中间_批量 (局_返回信息, “nickname” ＋ #引号 ＋ “:” ＋ #引号, #引号, 局_昵称, , , , , , , )
' 局_uin ＝ 文本_取出中间文本 (局_返回信息, “uin” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
.计次循环首 (取数组成员数 (局_uin), i)
    ' 局_昵称 ＝ 文本_取出中间文本 (局_返回信息, “nickname” ＋ #引号 ＋ “:” ＋ #引号, #引号)
    局_返回信息 ＝ 到文本 (网页_访问_对象 (“http://localhost.ptlogin2.qq.com:” ＋ 局_临时文本 [局_I] ＋ “/pt_get_st?clientuin=” ＋ 局_uin [i] ＋ “&callback=ptui_getst_CB&r=0.5058679166179147&pt_local_tk=” ＋ 局_pt_local_token, , , 局_cooki, , , , , , , , , , , , , ))
    局_返回信息 ＝ 到文本 (网页_访问_对象 (“http://ptlogin2.qq.com/jump?clientuin=” ＋ 局_uin [i] ＋ “&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”, , , 局_cooki, , , , , , , , , , , , , ))
    ' 调试输出 (局_返回信息)
    局_返回信息 ＝ 文本_取出中间文本 (局_返回信息, “', '”, “', '”)
    局_返回信息 ＝ 到文本 (网页_访问_对象 (局_返回信息, , , 局_cooki, , , 局_返回协议头, , 真))
    ' 调试输出 (局_返回信息, 局_返回协议头)
    局_返回信息 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://user.qzone.qq.com/” ＋ 局_uin [i], , , 局_cooki, , , , , , , , , , , , , ))
    ' 调试输出 (局_uin)
    ' 调试输出 (局_返回协议头)
    局_返回信息 ＝ 文本_取出中间文本 (局_返回信息, “<title>”, “[http://”)
    返回信息 ＝ 编码_Utf8到Ansi (网页_访问 (“https://user.qzone.qq.com/proxy/domain/taotao.qzone.qq.com/cgi-bin/emotion_cgi_publish_v6?qzonetoken=6677d6983ed91a0e31abb84cc9349ec2c64fcbd5de8c059d5ece7a76bfabf9cefaa3e7bd4ac207&g_tk=88199255”, 1, “syn_tweet_verson=1&paramstr=1&pic_template=&richtype=&richval=&special_url=&subrichtype=&con=121223&feedversion=1&ver=1&ugc_right=1&to_sign=0&hostuin=95014230&code_version=1&format=fs&qzreferrer=https%3A%2F%2Fuser.qzone.qq.com%2F95014230”, 局_cooki, , , , , , ))
    调试输出 (局_cooki)
    调试输出 (局_uin [i], 局_昵称 [i])
    ' 关注空间 (局_cooki)
.计次循环尾 ()