使用易语言怎么批量删除QQ空间留言

.版本 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://h6.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, )

相关阅读