易语言实现QQ空间留言批量删除的代码

.版本 2
.全局变量 Uin_全, 文本型
.全局变量 Cookie_全, 文本型

.版本 2
.支持库 HtmlView
.支持库 iext
.程序集 窗口程序集_快速
.子程序 _超文本浏览框1_跳转完毕
.局部变量 返回文本, 文本型
.局部变量 文本分割, 文本型, , "0"
.局部变量 二次分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 s, 整数型
.局部变量 Cookie, 文本型
.局部变量 Uin, 文本型
.局部变量 Skey, 文本型
.局部变量 obj_doc, 对象
obj_doc ＝ 超文本浏览框1.取文档对象 ()
Cookie_全 ＝ obj_doc.读文本属性 (“cookie”, )
Uin_全 ＝ 文本_取出中间文本 (Cookie_全, “p_uin=o”, “;”)
.判断循环首 (寻找文本 (Uin_全, “0”, , 假) ＝ 1)
  Uin_全 ＝ 取文本右边 (Uin_全, 取文本长度 (Uin_全) － 1)
.判断循环尾 ()
.如果真 (Cookie_全 ≠ “” 且 Uin_全 ≠ “”)
  _启动窗口.标签_QQ号码.标题 ＝ “QQ号码：” ＋ Uin_全
  _启动窗口.标签_状态.标题 ＝ “状 态：登录成功”
  _启动窗口.图片框1.图片 ＝ 获取QQ头像 (Uin_全)
  _启动窗口.按钮_快速登录.标题 ＝ “登录成功”
  _启动窗口.超级列表框1.全部删除 ()
  返回文本 ＝ 获取留言列表 (Uin_全, Cookie_全)
  文本分割 ＝ 分割文本 (返回文本, #换行符, )
  .计次循环首 (取数组成员数 (文本分割), i)
    二次分割 ＝ 分割文本 (文本分割 [i], “|”, )
    s ＝ _启动窗口.超级列表框1.插入表项 (, , , , , )
    _启动窗口.超级列表框1.置标题 (s, 0, 到文本 (i))
    _启动窗口.超级列表框1.置标题 (s, 1, 二次分割 [1])
    _启动窗口.超级列表框1.置标题 (s, 2, 二次分割 [2])
    _启动窗口.超级列表框1.置标题 (s, 3, 二次分割 [3])
    _启动窗口.超级列表框1.置标题 (s, 4, 二次分割 [4])
    _启动窗口.超级列表框1.置标题 (s, 5, 二次分割 [5])
    _启动窗口.超级列表框1.置标题 (s, 6, “null”)
  .计次循环尾 ()
  窗口_快速.销毁 ()
.如果真结束
.子程序 _窗口_快速_将被销毁
窗口_快速.销毁 ()

.版本 2
.程序集 程序集1
.子程序 获取QQ头像, 字节集, 公开
.参数 QQ号码, 文本型
.局部变量 提交地址, 文本型
.局部变量 返回字节, 字节集
提交地址 ＝ “http://q2.qlogo.cn/headimg_dl?bs=qq&dst_uin=” ＋ QQ号码 ＋ “&src_uin=” ＋ QQ号码 ＋ “&fid=” ＋ QQ号码 ＋ “&spec=100&url_enc=0&referer=bu_interface&term_type=PC”
返回字节 ＝ 网页_访问 (提交地址)
返回 (返回字节)
.子程序 获取留言列表, 文本型
.参数 QQ号码, 文本型
.参数 Cookie, 文本型
.局部变量 提交地址, 文本型
.局部变量 返回文本, 文本型
.局部变量 json, 类_json
.局部变量 qzonetoken, 文本型
.局部变量 p_skey, 文本型
.局部变量 g_tk, 文本型
.局部变量 i, 整数型
.局部变量 uin, 文本型
.局部变量 nickname, 文本型
.局部变量 content, 文本型
.局部变量 id, 文本型
.局部变量 time, 文本型
.局部变量 结果, 文本型
p_skey ＝ 文本_取出中间文本 (Cookie, “p_skey=”, “;”)
g_tk ＝ 计算G_tk (p_skey)
qzonetoken ＝ 计算QzoneToken (QQ号码)
提交地址 ＝ “https://user.qzone.qq.com/proxy/domain/m.qzone.qq.com/cgi-bin/new/get_msgb?uin=” ＋ QQ号码 ＋ “&hostUin=” ＋ QQ号码 ＋ “&start=0&s=” ＋ 时间_取随机时间戳 () ＋ “&format=jsonp&num=20&inCharset=utf-8&outCharset=utf-8&g_tk=” ＋ g_tk ＋ “&qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ g_tk
返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (提交地址, , , Cookie))
返回文本 ＝ 子文本替换 (返回文本, “_Callback(”, “”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “);”, “”, , , 真)
' 调试输出 (返回文本)
json.解析 (返回文本)
_启动窗口.标签_留言数.标题 ＝ “留言数：” ＋ json.取通用属性 (“data.total”)
.计次循环首 (json.成员数 (“data.commentList”), i)
  uin ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].uin”)
  nickname ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].nickname”)
  content ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].ubbContent”)
  id ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].id”)
  time ＝ json.取通用属性 (“data.commentList[” ＋ 到文本 (i － 1) ＋ “].pubtime”)
  结果 ＝ 结果 ＋ uin ＋ “|” ＋ nickname ＋ “|” ＋ content ＋ “|” ＋ id ＋ “|” ＋ time ＋ #换行符
  ' 调试输出 (uin, nickname, content, id, time)
