易語(yǔ)言實(shí)現(xiàn)QQ空間留言批量刪除的代碼
更新時(shí)間：2018年11月27日 10:00:34 作者：易語(yǔ)言源碼教程
今天小編就為大家分享一篇關(guān)于易語(yǔ)言實(shí)現(xiàn)QQ空間留言批量刪除的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧
全局變量表
.版本 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://h5.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é)果：
總結(jié)
以上就是這篇文章的全部?jī)?nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接
相關(guān)文章
在本篇內(nèi)容里小編給大家分享的是關(guān)于易語(yǔ)言整蠱軟件制作方法和步驟，需要的朋友們可以學(xué)習(xí)下。2018-12-12
易語(yǔ)言通過(guò)百度ocr接口識(shí)別圖片記錄微信轉(zhuǎn)賬金額的代碼
今天小編就為大家分享一篇關(guān)于易語(yǔ)言通過(guò)百度ocr接口識(shí)別圖片記錄微信轉(zhuǎn)賬金額的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
今天小編就為大家分享一篇關(guān)于易語(yǔ)言插入成員命令使用講解，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
在本篇內(nèi)容里小編為網(wǎng)友們分享了關(guān)于易語(yǔ)言復(fù)制數(shù)組的方法內(nèi)容，需要的朋友們可以學(xué)習(xí)下。2018-12-12
易語(yǔ)言繁體字簡(jiǎn)體字轉(zhuǎn)換軟件制作
在本篇內(nèi)容里小編為大家分享的是關(guān)于易語(yǔ)言繁體字簡(jiǎn)體字轉(zhuǎn)換軟件制作過(guò)程，對(duì)此有需要的朋友們學(xué)習(xí)下。2019-01-01
今天小編就為大家分享一篇關(guān)于易語(yǔ)言位取反命令使用講解，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
易語(yǔ)言關(guān)于變量的知識(shí)點(diǎn)
在本篇文章里小編給大家分享的是關(guān)于易語(yǔ)言關(guān)于變量的知識(shí)點(diǎn)內(nèi)容，有興趣的朋友們可以參考下。2020-03-03
今天小編就為大家分享一篇關(guān)于易語(yǔ)言定義滑塊條刻度大小的方法，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧2018-11-11
在本篇內(nèi)容里小編給大家分享了關(guān)于易語(yǔ)言插件按鍵精靈調(diào)用方法，對(duì)此有興趣的朋友們可以學(xué)習(xí)下。2019-01-01
在本篇內(nèi)容里小編給大家整理的是關(guān)于易語(yǔ)言靜態(tài)翻譯問(wèn)題的詳解，需要的朋友們可以跟著學(xué)習(xí)下。2018-12-12