QQ网页登录源码

部分代码：

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 dom, 文本型
.程序集变量 pt_vcode_v1, 文本型
.程序集变量 cap_cd, 文本型
.程序集变量 salt, 文本型
.程序集变量 ptdrvs, 文本型
.程序集变量 verifycode, 文本型
.程序集变量 pt_verifysession_v1, 文本型

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



.子程序 验证码, 逻辑型
.局部变量 ret, 文本型
.局部变量 url, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 返回是否需要验证码cookie, 文本型

dom ＝ “ .” ＋ 文本_取随机数字 (16, 1)
调试输出 (dom)
' https://ssl.ptlogin2.qq.com/check?regmaster=&pt_tea=2&pt_vcode=1&uin=77971778&appid=501038301&js_ver=19112817&js_type=1&login_sig=qXY1vKmrWMpqdQ0EPVJ6nE03hOdqxOwR1tIjzK6loMqu*yCShCGJ8REop2SaF9Lk&u1=https%3A%2F%2Fim.qq.com%2FloginSuccess.html&r=0.7877979097870951&pt_uistyle=40
url ＝ “https://ssl.ptlogin2.qq.com/check?regmaster=&pt_tea=2&pt_vcode=1&uin=” ＋ 编辑框1.内容 ＋ “&appid=501038301&js_ver=19112817&js_type=1&u1=https%3A%2F%2Fim.qq.com%2FloginSuccess.html&r=0” ＋ dom ＋ “&pt_uistyle=40”
ret ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, , , 网页_取Cookie (“ssl.ptlogin2.qq.com”, ), 返回是否需要验证码cookie, , , , , , , , , , , , 真, , ))
调试输出 (ret, 返回是否需要验证码cookie)
arr ＝ 分割文本 (ret, “','”, )
.如果真 (arr [1] ＝ “ptui_checkVC('1”)
    pt_vcode_v1 ＝ “1”
    cap_cd ＝ arr [2]
    调试输出 (“cap_cd”, cap_cd)
    salt ＝ arr [3]
    调试输出 (“salt”, salt)
    ptdrvs ＝ 文本_取出中间文本 (arr [5], “', '”, “')”, , )
    调试输出 (“ptdrvs”, ptdrvs)
    返回 (真)
.如果真结束
.如果真 (arr [1] ＝ “ptui_checkVC('0”)
    pt_vcode_v1 ＝ “0”
    verifycode ＝ arr [2]
    调试输出 (“verifycode”, verifycode)
    salt ＝ arr [3]
    调试输出 (“salt”, salt)
    pt_verifysession_v1 ＝ arr [4]
    调试输出 (“pt_verifysession_v1”, pt_verifysession_v1)
    ptdrvs ＝ 文本_取出中间文本 (arr [5], “', '”, “')”, , )
    调试输出 (“ptdrvs”, ptdrvs)
    返回 (假)
.如果真结束
返回 (假)

.子程序 登录, 文本型
.局部变量 p, 文本型
.局部变量 url, 文本型
.局部变量 ret, 文本型
.局部变量 返回协议头, 文本型

p ＝ JS解密 (编辑框2.内容, salt, verifycode)
url ＝ “https://ssl.ptlogin2.qq.com/login?u=” ＋ 编辑框1.内容 ＋ “&verifycode=” ＋ verifycode ＋ “&pt_vcode_v1=” ＋ pt_vcode_v1 ＋ “&pt_verifysession_v1=” ＋ pt_verifysession_v1 ＋ “&p=” ＋ p ＋ “&pt_randsalt=2&u1=https%3A%2F%2Fim.qq.com%2FloginSuccess.html&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=” ＋ 时间_到时间戳 (, , ) ＋ “&js_ver=19112817&js_type=1&&pt_uistyle=40&aid=501038301&ptdrvs=” ＋ ptdrvs ＋ “&”
调试输出 (url)
ret ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 0, , , , , , , , , , , , , , , , , ))
调试输出 (ret)
返回 (ret)

.子程序 _按钮1_被单击

验证码 ()
登录 ()

.子程序 JS解密, 文本型
.参数 sy1, 文本型
.参数 sy2, 文本型
.参数 sy3, 文本型
.局部变量 obj, 类_脚本组件
.局部变量 tmp, 文本型

obj.执行 (#qecz)
tmp ＝ obj.计算表达式 (“encode('” ＋ sy1 ＋ “','” ＋ sy2 ＋ “','” ＋ sy3 ＋ “')”)
返回 (tmp)

@1841520636