使用易語(yǔ)言怎么批量刪除QQ空間留言

今天就跟大家聊聊有關(guān)使用易語(yǔ)言怎么批量刪除QQ空間留言，可能很多人都不太了解，為了讓大家更加了解，小編給大家總結(jié)了以下內(nèi)容，希望大家根據(jù)這篇文章可以有所收獲。

全局變量表

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

QQ快捷啟動(dòng)的代碼

.版本 2
.支持庫(kù) HtmlView
.支持庫(kù) iext
.程序集 窗口程序集_快速
.子程序 _超文本瀏覽框1_跳轉(zhuǎn)完畢
.局部變量 返回文本, 文本型
.局部變量 文本分割, 文本型, , "0"
.局部變量 二次分割, 文本型, , "0"
.局部變量 i, 整數(shù)型
.局部變量 s, 整數(shù)型
.局部變量 Cookie, 文本型
.局部變量 Uin, 文本型
.局部變量 Skey, 文本型
.局部變量 obj_doc, 對(duì)象
obj_doc ＝ 超文本瀏覽框1.取文檔對(duì)象 ()
Cookie_全 ＝ obj_doc.讀文本屬性 (“cookie”, )
Uin_全 ＝ 文本_取出中間文本 (Cookie_全, “p_uin=o”, “;”)
.判斷循環(huán)首 (尋找文本 (Uin_全, “0”, , 假) ＝ 1)
  Uin_全 ＝ 取文本右邊 (Uin_全, 取文本長(zhǎng)度 (Uin_全) － 1)
.判斷循環(huán)尾 ()
.如果真 (Cookie_全 ≠ “” 且 Uin_全 ≠ “”)
  _啟動(dòng)窗口.標(biāo)簽_QQ號(hào)碼.標(biāo)題 ＝ “QQ號(hào)碼：” ＋ Uin_全
  _啟動(dòng)窗口.標(biāo)簽_狀態(tài).標(biāo)題 ＝ “狀 態(tài)：登錄成功”
  _啟動(dòng)窗口.圖片框1.圖片 ＝ 獲取QQ頭像 (Uin_全)
  _啟動(dòng)窗口.按鈕_快速登錄.標(biāo)題 ＝ “登錄成功”
  _啟動(dòng)窗口.超級(jí)列表框1.全部刪除 ()
  返回文本 ＝ 獲取留言列表 (Uin_全, Cookie_全)
  文本分割 ＝ 分割文本 (返回文本, #換行符, )
  .計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (文本分割), i)
    二次分割 ＝ 分割文本 (文本分割 [i], “|”, )
    s ＝ _啟動(dòng)窗口.超級(jí)列表框1.插入表項(xiàng) (, , , , , )
    _啟動(dòng)窗口.超級(jí)列表框1.置標(biāo)題 (s, 0, 到文本 (i))
    _啟動(dòng)窗口.超級(jí)列表框1.置標(biāo)題 (s, 1, 二次分割 [1])
    _啟動(dòng)窗口.超級(jí)列表框1.置標(biāo)題 (s, 2, 二次分割 [2])
    _啟動(dòng)窗口.超級(jí)列表框1.置標(biāo)題 (s, 3, 二次分割 [3])
    _啟動(dòng)窗口.超級(jí)列表框1.置標(biāo)題 (s, 4, 二次分割 [4])
    _啟動(dòng)窗口.超級(jí)列表框1.置標(biāo)題 (s, 5, 二次分割 [5])
    _啟動(dòng)窗口.超級(jí)列表框1.置標(biāo)題 (s, 6, “null”)
  .計(jì)次循環(huán)尾 ()
  窗口_快速.銷毀 ()
.如果真結(jié)束
.子程序 _窗口_快速_將被銷毀
窗口_快速.銷毀 ()

獲取和計(jì)算的代碼

