易語言制作DNF解封源碼
更新時間:2019年02月20日 08:53:57 作者:易語言源碼教程
今天小編就為大家分享一篇關(guān)于易語言制作DNF解封源碼,小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
DNF解封源碼
需要加載精易模塊7.0
.版本 2 .支持庫 HtmlView .支持庫 spec .程序集 窗口程序集__啟動窗口 .程序集變量 Cookie, 文本型 .程序集變量 瀏覽器組地址, 文本型 .子程序 __啟動窗口_創(chuàng)建完畢 .局部變量 ADD_數(shù)據(jù)包, 類_POST數(shù)據(jù)類 .局部變量 方式, 整數(shù)型 .局部變量 局_結(jié)果, 字節(jié)集 .局部變量 局_返回, 文本型 .局部變量 局_提交數(shù)據(jù), 文本型 方式 = 1 瀏覽器組地址 = “https://act.gamesafe.qq.com/safe_task/dnf/index.shtml” ADD_數(shù)據(jù)包.添加 (“game_id”, “5”) ADD_數(shù)據(jù)包.添加 (“answer”, “64-1|31-3|73-2|35-4|33-2|49-2|70-3|56-3|84-3|57-3|16-2|44-2|21-2|75-4|48-3|93-4|68-4|10-1|81-2|49-2|89-4|71-2|5-4|68-4|56-3|31-3|11-4|67-2|36-4|1-4|73-2|8-2|86-4|22-4|91-2|84-3|80-2|25-4|14-1|3-4|62-1|61-3|56-3|74-2|64-1|45-2|39-2|59-3|9-1|80-2|42-3|20-3|91-2|23-4|1-4|53-4|26-3|92-2|6-2|44-2|56-3|54-3|41-2|58-4|44-2|14-3|64-1|60-1|24-3|7-1|22-4|33-4|68-4|21-1|27-2|20-3|23-4|91-2|36-4|53-4|66-3|25-2|75-4|36-4|17-2|31-3|61-3|42-3|2-4|4-3|35-3|4-3|18-2|33-4|32-4|64-1|7-4|79-4|13-2|44-2|49-2|70-3|31-3|89-4|22-4|86-4|76-2|78-4|7-3|17-2|3-3|9-4|84-3|34-3|4-3|63-3|1-4|5-4|11-4|26-3|84-3|65-3|34-3|85-2|44-2|62-1|58-4|87-4|43-2|2-4”) 局_提交數(shù)據(jù) = ADD_數(shù)據(jù)包.獲取Post數(shù)據(jù) () Cookie = 超文本瀏覽框.地址 局_結(jié)果 = 到字節(jié)集 (網(wǎng)頁_訪問S (瀏覽器組地址, 方式, 局_提交數(shù)據(jù), Cookie, , , , , , , , , , , , , , )) _啟動窗口.高度 = 取屏幕高度 () - 40 _啟動窗口.寬度 = 取屏幕寬度 () 超文本瀏覽框.高度 = _啟動窗口.高度 - 90 超文本瀏覽框.寬度 = _啟動窗口.寬度 _啟動窗口.左邊 = 0 _啟動窗口.頂邊 = 0 超文本瀏覽框.跳轉(zhuǎn) (瀏覽器組地址, , ) _啟動窗口.標(biāo)題 = “當(dāng)前網(wǎng)址:” + 瀏覽器組地址 .子程序 _按鈕_后退_被單擊 超文本瀏覽框.執(zhí)行命令 (1) .子程序 _按鈕_刷新_被單擊 超文本瀏覽框.執(zhí)行命令 (4) .子程序 _按鈕_前進(jìn)_被單擊 超文本瀏覽框.執(zhí)行命令 (0) .子程序 _解封_被單擊 .局部變量 ADD_數(shù)據(jù)包, 類_POST數(shù)據(jù)類 .局部變量 網(wǎng)址, 文本型 .局部變量 方式, 整數(shù)型 .局部變量 局_結(jié)果, 字節(jié)集 .局部變量 局_返回, 文本型 .局部變量 局_提交數(shù)據(jù), 文本型 網(wǎng)址 = “https://act.gamesafe.qq.com/safe_task/dnf/index.shtml” ADD_數(shù)據(jù)包.添加 (“game_id”, “5”) ADD_數(shù)據(jù)包.添加 (“answer”, “64-1|31-3|73-2|35-4|33-2|49-2|70-3|56-3|84-3|57-3|16-2|44-2|21-2|75-4|48-3|93-4|68-4|10-1|81-2|49-2|89-4|71-2|5-4|68-4|56-3|31-3|11-4|67-2|36-4|1-4|73-2|8-2|86-4|22-4|91-2|84-3|80-2|25-4|14-1|3-4|62-1|61-3|56-3|74-2|64-1|45-2|39-2|59-3|9-1|80-2|42-3|20-3|91-2|23-4|1-4|53-4|26-3|92-2|6-2|44-2|56-3|54-3|41-2|58-4|44-2|14-3|64-1|60-1|24-3|7-1|22-4|33-4|68-4|21-1|27-2|20-3|23-4|91-2|36-4|53-4|66-3|25-2|75-4|36-4|17-2|31-3|61-3|42-3|2-4|4-3|35-3|4-3|18-2|33-4|32-4|64-1|7-4|79-4|13-2|44-2|49-2|70-3|31-3|89-4|22-4|86-4|76-2|78-4|7-3|17-2|3-3|9-4|84-3|34-3|4-3|63-3|1-4|5-4|11-4|26-3|84-3|65-3|34-3|85-2|44-2|62-1|58-4|87-4|43-2|2-4”) Cookie = 超文本瀏覽框.地址 局_提交數(shù)據(jù) = ADD_數(shù)據(jù)包.獲取Post數(shù)據(jù) () 局_結(jié)果 = 到字節(jié)集 (網(wǎng)頁_訪問S (網(wǎng)址, 方式, 局_提交數(shù)據(jù), Cookie, , , , , , , , , , , , , , )) 網(wǎng)頁_訪問S (“https://act.gamesafe.qq.com/api/qq/proxy/safe_task_update?game_id=5&op_type=punish”, 0, , Cookie) _啟動窗口.高度 = 取屏幕高度 () - 40 _啟動窗口.寬度 = 取屏幕寬度 () 超文本瀏覽框.高度 = _啟動窗口.高度 - 90 超文本瀏覽框.寬度 = _啟動窗口.寬度 _啟動窗口.左邊 = 0 _啟動窗口.頂邊 = 0 超文本瀏覽框.跳轉(zhuǎn) (瀏覽器組地址, , ) _啟動窗口.標(biāo)題 = “當(dāng)前網(wǎng)址:” + 瀏覽器組地址 信息框 (“成功解除,如果沒有成功,請檢查是否登陸成功。”, 0, , ) .子程序 _按鈕1_被單擊 .局部變量 原地址, 文本型 .局部變量 易語言標(biāo)志符, 文本型 .局部變量 地址數(shù)組, 文本型, , "0" .局部變量 數(shù)組成員數(shù), 整數(shù)型 .局部變量 新地址, 文本型 .局部變量 i, 整數(shù)型 .局部變量 易語言代碼, 文本型 易語言標(biāo)志符 = “.版本 2” + #換行符 原地址 = 超文本瀏覽框.地址 原地址 = 子文本替換 (超文本瀏覽框.地址, “http://dev.eydata.net/”, “”, , , 真) 地址數(shù)組 = 分割文本 (原地址, “/”, ) 數(shù)組成員數(shù) = 取數(shù)組成員數(shù) (地址數(shù)組) .判斷開始 (到數(shù)值 (地址數(shù)組 [數(shù)組成員數(shù)]) > 1000) .計次循環(huán)首 (數(shù)組成員數(shù) - 1, i) 新地址 = 新地址 + “/” + 地址數(shù)組 [i] .計次循環(huán)尾 () 易語言代碼 = 易語言標(biāo)志符 + “瀏覽器組地址 = ” + #引號 + “http://dev.eydata.net” + 新地址 + “/” + #引號 + “ + 授權(quán)號” + #換行符 + “載入 (_啟動窗口, , 假)” .默認(rèn) 易語言代碼 = 易語言標(biāo)志符 + “瀏覽器組地址 = ” + #引號 + 超文本瀏覽框.地址 + #引號 + #換行符 + “載入 (_啟動窗口, , 假)” .判斷結(jié)束 .判斷開始 (置剪輯板文本 (易語言代碼) = 真) _啟動窗口.標(biāo)題 = “當(dāng)前網(wǎng)址” + 超文本瀏覽框.地址 + “ 復(fù)制復(fù)制當(dāng)前頁面的載入易語言代碼到剪切板成功” .默認(rèn) _啟動窗口.標(biāo)題 = “當(dāng)前網(wǎng)址” + 超文本瀏覽框.地址 + “ 復(fù)制復(fù)制當(dāng)前頁面的載入易語言代碼到剪切板失敗” .判斷結(jié)束 調(diào)試輸出 (易語言代碼)
運(yùn)行結(jié)果:
總結(jié)
以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,謝謝大家對腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接
您可能感興趣的文章:
- CentOS8 yum/dnf 配置國內(nèi)源的方法
- CentOS7使用dnf安裝mysql的方法
- linux NFS安裝配置及常見問題、/etc/exports配置文件、showmount命令
- linux系統(tǒng)之間通過nfs網(wǎng)絡(luò)文件系統(tǒng)掛載設(shè)置方法
- CentOS 7中搭建NFS文件共享存儲服務(wù)的完整步驟
- Linux NFS服務(wù)器的安裝與配置方法(圖文詳解)
- Ubuntu16.04搭建NFS 文件共享服務(wù)器的方法
- linux下NFS配置教程詳解
- Linux服務(wù)器配置—搭建NFS服務(wù)器步驟
- Linux環(huán)境部署DNF倉庫以及配置NFS共享服務(wù)