在玩遊戲時候 總會有帳號被封 然後玩其他帳號 可以這樣會忘記那個帳號解封 本篇檔案就教大家如何利用易語言查詢遊戲帳號什麼時候封號的。
工具/原料
易語言
WinHttp類4.0模組
Json解析 模組
方法/步驟
首先開啟易語言新建視窗並且建立如圖片一樣的控制元件
編寫啟動視窗程式碼
.版本 2
.子程式 __啟動視窗_建立完畢
.區域性變數 淼JSON物件, 淼JSON物件
.區域性變數 陣列數量, 整數型
.區域性變數 i, 整數型
陣列數量 = 水淼JSON解析類.解析 (#Json)
輸出除錯文字 (陣列數量)
.計次迴圈首 (陣列數量, i)
組合框1.加入專案 (水淼JSON解析類.讀路徑 (#Json, “[” + 到文字 (i) + “].t”, 假), i)
.計次迴圈尾 ()
遊戲麼 就要有伺服器 我來讀寫伺服器
.版本 2
.子程式 _組合框1_列表項被選擇
.區域性變數 陣列物件, 整數型
.區域性變數 區域性_Json, 水淼JSON解析類
.區域性變數 區域性_Data, 文字型
.區域性變數 i, 整數型
組合框2.清空 ()
組合框2.加入專案 (“選擇伺服器”, )
組合框2.現行選中項 = 0
陣列物件 = 組合框1.取專案數值 (組合框1.現行選中項)
區域性_Data = 水淼JSON解析類.讀路徑 (#Json, “[” + 到文字 (陣列物件) + “].opt_data_array”, 假)
.計次迴圈首 (區域性_Json.解析 (區域性_Data), i)
組合框2.加入專案 (區域性_Json.讀路徑 (區域性_Data, “[” + 到文字 (i) + “].t”), 到整數 (區域性_Json.讀路徑 (區域性_Data, “[” + 到文字 (i) + “].v”)))
.計次迴圈尾 ()
這回到正題了 來讀取封號時間 注意看程式碼 一定不要錯
.版本 2
.支援庫 spec
.支援庫 iext
.子程式 查詢封號
.區域性變數 WinHttp, WinHttp_中文版
.區域性變數 引數_賬號, 文字型
.區域性變數 變數_結果, 文字型
.區域性變數 變數_提交, 文字型
.區域性變數 i, 整數型
引數_賬號 = 編輯框1.內容
除錯輸出 (引數_賬號)
WinHttp.開啟 (#POST, “http://apps.game.qq.com/cgi-bin/cf/a20090409forceout/getinfo.cgi”)
WinHttp.設定協議頭 (“Content-Type”, “multipart/form-data; boundary=----WebKitFormBoundarymBu0V5y5BF1dJEAg”)
WinHttp.設定協議頭 (“Referer”, “
變數_提交 = 子文字替換 (#提交資訊, “924322134”, 引數_賬號, , , 真)
變數_提交 = 子文字替換 (變數_提交, “大區”, 到文字 (組合框2.取專案數值 (組合框2.現行選中項)), , , 真)
除錯輸出 (變數_提交)
WinHttp.傳送_位元組集 (Ansi轉Utf8 (變數_提交))
變數_結果 = 取出結果 (到文字 (WinHttp.取返回位元組集 ()))
除錯輸出 (到文字 (WinHttp.取返回位元組集 ()), 變數_結果)
i = 超級列表框1.插入表項 (, 到文字 (超級列表框1.取表項數 () + 1), , , , )
超級列表框1.置標題 (i, 1, 編輯框1.內容)
超級列表框1.置標題 (i, 2, 組合框2.取專案文字 (組合框2.現行選中項))
超級列表框1.置標題 (i, 3, 變數_結果)
.子程式 取出結果, 文字型
.引數 Text, 文字型
.區域性變數 right, 整數型
.區域性變數 left, 整數型
right = 倒找文字 (Text, #常量2, , 假)
left = 倒找文字 (Text, “>”, right, 假)
left = left + 1
返回 (取文字中間 (Text, left, right - left))
.子程式 _匯出_被選擇
.區域性變數 i, 整數型
.區域性變數 表項, 文字型
.區域性變數 資料, 文字型
.計次迴圈首 (超級列表框1.取表項數 (), i)
表項 = 超級列表框1.取標題 (i - 1, 0) + “,” + 超級列表框1.取標題 (i - 1, 1) + “,” + 超級列表框1.取標題 (i - 1, 2) + “,” + 超級列表框1.取標題 (i - 1, 3)
資料 = 表項 + #換行符 + 資料
.計次迴圈尾 ()
除錯輸出 (資料)
寫到檔案 (取執行目錄 () + “\” + 到文字 (取現行時間 ()) + “.txt”, 到位元組集 (資料))
看一下 還有優化地方
選單忘記寫進去了
.版本 2
.子程式 _超級列表框1_滑鼠右鍵被按下, 邏輯型
.引數 橫向位置, 整數型
.引數 縱向位置, 整數型
.引數 功能鍵狀態, 整數型
彈出選單 (選單, , )
除錯成功
看下我的軟體是否有效果
注意事項
支援正版易語言
模組一定要使用正確 並且引用不然會不成功的