QQ资料照片墙上传源码

部分代码：

.版本 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)
.如果真结束