.版本 2
.程序集 程序集1
.子程序 獲取QQ頭像, 字節(jié)集, 公開(kāi)
.參數(shù) QQ號(hào)碼, 文本型
.局部變量 提交地址, 文本型
.局部變量 返回字節(jié), 字節(jié)集
提交地址 ＝ “http://q2.qlogo.cn/headimg_dl?bs=qq&dst_uin=” ＋ QQ號(hào)碼 ＋ “&src_uin=” ＋ QQ號(hào)碼 ＋ “&fid=” ＋ QQ號(hào)碼 ＋ “&spec=100&url_enc=0&referer=bu_interface&term_type=PC”
返回字節(jié) ＝ 網(wǎng)頁(yè)_訪問(wèn) (提交地址)
返回 (返回字節(jié))
.子程序 獲取留言列表, 文本型
.參數(shù) QQ號(hào)碼, 文本型
.參數(shù) Cookie, 文本型
.局部變量 提交地址, 文本型
.局部變量 返回文本, 文本型
.局部變量 json, 類_json
.局部變量 qzonetoken, 文本型
.局部變量 p_skey, 文本型
.局部變量 g_tk, 文本型
.局部變量 i, 整數(shù)型
.局部變量 uin, 文本型
.局部變量 nickname, 文本型
.局部變量 content, 文本型
.局部變量 id, 文本型
.局部變量 time, 文本型
.局部變量 結(jié)果, 文本型
p_skey ＝ 文本_取出中間文本 (Cookie, “p_skey=”, “;”)
g_tk ＝ 計(jì)算G_tk (p_skey)
qzonetoken ＝ 計(jì)算QzoneToken (QQ號(hào)碼)
提交地址 ＝ “https://user.qzone.qq.com/proxy/domain/m.qzone.qq.com/cgi-bin/new/get_msgb?uin=” ＋ QQ號(hào)碼 ＋ “&hostUin=” ＋ QQ號(hào)碼 ＋ “&start=0&s=” ＋ 時(shí)間_取隨機(jī)時(shí)間戳 () ＋ “&format=jsonp&num=20&inCharset=utf-8&outCharset=utf-8&g_tk=” ＋ g_tk ＋ “&qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ g_tk
返回文本 ＝ 編碼_Utf8到Ansi (網(wǎng)頁(yè)_訪問(wèn) (提交地址, , , Cookie))
返回文本 ＝ 子文本替換 (返回文本, “_Callback(”, “”, , , 真)
返回文本 ＝ 子文本替換 (返回文本, “);”, “”, , , 真)
' 調(diào)試輸出 (返回文本)
json.解析 (返回文本)
_啟動(dòng)窗口.標(biāo)簽_留言數(shù).標(biāo)題 ＝ “留言數(shù)：” ＋ json.取通用屬性 (“data.total”)
.計(jì)次循環(huán)首 (json.成員數(shù) (“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”)
  結(jié)果 ＝ 結(jié)果 ＋ uin ＋ “|” ＋ nickname ＋ “|” ＋ content ＋ “|” ＋ id ＋ “|” ＋ time ＋ #換行符
  ' 調(diào)試輸出 (uin, nickname, content, id, time)
.計(jì)次循環(huán)尾 ()
返回 (結(jié)果)
.子程序 PC刪除留言, 文本型, 公開(kāi)
.參數(shù) QQ號(hào)碼, 文本型
.參數(shù) 對(duì)方QQ, 文本型
.參數(shù) 留言ID, 文本型
.參數(shù) Cookie, 文本型
.局部變量 提交地址, 文本型
.局部變量 提交數(shù)據(jù), 文本型
.局部變量 返回文本, 文本型
.局部變量 qzonetoken, 文本型
.局部變量 p_skey, 文本型
.局部變量 g_tk, 文本型
.局部變量 json, 類_json
.局部變量 code, 文本型
p_skey ＝ 文本_取出中間文本 (Cookie, “p_skey=”, “;”)
g_tk ＝ 計(jì)算G_tk (p_skey)
qzonetoken ＝ 計(jì)算QzoneToken (QQ號(hào)碼)
提交地址 ＝ “https://h6.qzone.qq.com/proxy/domain/m.qzone.qq.com/cgi-bin/new/del_msgb?qzonetoken=” ＋ qzonetoken ＋ “&g_tk=” ＋ g_tk
提交數(shù)據(jù) ＝ “hostUin=” ＋ QQ號(hào)碼 ＋ “&idList=” ＋ 留言ID ＋ “&uinList=” ＋ 對(duì)方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 (網(wǎng)頁(yè)_訪問(wèn) (提交地址, 1, 提交數(shù)據(jù), Cookie))
返回 (返回文本)
.子程序 計(jì)算G_tk, 文本型, 公開(kāi)
.參數(shù) skey, 文本型
.局部變量 hash, 整數(shù)型
.局部變量 i, 整數(shù)型
hash ＝ 5381
.計(jì)次循環(huán)首 (取文本長(zhǎng)度 (skey), i)
  hash ＝ hash ＋ 左移 (hash, 5) ＋ 取代碼 (skey, i)
.計(jì)次循環(huán)尾 ()
hash ＝ 位與 (hash, 2147483647)
返回 (到文本 (hash))
.子程序 計(jì)算QzoneToken, 文本型
.參數(shù) Uin, 文本型
.局部變量 Url, 文本型
.局部變量 Ret, 文本型
Url ＝ “https://user.qzone.qq.com/” ＋ Uin
Ret ＝ 編碼_Utf8到Ansi (網(wǎng)頁(yè)_訪問(wèn) (Url))
返回 (文本_取出中間文本 (Ret, “window.g_qzonetoken = (function(){ try{return ” ＋ #引號(hào), #引號(hào) ＋ “;}”))

QQ空間留言批量刪除的代碼

此功能需要加載精易模塊5.6

.版本 2
.支持庫(kù) EThread
.支持庫(kù) iext
.支持庫(kù) spec
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 線程ID, 整數(shù)型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
圖片框1.圖片 ＝ 獲取QQ頭像 (“10000”)
.子程序 _按鈕_快速登錄_被單擊
載入 (窗口_快速, , 假)
.子程序 _按鈕_批量刪除_被單擊
.如果 (按鈕_批量刪除.標(biāo)題 ＝ “批量刪除”)
  按鈕_批量刪除.標(biāo)題 ＝ “停止刪除”
  啟動(dòng)線程 (&獲取留言, , 線程ID)
.否則
  按鈕_批量刪除.標(biāo)題 ＝ “批量刪除”
.如果結(jié)束
.子程序 獲取留言
.局部變量 返回文本, 文本型
.局部變量 文本分割, 文本型, , "0"
.局部變量 二次分割, 文本型, , "0"
.局部變量 i, 整數(shù)型
.局部變量 s, 整數(shù)型
超級(jí)列表框1.全部刪除 ()
返回文本 ＝ 獲取留言列表 (Uin_全, Cookie_全)
文本分割 ＝ 分割文本 (返回文本, #換行符, )
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (文本分割), i)
  二次分割 ＝ 分割文本 (文本分割 [i], “|”, )
  s ＝ 超級(jí)列表框1.插入表項(xiàng) (, , , , , )
  超級(jí)列表框1.置標(biāo)題 (s, 0, 到文本 (i))
  超級(jí)列表框1.置標(biāo)題 (s, 1, 二次分割 [1])
  超級(jí)列表框1.置標(biāo)題 (s, 2, 二次分割 [2])
  超級(jí)列表框1.置標(biāo)題 (s, 3, 二次分割 [3])
  超級(jí)列表框1.置標(biāo)題 (s, 4, 二次分割 [4])
  超級(jí)列表框1.置標(biāo)題 (s, 5, 二次分割 [5])
  超級(jí)列表框1.置標(biāo)題 (s, 6, “null”)
.計(jì)次循環(huán)尾 ()
啟動(dòng)線程 (&刪除留言, , )
.子程序 刪除留言
.局部變量 對(duì)方QQ, 文本型
.局部變量 留言ID, 文本型
.局部變量 i, 整數(shù)型
.局部變量 返回文本, 文本型
.如果真 (超級(jí)列表框1.取表項(xiàng)數(shù) () ＝ 0)
  信息框 (“沒(méi)有要?jiǎng)h除的留言”, #信息圖標(biāo), “溫馨提示”)
  按鈕_批量刪除.標(biāo)題 ＝ “批量刪除”
  返回 ()
.如果真結(jié)束
.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i)
  對(duì)方QQ ＝ 超級(jí)列表框1.取標(biāo)題 (i － 1, 1)
  留言ID ＝ 超級(jí)列表框1.取標(biāo)題 (i － 1, 4)
  ' 調(diào)試輸出 (對(duì)方QQ, 留言ID)
  返回文本 ＝ PC刪除留言 (Uin_全, 對(duì)方QQ, 留言ID, Cookie_全)
  調(diào)試輸出 (返回文本)
  .如果 (尋找文本 (返回文本, #引號(hào) ＋ “code” ＋ #引號(hào) ＋ “:0”, , 假) ≠ -1)
    超級(jí)列表框1.置標(biāo)題 (i － 1, 6, “√”)
  .否則
    超級(jí)列表框1.置標(biāo)題 (i － 1, 6, “×”)
  .如果結(jié)束
  .如果真 (i ≥ 超級(jí)列表框1.取表項(xiàng)數(shù) ())
    啟動(dòng)線程 (&獲取留言, , )
    跳出循環(huán) ()
  .如果真結(jié)束
  .如果真 (按鈕_批量刪除.標(biāo)題 ＝ “批量刪除”)
    跳出循環(huán) ()
  .如果真結(jié)束
  延遲 (到整數(shù) (編輯框1.內(nèi)容))
.計(jì)次循環(huán)尾 ()
.子程序 _按鈕_注銷登錄_被單擊
網(wǎng)頁(yè)_清除Cookie (“qq.com”)
網(wǎng)頁(yè)_清除Cookie (“gdt.qq.com”)
網(wǎng)頁(yè)_清除Cookie (“ptlogin2.qq.com”)
網(wǎng)頁(yè)_清除Cookie (“xui.ptlogin2.qq.com”)
網(wǎng)頁(yè)_清除Cookie (“qzone.qq.com”)
網(wǎng)頁(yè)_清除Cookie (“user.qzone.qq.com”)
網(wǎng)頁(yè)_清除Cookie (“qzs.qq.com”)
網(wǎng)頁(yè)_清除Cookie (“qzone.qq.com”)
按鈕_快速登錄.標(biāo)題 ＝ “快速登錄”
標(biāo)簽_QQ號(hào)碼.標(biāo)題 ＝ “QQ號(hào)碼：未登錄”
標(biāo)簽_狀態(tài).標(biāo)題 ＝ “狀態(tài)：未登錄”
標(biāo)簽_留言數(shù).標(biāo)題 ＝ “留言數(shù)：未登錄”
圖片框1.圖片 ＝ 獲取QQ頭像 (“10000”)
超級(jí)列表框1.全部刪除 ()
信息框 (“注銷登錄成功”, 0, )

運(yùn)行結(jié)果：

看完上述內(nèi)容，你們對(duì)使用易語(yǔ)言怎么批量刪除QQ空間留言有進(jìn)一步的了解嗎？如果還想了解更多知識(shí)或者相關(guān)內(nèi)容，請(qǐng)關(guān)注億速云行業(yè)資訊頻道，感謝大家的支持。