精易论坛

标题: QQ channel/login2 [打印本页]

作者: 邪魅小诗仙 时间: 2017-4-10 16:29
标题: 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} 不知道怎么回事

作者: 邪魅小诗仙 时间: 2017-4-10 16:31
这是登录代码

.版本 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, , 真)

欢迎光临精易论坛 (https://125.confly.eu.org/)