易語(yǔ)言實(shí)現(xiàn)快捷登錄查詢Q幣消費(fèi)記錄的代碼

.版本 2
.常量 常量1, "<文本長(zhǎng)度: 139>", , "accttype": "(.*?)"[\s\S]*?"balance": "(.*?)"[\s\S]*?"info": "(.*?)"[\s\S]*?"pay": "(.*?)"[\s\S]*?"save": "(.*?)"[\s\S]*?"tranday": "(.*?)"
.常量 常量2, "<文本長(zhǎng)度: 15>", , "list": [ ] } }

.版本 2
.全局變量 Cookie, 文本型
.全局變量 G_tk, 文本型
.全局變量 QQ號(hào)碼, 文本型

.版本 2
.支持庫(kù) HtmlView
.程序集 窗口程序集_啟動(dòng)窗口
.子程序 _超文本瀏覽框1_跳轉(zhuǎn)完畢
.如果真 (超文本瀏覽框1.地址 ＝ “https://my.pay.qq.com/account/account_qdqb_trade_record.shtml”)
  Cookie ＝ 網(wǎng)頁(yè)_取Cookie (“qq.com”)
  G_tk ＝ 計(jì)算G_tk (文本_取出中間文本 (Cookie, “skey=”, “;”))
  QQ號(hào)碼 ＝ 文本_取出中間文本 (Cookie, “uin=o”, “;”)
  載入 (窗口1, , 假)
  銷(xiāo)毀 ()
.如果真結(jié)束
.子程序 計(jì)算G_tk, 文本型
.參數(shù) skey, 文本型
.局部變量 hash, 整數(shù)型
.局部變量 計(jì)次, 整數(shù)型
hash ＝ 5381
.變量循環(huán)首 (1, 取文本長(zhǎng)度 (skey), 1, 計(jì)次)
  hash ＝ hash ＋ hash × 求次方 (2, 5) ＋ 取字節(jié)集數(shù)據(jù) (編碼_Ansi到Unicode (取文本中間 (skey, 計(jì)次, 1)), 3, )
.變量循環(huán)尾 ()
返回 (到文本 (位與 (hash, 進(jìn)制_十六到十 (“7fffffff”))))
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢

.版本 2
.支持庫(kù) EThread
.支持庫(kù) spec
.支持庫(kù) iext
.程序集 窗口程序集_窗口1
.子程序 _窗口1_創(chuàng)建完畢
截止編輯框.內(nèi)容 ＝ 到文本 (取年份 (取現(xiàn)行時(shí)間 ())) ＋ “-” ＋ 到文本 (取月份 (取現(xiàn)行時(shí)間 ())) ＋ “-” ＋ 到文本 (取日 (取現(xiàn)行時(shí)間 ()))
窗口1.標(biāo)題 ＝ 窗口1.標(biāo)題 ＋ “ [” ＋ QQ號(hào)碼 ＋ “]”
.子程序 _查詢按鈕_被單擊
.判斷開(kāi)始 (查詢按鈕.標(biāo)題 ＝ “開(kāi)始查詢”)
  導(dǎo)出按鈕.禁止 ＝ 假
  查詢按鈕.禁止 ＝ 真
  啟動(dòng)線程 (&子程序_開(kāi)始查詢, , )
.默認(rèn)
  查詢按鈕.標(biāo)題 ＝ “開(kāi)始查詢”
.判斷結(jié)束
.子程序 子程序_開(kāi)始查詢
.局部變量 返回文本, 文本型
.局部變量 共記錄, 文本型
.局部變量 正則, 正則表達(dá)式類(lèi)
.局部變量 i, 整數(shù)型
.局部變量 M, 整數(shù)型
.局部變量 頁(yè)數(shù), 整數(shù)型, 靜態(tài)
返回文本 ＝ 網(wǎng)頁(yè)_訪問(wèn)S (“http://my.pay.qq.com/cgi-bin/personal/account_tradeinfo.cgi?coin_type=0&start_date=” ＋ 起始編輯框.內(nèi)容 ＋ “&end_date=” ＋ 截止編輯框.內(nèi)容 ＋ “&page_no=1&channel=qdqb&per=10&extcode=&t=” ＋ 時(shí)間_取隨機(jī)時(shí)間戳 (), , , Cookie)
調(diào)試輸出 (返回文本)
共記錄 ＝ 文本_取出中間文本 (返回文本, #引號(hào) ＋ “count” ＋ #引號(hào) ＋ “: ” ＋ #引號(hào), #引號(hào))
查詢按鈕.標(biāo)題 ＝ “停止查詢[1/” ＋ 共記錄 ＋ “]”
頁(yè)數(shù) ＝ 0
超級(jí)列表框.全部刪除 ()
線程_初始化COM庫(kù) ()
.判斷循環(huán)首 (共記錄 ≠ “”)
  頁(yè)數(shù) ＝ 頁(yè)數(shù) ＋ 1
  返回文本 ＝ 網(wǎng)頁(yè)_訪問(wèn)S (“http://my.pay.qq.com/cgi-bin/personal/account_tradeinfo.cgi?coin_type=0&start_date=” ＋ 起始編輯框.內(nèi)容 ＋ “&end_date=” ＋ 截止編輯框.內(nèi)容 ＋ “&page_no=” ＋ 到文本 (頁(yè)數(shù)) ＋ “&channel=qdqb&per=10&extcode=&t=” ＋ 時(shí)間_取隨機(jī)時(shí)間戳 (), , , Cookie)
  返回文本 ＝ 編碼_usc2到ansi (返回文本)
  調(diào)試輸出 (返回文本)
  正則.創(chuàng)建 (#常量1, 返回文本)
  .計(jì)次循環(huán)首 (正則.取匹配數(shù)量 (), i)
    M ＝ 超級(jí)列表框.插入表項(xiàng) (, , , , , )
    超級(jí)列表框.置標(biāo)題 (M, 0, 正則.取子匹配文本 (i, 6))
    超級(jí)列表框.置標(biāo)題 (M, 1, 子程序_處理類(lèi)型 (正則.取子匹配文本 (i, 1)))
    超級(jí)列表框.置標(biāo)題 (M, 2, 子程序_處理收入 (正則.取子匹配文本 (i, 5)))
    超級(jí)列表框.置標(biāo)題 (M, 3, 子程序_處理收入 (正則.取子匹配文本 (i, 4)))
    超級(jí)列表框.置標(biāo)題 (M, 4, 正則.取子匹配文本 (i, 2))
    超級(jí)列表框.置標(biāo)題 (M, 5, 正則.取子匹配文本 (i, 3))
    查詢按鈕.標(biāo)題 ＝ “停止查詢[” ＋ 到文本 (超級(jí)列表框.取表項(xiàng)數(shù) ()) ＋ “/” ＋ 共記錄 ＋ “]”
  .計(jì)次循環(huán)尾 ()
  .如果真 (尋找文本 (返回文本, #常量2, , 假) ≠ -1)
    跳出循環(huán) ()
  .如果真結(jié)束
  .如果真 (查詢按鈕.標(biāo)題 ＝ “開(kāi)始查詢”)
    跳出循環(huán) ()
  .如果真結(jié)束
  程序_延時(shí) (50)
.判斷循環(huán)尾 ()
查詢按鈕.標(biāo)題 ＝ “開(kāi)始查詢”
線程_取消COM庫(kù) ()
查詢按鈕.禁止 ＝ 假
信息框 (“日期:” ＋ 起始編輯框.內(nèi)容 ＋ “ - ” ＋ 截止編輯框.內(nèi)容 ＋ #換行符 ＋ #換行符 ＋ “共消費(fèi)了：” ＋ 子程序_計(jì)算消費(fèi) () ＋ “ Q幣”, 0, “消費(fèi)結(jié)果：”, _啟動(dòng)窗口)
.子程序 子程序_計(jì)算消費(fèi), 文本型
.局部變量 i, 整數(shù)型
.局部變量 消費(fèi), 文本型
.局部變量 Q幣, 文本型
.局部變量 總數(shù), 文本型
.計(jì)次循環(huán)首 (超級(jí)列表框.取表項(xiàng)數(shù) (), i)
  消費(fèi) ＝ 超級(jí)列表框.取標(biāo)題 (i － 1, 3)
  Q幣 ＝ 超級(jí)列表框.取標(biāo)題 (i － 1, 1)
  .如果真 (Q幣 ＝ “Q幣” 或 Q幣 ＝ “Q點(diǎn)”)
    .如果真 (Q幣 ＝ “Q點(diǎn)”)
      消費(fèi) ＝ 到文本 (到數(shù)值 (消費(fèi)) ÷ 10)
    .如果真結(jié)束
    總數(shù) ＝ 到文本 (到數(shù)值 (總數(shù)) ＋ 到數(shù)值 (消費(fèi)))
  .如果真結(jié)束
.計(jì)次循環(huán)尾 ()
返回 (總數(shù))
.子程序 子程序_處理類(lèi)型, 文本型
.參數(shù) accttype, 文本型
.如果真 (accttype ＝ “1”)
  返回 (“Q幣”)
.如果真結(jié)束
.如果真 (accttype ＝ “3”)
  返回 (“Q點(diǎn)”)
.如果真結(jié)束
返回 (accttype)
.子程序 子程序_處理收入, 文本型
.參數(shù) 收入, 文本型
.如果真 (收入 ＝ “”)
  返回 (“—”)
.如果真結(jié)束
返回 (收入)
.子程序 _導(dǎo)出按鈕_被單擊
.局部變量 i, 整數(shù)型
.局部變量 導(dǎo)出的內(nèi)容, 文本型
.計(jì)次循環(huán)首 (超級(jí)列表框.取表項(xiàng)數(shù) (), i)
  導(dǎo)出的內(nèi)容 ＝ 導(dǎo)出的內(nèi)容 ＋ 超級(jí)列表框.取標(biāo)題 (i － 1, 0) ＋ “--” ＋ 超級(jí)列表框.取標(biāo)題 (i － 1, 1) ＋ “--” ＋ 超級(jí)列表框.取標(biāo)題 (i － 1, 2) ＋ “--” ＋ 超級(jí)列表框.取標(biāo)題 (i － 1, 3) ＋ “--” ＋ 超級(jí)列表框.取標(biāo)題 (i － 1, 5) ＋ “--” ＋ 超級(jí)列表框.取標(biāo)題 (i － 1, 6) ＋ #換行符
  處理事件 ()
.計(jì)次循環(huán)尾 ()
.如果 (寫(xiě)到文件 (取運(yùn)行目錄 () ＋ “\[” ＋ QQ號(hào)碼 ＋ “]Q幣消費(fèi)查詢.txt”, 到字節(jié)集 (導(dǎo)出的內(nèi)容)))
  信息框 (“導(dǎo)出成功”, 0, , )
.否則
  信息框 (“導(dǎo)出失敗”, 0, , )
.如果結(jié)束