易语言利用文档做软件远程更新

易语言利用文档做软件远程更新

.版本 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, , )
    .判断结束

.判断结束

@tengfei666