易語(yǔ)言通過get的方式多線程刷微視播放量的代碼

.版本 2
.全局變量 skey, 文本型
.全局變量 gtk, 文本型

.版本 2
.支持庫(kù) spec
.程序集 窗口程序集_窗口1
.子程序 _超文本瀏覽框1_載入開始
.局部變量 正則, 正則表達(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)窗口.可視 ＝ 真
  銷毀 ()
.如果真結(jié)束
.子程序 計(jì)算Gtk, 文本型, 公開, 返回計(jì)算后的值（Gtk）
.參數(shù) 被計(jì)算值, 文本型, , skey或者p_skey
.局部變量 hash, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 skey1, 文本型
hash ＝ 5381
skey1 ＝ 被計(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é)束 ()

.版本 2
.支持庫(kù) EThread
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 臨界, 魚刺類_臨界許可
.程序集變量 線程池, 魚刺類_線程池Ex
.程序集變量 已刷播放量, 文本型
.程序集變量 id, 文本型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
_啟動(dòng)窗口.可視 ＝ 假
載入 (窗口1, , 真)
.子程序 工作開始
.局部變量 并發(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í)也沒事的 線程池在銷毀中被再次調(diào)用 銷毀 會(huì)立即返回 假 不會(huì)造成報(bào)錯(cuò)
.如果真結(jié)束
按鈕_啟動(dòng)停止.禁止 ＝ 真
按鈕_啟動(dòng)停止.標(biā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://h6.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://h6.qzone.qq.com”, )
http.SetReferer (“https://h6.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=正在銷毀。
int ＝ 線程池.取_狀態(tà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)：正在銷毀”
.默認(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)題
.判斷開始 (str ＝ “啟動(dòng)”)
  id ＝ 文本_取中間 (編輯框_作品地址.內(nèi)容, “weishi/feed/”, “/wsfeed”, , , , )
  .如果 (id ≠ “”)
    編輯框_作品地址.禁止 ＝ 真
    時(shí)鐘_狀態(tài).時(shí)鐘周期 ＝ 1000
    啟動(dòng)線程 (&工作開始, , )
  .否則
    信息框 (“未在編輯框內(nèi)找到視頻id”, 0, , )
  .如果結(jié)束
.判斷 (str ＝ “停止”)
  工作結(jié)束 ()
.默認(rèn)
  _處理事件 ()
.判斷結(jié)束
.子程序 __啟動(dòng)窗口_可否被關(guān)閉, 邏輯型
工作結(jié)束 ()