易语言制作DNF解封源码

DNF解封源码

需要加载精易模块7.0

.版本 2
.支持库 HtmlView
.支持库 spec
.程序集 窗口程序集__启动窗口
.程序集变量 Cookie, 文本型
.程序集变量 浏览器组地址, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 方式, 整数型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 局_提交数据, 文本型
方式 ＝ 1
浏览器组地址 ＝ “https://act.gamesafe.qq.com/safe_task/dnf/index.shtml”
ADD_数据包.添加 (“game_id”, “5”)
ADD_数据包.添加 (“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”)
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
Cookie ＝ 超文本浏览框.地址
局_结果 ＝ 到字节集 (网页_访问S (浏览器组地址, 方式, 局_提交数据, Cookie, , , , , , , , , , , , , , ))
_启动窗口.高度 ＝ 取屏幕高度 () － 40
_启动窗口.宽度 ＝ 取屏幕宽度 ()
超文本浏览框.高度 ＝ _启动窗口.高度 － 90
超文本浏览框.宽度 ＝ _启动窗口.宽度
_启动窗口.左边 ＝ 0
_启动窗口.顶边 ＝ 0
超文本浏览框.跳转 (浏览器组地址, , )
_启动窗口.标题 ＝ “当前网址：” ＋ 浏览器组地址
.子程序 _按钮_后退_被单击
超文本浏览框.执行命令 (1)
.子程序 _按钮_刷新_被单击
超文本浏览框.执行命令 (4)
.子程序 _按钮_前进_被单击
超文本浏览框.执行命令 (0)
.子程序 _解封_被单击
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 网址, 文本型
.局部变量 方式, 整数型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 局_提交数据, 文本型
网址 ＝ “https://act.gamesafe.qq.com/safe_task/dnf/index.shtml”
ADD_数据包.添加 (“game_id”, “5”)
ADD_数据包.添加 (“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 ＝ 超文本浏览框.地址
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
局_结果 ＝ 到字节集 (网页_访问S (网址, 方式, 局_提交数据, Cookie, , , , , , , , , , , , , , ))
网页_访问S (“https://act.gamesafe.qq.com/api/qq/proxy/safe_task_update?game_id=5&op_type=punish”, 0, , Cookie)
_启动窗口.高度 ＝ 取屏幕高度 () － 40
_启动窗口.宽度 ＝ 取屏幕宽度 ()
超文本浏览框.高度 ＝ _启动窗口.高度 － 90
超文本浏览框.宽度 ＝ _启动窗口.宽度
_启动窗口.左边 ＝ 0
_启动窗口.顶边 ＝ 0
超文本浏览框.跳转 (浏览器组地址, , )
_启动窗口.标题 ＝ “当前网址：” ＋ 浏览器组地址
信息框 (“成功解除,如果没有成功,请检查是否登陆成功。”, 0, , )
.子程序 _按钮1_被单击
.局部变量 原地址, 文本型
.局部变量 易语言标志符, 文本型
.局部变量 地址数组, 文本型, , "0"
.局部变量 数组成员数, 整数型
.局部变量 新地址, 文本型
.局部变量 i, 整数型
.局部变量 易语言代码, 文本型
易语言标志符 ＝ “.版本 2” ＋ #换行符
原地址 ＝ 超文本浏览框.地址
原地址 ＝ 子文本替换 (超文本浏览框.地址, “http://dev.eydata.net/”, “”, , , 真)
地址数组 ＝ 分割文本 (原地址, “/”, )
数组成员数 ＝ 取数组成员数 (地址数组)
.判断开始 (到数值 (地址数组 [数组成员数]) ＞ 1000)
 .计次循环首 (数组成员数 － 1, i)
  新地址 ＝ 新地址 ＋ “/” ＋ 地址数组 [i]
 .计次循环尾 ()
 易语言代码 ＝ 易语言标志符 ＋ “浏览器组地址 ＝ ” ＋ #引号 ＋ “http://dev.eydata.net” ＋ 新地址 ＋ “/” ＋ #引号 ＋ “ + 授权号” ＋ #换行符 ＋ “载入 (_启动窗口, , 假)”
.默认
 易语言代码 ＝ 易语言标志符 ＋ “浏览器组地址 ＝ ” ＋ #引号 ＋ 超文本浏览框.地址 ＋ #引号 ＋ #换行符 ＋ “载入 (_启动窗口, , 假)”
.判断结束
.判断开始 (置剪辑板文本 (易语言代码) ＝ 真)
 _启动窗口.标题 ＝ “当前网址” ＋ 超文本浏览框.地址 ＋ “   复制复制当前页面的载入易语言代码到剪切板成功”
.默认
 _启动窗口.标题 ＝ “当前网址” ＋ 超文本浏览框.地址 ＋ “   复制复制当前页面的载入易语言代码到剪切板失败”
.判断结束
调试输出 (易语言代码)

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对华域联盟的支持。如果你想了解更多相关内容请查看下面相关链接