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