.版本 2 .支持库 spec .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 返回_cookies, 文本型 .程序集变量 提交_cookies, 文本型 .程序集变量 pt_login_sig, 文本型 .程序集变量 qrsig, 文本型 .程序集变量 key, 文本型 .程序集变量 返回文本, 文本型 .程序集变量 ptqrtoken, 文本型 .子程序 __启动窗口_创建完毕 加载二维码 () .子程序 加载二维码 .局部变量 脚本, 类_脚本组件 .局部变量 Img, 字节集 网页_访问_对象 (“https://xui.ptlogin2.qq.com/cgi-bin/xlogin?appid=717054801&daid=296&s_url=https://mp.qq.com&style=33&hide_title_bar=1&fontcolor=ffffff&enable_qlogin=0&self_regurl=http://zc.qq.com/chs/index.html”, 0, , , 返回_cookies) pt_login_sig ＝ 文本_取出中间文本 (返回_cookies, “pt_login_sig=”, “;”) ' 调试输出 (pt_login_sig) 提交_cookies ＝ 返回_cookies Img ＝ 网页_访问 (“https://ssl.ptlogin2.qq.com/ptqrshow?appid=549000912&e=2&l=M&s=3&d=72&v=4&t=” ＋ 文本_取随机数字 (16, 0) ＋ “&daid=5&pt_3rd_aid=0”, , , , 返回_cookies, , , , , , ) ' 登录二维码 图片框_二维码.图片 ＝ Img 提交_cookies ＝ 网页_Cookie合并更新 (提交_cookies, 返回_cookies) ' 登录二维码有返回cookie 提交 监控二维码是否过期 需要用到，所以需要将cookie进行合并 qrsig ＝ 文本_取右边 (返回_cookies, “qrsig=”) ' 从登录二维码返回 Cookie 里面取出，用于加密 进行下一步 监控二维码是否过期 调试输出 (qrsig) 脚本.执行 (#JS) ptqrtoken ＝ 脚本.运行 (“hash33”, qrsig) ' 此处加密的是 登录二维码返回 Cookie里面qrsig值 调试输出 (ptqrtoken) 启动线程 (&监控二维码是否过期, , ) .子程序 监控二维码是否过期 .局部变量 Nick, 文本型 .局部变量 登录成功, 逻辑型 .局部变量 pskey, 文本型 .局部变量 asd, 文本型 .计次循环首 (100, ) 返回文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://ssl.ptlogin2.qq.com/ptqrlogin?u1=https%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&ptqrtoken=” ＋ ptqrtoken ＋ “&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=8-0-” ＋ 时间_取现行时间戳 () ＋ “&js_ver=90305&js_type=1&login_sig=” ＋ pt_login_sig ＋ “&pt_uistyle=40&aid=549000912&daid=5&has_onekey=1&”, , , 提交_cookies, )) .如果真 (寻找文本 (返回文本, “ptuiCB('0'”, , 假) ≠ -1) pskey ＝ 文本_取出中间文本 (返回文本, “ptuiCB('0','0','”, “'”) 网页_访问S (pskey, , , , cookies, , , 真) ' //登录成功 Nick ＝ 文本_取出中间文本 (返回文本, “'登录成功！', '”, “'”, , ) 标签_状态.标题 ＝ Nick 登录成功 ＝ 真 key ＝ 文本_取出中间文本 (cookies, “skey=”, “;”) 调试输出 (计算GTK (key), cookies) g_tk ＝ 计算GTK (key) 账号 ＝ 文本_取出中间文本 (cookies, “pt2gguin=o”, “;”) 图片框_二维码.图片 ＝ 网页_访问 (“http://q.qlogo.cn/headimg_dl?bs=qq&dst_uin=” ＋ 账号 ＋ “&fid=blog&spec=100”) 跳出循环 () .如果真结束 .如果真 (寻找文本 (返回文本, “ptuiCB('66'”, , 假) ≠ -1) ' //二维码未失效 标签_状态.标题 ＝ “扫码登录” 延时 (1000) .如果真结束 .如果真 (寻找文本 (返回文本, “ptuiCB('67'”, , 假) ≠ -1) ' //二维码认证中 标签_状态.标题 ＝ “请在手机上确认” 延时 (1000) .如果真结束 .如果真 (寻找文本 (返回文本, “ptuiCB('65'”, , 假) ≠ -1) ' //二维码失效 跳出循环 () .如果真结束 .计次循环尾 () .如果真 (寻找文本 (返回文本, “ptuiCB('65'”, , 假) ≠ -1) ' //二维码失效 启动线程 (&加载二维码, , ) .如果真结束 .子程序 计算GTK, 文本型 .参数 skey, 文本型 .局部变量 JS, 类_脚本组件 .局部变量 局_GTKjs, 文本型 局_GTKjs ＝ #GTK 局_GTKjs ＝ 子文本替换 (局_GTKjs, “@A4aqz01GQ”, skey, 0, , 假) JS.执行 (局_GTKjs) 返回 (JS.运行 (“ameCSRFToken”)) .子程序 _按钮1_被单击 启动线程 (&上传, , ) .子程序 上传 .局部变量 路径, 文本型 .局部变量 图片, 字节集 .局部变量 上传, 字节集 .局部变量 url, 文本型 .局部变量 txt, 文本型 通用对话框1.打开 () 路径 ＝ 通用对话框1.文件名 .如果真 (路径 ≠ “”) 图片 ＝ 读入文件 (路径) 上传 ＝ 到字节集 (#照片墙) 上传 ＝ 子字节集替换 (上传, 到字节集 (“[img]”), 图片, , ) url ＝ “https://taotao.qzone.qq.com/cgi-bin/photo_wall_cgi_upload?uin=” ＋ 账号 ＋ “&g_tk=” ＋ g_tk ＋ “&photo_source=1&format=json” txt ＝ 网页_访问S (url, 1, , cookies, , “Content-Type: multipart/form-data; boundary=arkz01xImKig9NNXFHPCrY0”, , , , , , , , , , , , , , 上传) 调试输出 (txt) .如果真结束