QQ channel/login2

邪魅小诗仙

.版本 2
.支持库 spec

.局部变量 返回文本, 文本型
.局部变量 clientid, 文本型

ptwebqq ＝ 文本_取右边 (setcookie, “ptwebqq=”, , 假)

.计次循环首 (8, )
    置随机数种子 ()
    clientid ＝ clientid ＋ 到文本 (取随机数 (0, 9))
.计次循环尾 ()

调试输出 (clientid)

返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (url, , , setcookie, , “Host: ptlogin4.web2.qq.com”)))
调试输出 (返回文本)
' setcookie是登录成功后返回的cookie
返回文本 ＝ 到文本 (网页_访问_对象 (“http://d1.web2.qq.com/channel/login2”, 1, “r=%7B%22ptwebqq%22%3A%22” ＋ ptwebqq ＋ “%22%2C%22clientid%22%3A” ＋ clientid ＋ “%2C%22psessionid%22%3A%22%22%2C%22status%22%3A%22online%22%7D”, setcookie, , “Referer: http://d1.web2.qq.com/proxy.html?v=20151105001&callback=1&id=2”))

调试输出 (返回文本)

图片是登录的代码，这上面是登录后的代码
返回值一直是返回值{"errmsg":"error!!!","retcode":100001}  不知道怎么回事

邪魅小诗仙

这是登录代码

.版本 2
.支持库 spec
.支持库 iext

.子程序 token, 文本型
.参数 qrsig, 文本型
.局部变量 脚本, 类_脚本组件

脚本.执行 (#JS)
返回 (脚本.运行 (“test”, qrsig))


.子程序 登录
.局部变量 qrsig, 文本型
.局部变量 ptqrtoken, 文本型
.局部变量 返回文本, 文本型

图片框1.图片 ＝ 网页_访问_对象 (“https://ssl.ptlogin2.qq.com/ptqrshow?appid=501004106&e=0&l=M&s=5&d=72&v=4&t=0.08899096667728101”, , , , cookie)
qrsig ＝ 文本_取右边 (cookie, “qrsig=”, , 假)
ptqrtoken ＝ token (qrsig)
调试输出 (“ptqrtoken ＝” ＋ ptqrtoken)
.判断循环首 (真)
    返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://ssl.ptlogin2.qq.com/ptqrlogin?ptqrtoken=” ＋ ptqrtoken ＋ “&webqq_type=10&remember_uin=1&login2qq=1&aid=501004106&u1=http%3A%2F%2Fw.qq.com%2Fproxy.html%3Flogin2qq%3D1%26webqq_type%3D10&ptredirect=0&ptlang=2052&daid=164&from_ui=1&pttype=1&dumy=&fp=loginerroralert&action=0-0-3610&mibao_css=m_webqq&t=undefined&g=1&js_type=0&js_ver=10210&login_sig=&pt_randsalt=0”, , , cookie, setcookie, , 协yi头)))

    调试输出 (返回文本)
    .如果真 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
        透明标签1.标题 ＝ “登录成功”
        跳出循环 ()
    .如果真结束

    .如果真 (寻找文本 (返回文本, “正在认证中”, , 假) ≠ -1)
        透明标签1.标题 ＝ “请在手机端确认登录”
        到循环尾 ()
    .如果真结束
    .如果真 (寻找文本 (返回文本, “二维码未失效”, , 假) ≠ -1)
        cookie ＝ “”

        图片框1.图片 ＝ 网页_访问_对象 (“https://ssl.ptlogin2.qq.com/ptqrshow?appid=501004106&e=0&l=M&s=5&d=72&v=4&t=0.08899096667728101”, , , , cookie)

        qrsig ＝ 文本_取右边 (cookie, “qrsig=”, , 假)

        ptqrtoken ＝ token (qrsig)
        调试输出 (“ptqrtoken ＝” ＋ ptqrtoken)
    .如果真结束

    程序_延时 (1, 1)
.判断循环尾 ()
url ＝ 文本_取出中间文本 (返回文本, #常量2, “'”, , 假)
载入 (窗口1, , 真)