.计次循环尾 ()
返回 (结果)
.子程序 PC删除留言, 文本型, 公开
.参数 QQ号码, 文本型
.参数 对方QQ, 文本型
.参数 留言ID, 文本型
.参数 Cookie, 文本型
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 qzonetoken, 文本型
.局部变量 p_skey, 文本型
.局部变量 g_tk, 文本型
.局部变量 json, 类_json
.局部变量 code, 文本型
p_skey ＝ 文本_取出中间文本 (Cookie, “p_skey=”, “;”)
g_tk ＝ 计算G_tk (p_skey)
qzonetoken ＝ 计算QzoneToken (QQ号码)
提交地址 ＝ “https://h5.qzone.qq.com/proxy/domain/m.qzone.qq.com/cgi-bin/new/del_msgb?qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ g_tk
提交数据 ＝ “hostUin=” ＋ QQ号码 ＋ “&idList=” ＋ 留言ID ＋ “&uinList=” ＋ 对方QQ ＋ “&format=fs&iNotice=1&inCharset=utf-8&outCharset=utf-8&ref=qzone&json=1&g_tk=” ＋ g_tk ＋ “&qzreferrer=https%3A%2F%2Fqzs.qq.com%2Fqzone%2Fmsgboard%2Fmsgbcanvas.html%23page%3D1”
返回文本 ＝ 编码_Utf8到Ansi (网页_访问 (提交地址, 1, 提交数据, Cookie))
返回 (返回文本)
.子程序 计算G_tk, 文本型, 公开
.参数 skey, 文本型
.局部变量 hash, 整数型
.局部变量 i, 整数型
hash ＝ 5381
.计次循环首 (取文本长度 (skey), i)
  hash ＝ hash ＋ 左移 (hash, 5) ＋ 取代码 (skey, i)
