易语言EPAS自动更新教程

1、注册EPAS账户

2、创建软件版本及名称

3、获取相关代码

1、创建程序检测程序更新代码

.版本 2

.支持库 eAPI

.支持库 shell

.支持库 spec

.如果 (更新开关 ＝ 真)

    更新返回 ＝ POST (“info”, 0, “”)

    更新 ＝ 分割文本 (更新返回, “::”, 5)

    .如果 (到文本 (更新 [5]) ＝ “1”)

        .如果 (信息框 (“当前有新版本，务必更新，是否立即更新？”, #是否钮, “强制更新”) ＝ #是钮)

            打开指定网址 (更新 [3])

        .否则

            结束 ()

        .如果结束

    .否则

        .如果 (到文本 (更新 [5]) ＝ “0”)

            .如果 (信息框 (“当前有新版本，是否立即更新？”, #是否钮, “更新”) ＝ #是钮)

                打开指定网址 (更新 [3])

                结束 ()

            .否则

            .如果结束

        .否则

            .如果 (读配置项 (取特定目录 (8) ＋ “/” ＋ 软件名称, “用户”, “配置”, ) ＝ “1”)

                自动登录 ＝ POST (“autoreg”, 0, “”)

                .如果 (自动登录 ＝ “1”)

                    到期时间 ＝ 分割文本 (POST (“uinfo”, 0, “”), “::”, 7)

                    标签2.标题 ＝ 到文本 (“到期时间” ＋ 到期时间 [7])

                    延迟 (1000)

                    _启动窗口.可视 ＝ 假

                    载入 (功能主界面, , 真)

                .否则

                .如果结束

            .否则

            .如果结束

2、添加变量

.版本 2

.全局变量 软件名称1, 文本型

.全局变量 扣点查询, 逻辑型

.全局变量 登陆方式, 整数型

.全局变量 APPID, 文本型

.全局变量 APPKEY, 文本型

.全局变量 试用, 逻辑型

.全局变量 版本号, 文本型

.全局变量 软件名称, 文本型

.全局变量 注册模式, 逻辑型

.全局变量 更新开关, 逻辑型

.全局变量 配置项地址, 文本型

.全局变量 点数名称, 文本型

.全局变量 渐出美化, 逻辑型

.全局变量 弹出速度, 整数型

.全局变量 子夹, 整数型

.全局变量 读取文本, 文本型

3、版本获取代码

.版本 2

.支持库 iext

返回值 ＝ SETUPEx (取窗口句柄 (), APPID, APPKEY, 版本号)

.如果 (返回值 ＝ “1”)

    检测更新 ()

    透明标签3.标题 ＝ POST (“info”, 0, “”)

    标签2.标题 ＝ “初始化成功，请登陆！”

1、.版本 2

.DLL命令 SETUP, 逻辑型, "PEAS.dll", "SETUP", 公开

    .参数 窗口句柄, 整数型

    .参数 AppID, 文本型

    .参数 AppKey, 文本型

    .参数 Version, 文本型

.DLL命令 POST, 文本型, "PEAS.dll", "POST", 公开

    .参数 shorturl, 文本型

    .参数 httpverb, 整数型

    .参数 inputparams, 文本型

.DLL命令 LOGIN, 文本型, "PEAS.dll", "LOGIN", 公开

    .参数 inputparams, 文本型

.DLL命令 ONLINE, 文本型, "PEAS.dll", "ONLINE", 公开

.DLL命令 SETUPEx, 文本型, "PEAS.dll", "SETUPEx", 公开

    .参数 窗口句柄, 整数型

    .参数 appid, 文本型

    .参数 appkey, 文本型

    .参数 version, 文本型