易语言利用文档做软件远程更新
.版本 2
.支持库 spec
.支持库 shell
.支持库 internet
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 json, 类_json
.局部变量 局_返回值, 文本型
.局部变量 最新版本, 文本型
.局部变量 最新下载链接, 文本型
.局部变量 强制更新, 文本型
局_返回值 = 编码_URL解码 (到文本 (网页_访问_对象 (“https://wds.ecsxs.com/9795.html”, 0, , , , , , , , , , , , , , , , , )), 真) ' 获取文档内容
调试输出 (局_返回值)
json.解析 (局_返回值) ' 解析文档内容
.判断开始 (json.取通用属性 (“软件状态”, ) = “开启”) ' 判断软件状态是否为开启状态
编辑框1.内容 = json.取通用属性 (“公告内容”, )
_启动窗口.标题 = json.取通用属性 (“公告标题”, )
.默认
信息框 (“软件已关闭”, 0, , )
_启动窗口.销毁 ()
.判断结束
' '''''''------------------以上是利用文档做软件远程公告的源码------------------------------
最新版本 = json.取通用属性 (“最新版本”, )
最新下载链接 = json.取通用属性 (“下载链接”, )
强制更新 = json.取通用属性 (“强制更新”, )
.判断开始 (强制更新 = “真”)
.判断开始 (标签2.标题 ≠ 最新版本)
信息框 (“检测到新版本,开始更新!本次为强制更新”, 0, , )
.判断开始 (写到文件 (取特定目录 (#系统桌面) + “最新版本.txt”, HTTP读文件 (最新下载链接)) = 真)
信息框 (“已经自动为您把最新版下载到桌面!”, 0, , )
销毁 ()
.默认
信息框 (“抱歉 下载失败 请手动下载,软件链接:” + 最新下载链接, 0, , )
.判断结束
.默认
' 信息框 (“本软件是最新版 不用更新”, 0, , )
.判断结束
.默认
.判断开始 (标签2.标题 ≠ 最新版本)
.判断开始 (信息框 (“检测到新版本,开始更新!本次为可选更新”, 1, , ) = #取消钮)
.默认
信息框 (“检测到新版本,开始更新!本次为强制更新”, 0, , )
.判断开始 (写到文件 (取特定目录 (#系统桌面) + “最新版本.txt”, HTTP读文件 (最新下载链接)) = 真)
信息框 (“已经自动为您把最新版下载到桌面!”, 0, , )
销毁 ()
.默认
信息框 (“抱歉 下载失败 请手动下载,软件链接:” + 最新下载链接, 0, , )
.判断结束
.判断结束
.默认
' 信息框 (“本软件是最新版 不用更新”, 0, , )
.判断结束
.判断结束
易语言怎么让软件远程更新