易语言程序检测更新源码

.版本 2
.支持库 eAPI
.支持库 internet
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 版本信息, 文件版本信息

.子程序 __启动窗口_创建完毕
.局部变量 源码, 文本型
.局部变量 正文, 文本型
.局部变量 版本号, 文本型
.局部变量 下载地址, 文本型
.局部变量 更新说明, 文本型

' 启动线程 (&检查更新, , )
取文件版本信息 (取运行目录 () ＋ “” ＋ 取执行文件名 (), 版本信息)  ' 调试模式中是无法取得本地版本号的，编译后才行！
标签2.标题 ＝ “1.0.0.9”  ' 现在这个版本的版本号
按钮1.标题 ＝ “正在检查更新...”
源码 ＝ 编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://blog.sina.com.cn/s/blog_1656a25010102wkc2.html”)))  ' 博客正文地址
' 调试输出 (源码)
正文 ＝ 文本_取出中间文本 (源码, “<!-- 正文开始 -->”, “<!-- 正文结束 -->”, , 真)
' 调试输出 (正文)
版本号 ＝ 文本_取出中间文本 (正文, “[edition]=”, “[/edition]”, , 真)
调试输出 (“版本号：” ＋ 版本号)
下载地址 ＝ 文本_取出中间文本 (正文, “[downloadURL]=”, “[/downloadURL]”, , 真)
调试输出 (“下载地址：” ＋ 下载地址)
更新说明 ＝ 文本_取出中间文本 (正文, “[explain]=”, “[/explain]”, , 真)
调试输出 (“更新说明：” ＋ 更新说明)
标签4.标题 ＝ 版本号  ' 版本号是你博客里设置的版本号。当你有软件更新了 就去博客里修改正文里面的版本号
编辑框1.内容 ＝ 更新说明  ' 这个是软件说明 我是永哥  可以修改成你想说的 http://blog.sina.com.cn/s/blog_1656a25010102wkc2.html
.如果 (是否与互联网连接 () ＝ 真)
    .如果 (标签2.标题 ≠ 标签4.标题)
        .如果 (信息框 (“发现新版本：” ＋ 版本号 ＋ #换行符 ＋ 更新说明 ＋ #换行符 ＋ “是否下载更新？”, 32 ＋ 4, “提示：”, ) ＝ #是钮)
            销毁 ()
            打开指定网址 (“www.baidu.com”)  ' 新软件的下载地址
        .否则
            .如果 (信息框 (“最新版本QQ群283442866中也有” ＋ #换行符 ＋ “你可以快速加群，和手动加群” ＋ #换行符 ＋ “是否快速加群？”, 32 ＋ 4, “温馨提示”, ) ＝ #是钮)
                打开指定网址 (“http://qun.qq.com/qunpay/qunfee/qrcode.html?gc=283442866&source=joingroup&_wv=1031”)
            .否则
                销毁 ()
            .如果结束
            销毁 ()
        .如果结束

    .否则
        信息框 (“已经是最新版本”, 0, , )
    .如果结束
    返回 ()
.否则
    信息框 (“网络未接通！”, #错误图标, , )
.如果结束

@2238831909