全局變量表
.版本 2.全局變量 skey, 文本型.全局變量 gtk, 文本型
QQ登陸代碼
.版本 2.支持庫(kù) spec.程序集 窗口程序集_窗口1.子程序 _超文本瀏覽框1_載入開(kāi)始.局部變量 正則, 正則表達(dá)式.局部變量 cookie, 文本型cookie = 網(wǎng)頁(yè)_取Cookie (“qq.com”, )調(diào)試輸出 (cookie).如果真 (尋找文本 (cookie, “;skey=”, , 假) ≠ -1) 正則.創(chuàng)建 (“(@[0-9a-zA-Z]{9})”, , , ) 正則.搜索全部 (cookie) skey = 正則.取子匹配文本 (1, 1) gtk = 計(jì)算Gtk (skey) _啟動(dòng)窗口.可視 = 真 銷(xiāo)毀 ().如果真結(jié)束.子程序 計(jì)算Gtk, 文本型, 公開(kāi), 返回計(jì)算后的值(Gtk).參數(shù) 被計(jì)算值, 文本型, , skey或者p_skey.局部變量 hash, 整數(shù)型.局部變量 i, 整數(shù)型.局部變量 skey1, 文本型hash = 5381skey1 = 被計(jì)算值.如果真 (skey1 = “”) skey1 = 被計(jì)算值.如果真結(jié)束.計(jì)次循環(huán)首 (取文本長(zhǎng)度 (skey1), i) hash = hash + 左移 (hash, 5) + 取代碼 (skey1, i).計(jì)次循環(huán)尾 ()hash = 位與 (hash, 2147483647)返回 (到文本 (hash)).子程序 _窗口1_可否被關(guān)閉, 邏輯型結(jié)束 ()
微視多線程刷播放量的代碼
實(shí)現(xiàn)此功能需要加載精易模塊5.6、魚(yú)刺類_Http模塊和魚(yú)刺類_多線程應(yīng)用模塊
.版本 2.支持庫(kù) EThread.程序集 窗口程序集_啟動(dòng)窗口.程序集變量 臨界, 魚(yú)刺類_臨界許可.程序集變量 線程池, 魚(yú)刺類_線程池Ex.程序集變量 已刷播放量, 文本型.程序集變量 id, 文本型.子程序 __啟動(dòng)窗口_創(chuàng)建完畢_啟動(dòng)窗口.可視 = 假載入 (窗口1, , 真).子程序 工作開(kāi)始.局部變量 并發(fā)線程數(shù), 整數(shù)型.局部變量 bool, 邏輯型.局部變量 需刷數(shù)量, 整數(shù)型.局部變量 int, 整數(shù)型.局部變量 已派發(fā)任務(wù)數(shù), 整數(shù)型.如果真 (線程池.取_狀態(tài) () ≠ 0) 返回 ().如果真結(jié)束按鈕_啟動(dòng)停止.禁止 = 真按鈕_啟動(dòng)停止.標(biāo)題 = “正在啟動(dòng)”并發(fā)線程數(shù) = 到整數(shù) (編輯框_并發(fā)線程數(shù).內(nèi)容).如果真 (并發(fā)線程數(shù) < 1) 并發(fā)線程數(shù) = 1.如果真結(jié)束.如果真 (并發(fā)線程數(shù) > 999) 并發(fā)線程數(shù) = 999.如果真結(jié)束bool = 線程池.創(chuàng)建 (并發(fā)線程數(shù), , , , ).如果真 (bool = 假) 按鈕_啟動(dòng)停止.標(biāo)題 = “啟動(dòng)” 按鈕_啟動(dòng)停止.禁止 = 假 返回 ().如果真結(jié)束需刷數(shù)量 = 到整數(shù) (編輯框_注冊(cè)數(shù)量.內(nèi)容).如果真 (需刷數(shù)量 < 1) 需刷數(shù)量 = 1.如果真結(jié)束按鈕_啟動(dòng)停止.標(biāo)題 = “停止”按鈕_啟動(dòng)停止.禁止 = 假已派發(fā)任務(wù)數(shù) = 0.判斷循環(huán)首 (已派發(fā)任務(wù)數(shù) < 需刷數(shù)量) int = 線程池.取_空閑線程數(shù) () .判斷循環(huán)首 (int = 0) .如果真 (線程池.取_狀態(tài) () ≠ 1) 返回 () .如果真結(jié)束 _延遲 (10) int = 線程池.取_空閑線程數(shù) () .判斷循環(huán)尾 () .計(jì)次循環(huán)首 (int, ) 線程池.投遞任務(wù) (&刷播放量, , ) 已派發(fā)任務(wù)數(shù) = 已派發(fā)任務(wù)數(shù) + 1 .計(jì)次循環(huán)尾 () _處理事件 ().判斷循環(huán)尾 ().判斷循環(huán)首 (線程池.取_是否空閑 () = 假) .如果真 (線程池.取_狀態(tài) () ≠ 1) 返回 () .如果真結(jié)束 _延遲 (10).判斷循環(huán)尾 ()工作結(jié)束 ().子程序 工作結(jié)束.如果真 (線程池.取_狀態(tài) () ≠ 1) 返回 () ' 防止頻繁調(diào)用 其實(shí)也沒(méi)事的 線程池在銷(xiāo)毀中被再次調(diào)用 銷(xiāo)毀 會(huì)立即返回 假 不會(huì)造成報(bào)錯(cuò).如果真結(jié)束按鈕_啟動(dòng)停止.禁止 = 真按鈕_啟動(dòng)停止.標(biāo)題 = “正在停止”線程池.銷(xiāo)毀 ()按鈕_啟動(dòng)停止.標(biāo)題 = “啟動(dòng)”按鈕_啟動(dòng)停止.禁止 = 假時(shí)鐘_狀態(tài).時(shí)鐘周期 = 1000編輯框_作品地址.禁止 = 假.子程序 刷播放量.局部變量 http, WinHttpW.局部變量 data, 文本型.局部變量 局_skey, 文本型.局部變量 局_gtk, 文本型.局部變量 局_id, 文本型臨界.進(jìn)入 ()局_skey = skey局_gtk = gtk局_id = id臨界.退出 ()http.Auto ()http.AutoCookies ()http.SetTimeouts (3000, 3000, 3000, 3000)http.Cookies (“skey=” + 局_skey)http.Open (“POST”, “http://h5.qzone.qq.com/webapp/json/weishi/ReportFeedPlay?g_tk=” + 局_gtk)http.SetAccept (“application/json”)http.SetAcceptLanguage (“zh-CN,zh;q=0.9”)http.SetRequestHeader (“origin”, “https://h5.qzone.qq.com”, )http.SetReferer (“https://h5.qzone.qq.com/weishi/feed/” + 局_id + “/wsfeed?_proxy=1&_wv=1&id=” + 局_id + “&from=pc&orifrom=”)http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/65.0.3325.181 Safari/537.36”)http.SetContentType (“application/json”)http.SetXMLHttpRequest ()http.Send (“{” + #引號(hào) + “feed_id” + #引號(hào) + “:” + #引號(hào) + 局_id + #引號(hào) + “}”, , )data = http.GetResponseText ()臨界.進(jìn)入 ()' 試輸出 (data)已刷播放量 = 文本_取中間 (data, “playnum” + #引號(hào) + “:”, “,” + #引號(hào) + “_idc”, , , , )' 輸出 (已刷播放量)臨界.退出 ()返回 ().子程序 _時(shí)鐘_狀態(tài)_周期事件.局部變量 int, 整數(shù)型' 0=未啟動(dòng),1=正在工作,2=正在創(chuàng)建,3=正在銷(xiāo)毀。int = 線程池.取_狀態(tài) ().判斷開(kāi)始 (int = 0) 標(biāo)簽_線程池狀態(tài).標(biāo)題 = “線程池狀態(tài):未啟動(dòng)”.判斷 (int = 1) 標(biāo)簽_線程池狀態(tài).標(biāo)題 = “線程池狀態(tài):正在工作”.判斷 (int = 2) 標(biāo)簽_線程池狀態(tài).標(biāo)題 = “線程池狀態(tài):正在創(chuàng)建”.判斷 (int = 3) 標(biāo)簽_線程池狀態(tài).標(biāo)題 = “線程池狀態(tài):正在銷(xiāo)毀”.默認(rèn).判斷結(jié)束int = 線程池.取_線程池容量 ()標(biāo)簽_線程池容量.標(biāo)題 = “線程池容量:” + 到文本 (int)int = 線程池.取_執(zhí)行線程數(shù) ()標(biāo)簽_執(zhí)行線程數(shù).標(biāo)題 = “執(zhí)行線程數(shù):” + 到文本 (int)int = 線程池.取_空閑線程數(shù) ()標(biāo)簽_空閑線程數(shù).標(biāo)題 = “空閑線程數(shù):” + 到文本 (int)int = 線程池.取_隊(duì)列任務(wù)數(shù) ()標(biāo)簽_隊(duì)列任務(wù)數(shù).標(biāo)題 = “隊(duì)列任務(wù)數(shù):” + 到文本 (int)標(biāo)簽_已注冊(cè)數(shù)量.標(biāo)題 = “已刷播放量:” + 已刷播放量.子程序 _按鈕_啟動(dòng)停止_被單擊.局部變量 str, 文本型str = 按鈕_啟動(dòng)停止.標(biāo)題.判斷開(kāi)始 (str = “啟動(dòng)”) id = 文本_取中間 (編輯框_作品地址.內(nèi)容, “weishi/feed/”, “/wsfeed”, , , , ) .如果 (id ≠ “”) 編輯框_作品地址.禁止 = 真 時(shí)鐘_狀態(tài).時(shí)鐘周期 = 1000 啟動(dòng)線程 (&工作開(kāi)始, , ) .否則 信息框 (“未在編輯框內(nèi)找到視頻id”, 0, , ) .如果結(jié)束.判斷 (str = “停止”) 工作結(jié)束 ().默認(rèn) _處理事件 ().判斷結(jié)束.子程序 __啟動(dòng)窗口_可否被關(guān)閉, 邏輯型工作結(jié)束 ()
運(yùn)行結(jié)果:
總結(jié)
以上就是這篇文章的全部?jī)?nèi)容了,希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,謝謝大家對(duì)VeVb武林網(wǎng)的支持。
新聞熱點(diǎn)
疑難解答
圖片精選