.计次循环尾 ()
hash ＝ 位与 (hash, 2147483647)
返回 (到文本 (hash))
.子程序 计算QzoneToken, 文本型
.参数 Uin, 文本型
.局部变量 Url, 文本型
.局部变量 Ret, 文本型
Url ＝ “https://user.qzone.qq.com/” ＋ Uin
Ret ＝ 编码_Utf8到Ansi (网页_访问 (Url))
返回 (文本_取出中间文本 (Ret, “window.g_qzonetoken = (function(){ try{return ” ＋ #引号, #引号 ＋ “;}”))

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 线程ID, 整数型
.子程序 __启动窗口_创建完毕
图片框1.图片 ＝ 获取QQ头像 (“10000”)
.子程序 _按钮_快速登录_被单击
载入 (窗口_快速, , 假)
.子程序 _按钮_批量删除_被单击
.如果 (按钮_批量删除.标题 ＝ “批量删除”)
  按钮_批量删除.标题 ＝ “停止删除”
  启动线程 (&获取留言, , 线程ID)
.否则
  按钮_批量删除.标题 ＝ “批量删除”
.如果结束
.子程序 获取留言
.局部变量 返回文本, 文本型
.局部变量 文本分割, 文本型, , "0"
.局部变量 二次分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 s, 整数型
超级列表框1.全部删除 ()
返回文本 ＝ 获取留言列表 (Uin_全, Cookie_全)
文本分割 ＝ 分割文本 (返回文本, #换行符, )
.计次循环首 (取数组成员数 (文本分割), i)
  二次分割 ＝ 分割文本 (文本分割 [i], “|”, )
  s ＝ 超级列表框1.插入表项 (, , , , , )
  超级列表框1.置标题 (s, 0, 到文本 (i))
  超级列表框1.置标题 (s, 1, 二次分割 [1])
  超级列表框1.置标题 (s, 2, 二次分割 [2])
  超级列表框1.置标题 (s, 3, 二次分割 [3])
  超级列表框1.置标题 (s, 4, 二次分割 [4])
  超级列表框1.置标题 (s, 5, 二次分割 [5])
  超级列表框1.置标题 (s, 6, “null”)
.计次循环尾 ()
启动线程 (&删除留言, , )
.子程序 删除留言
.局部变量 对方QQ, 文本型
.局部变量 留言ID, 文本型
.局部变量 i, 整数型
.局部变量 返回文本, 文本型
.如果真 (超级列表框1.取表项数 () ＝ 0)
  信息框 (“没有要删除的留言”, #信息图标, “温馨提示”)
  按钮_批量删除.标题 ＝ “批量删除”
  返回 ()
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), i)
  对方QQ ＝ 超级列表框1.取标题 (i － 1, 1)
  留言ID ＝ 超级列表框1.取标题 (i － 1, 4)
  ' 调试输出 (对方QQ, 留言ID)
  返回文本 ＝ PC删除留言 (Uin_全, 对方QQ, 留言ID, Cookie_全)
  调试输出 (返回文本)
  .如果 (寻找文本 (返回文本, #引号 ＋ “code” ＋ #引号 ＋ “:0”, , 假) ≠ -1)
    超级列表框1.置标题 (i － 1, 6, “√”)
  .否则
    超级列表框1.置标题 (i － 1, 6, “×”)
  .如果结束
  .如果真 (i ≥ 超级列表框1.取表项数 ())
    启动线程 (&获取留言, , )
    跳出循环 ()
  .如果真结束
  .如果真 (按钮_批量删除.标题 ＝ “批量删除”)
    跳出循环 ()
  .如果真结束
  延迟 (到整数 (编辑框1.内容))
.计次循环尾 ()
.子程序 _按钮_注销登录_被单击
网页_清除Cookie (“qq.com”)
网页_清除Cookie (“gdt.qq.com”)
网页_清除Cookie (“ptlogin2.qq.com”)
网页_清除Cookie (“xui.ptlogin2.qq.com”)
网页_清除Cookie (“qzone.qq.com”)
网页_清除Cookie (“user.qzone.qq.com”)
网页_清除Cookie (“qzs.qq.com”)
网页_清除Cookie (“qzone.qq.com”)
按钮_快速登录.标题 ＝ “快速登录”
标签_QQ号码.标题 ＝ “QQ号码：未登录”
标签_状态.标题 ＝ “状态：未登录”
标签_留言数.标题 ＝ “留言数：未登录”
图片框1.图片 ＝ 获取QQ头像 (“10000”)
超级列表框1.全部删除 ()
信息框 (“注销登录成功”, 0, )