利用新浪博客做自动检查更新源码

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

.程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 版本信息, 文件版本信息

.子程序 __启动窗口_创建完毕

' 启动线程 (&检查更新, , )
取文件版本信息 (取运行目录 () ＋ “” ＋ 取执行文件名 (), 版本信息)  ' 调试模式中是无法取得本地版本号的，编译后才行！
标签.标题 ＝ “本地版本：” ＋ 版本信息.文件版本

.子程序 _按钮_被单击

启动线程 (&检查更新, , )

.子程序 检查更新
.局部变量 源码, 文本型
.局部变量 正文, 文本型
.局部变量 版本号, 文本型
.局部变量 下载地址, 文本型
.局部变量 更新说明, 文本型

按钮.禁止 ＝ 真
按钮.标题 ＝ “正在检查更新...”
源码 ＝ 编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://blog.sina.com.cn/s/blog_151cdcb220102w8wm.html”)))
' 调试输出 (源码)
正文 ＝ 文本_取出中间文本 (源码, “<!-- 正文开始 -->”, “<!-- 正文结束 -->”, , 真)
' 调试输出 (正文)
版本号 ＝ 文本_取出中间文本 (正文, “[edition]=”, “[/edition]”, , 真)
调试输出 (“版本号：” ＋ 版本号)
下载地址 ＝ 文本_取出中间文本 (正文, “[downloadURL]=”, “[/downloadURL]”, , 真)
调试输出 (“下载地址：” ＋ 下载地址)
更新说明 ＝ 文本_取出中间文本 (正文, “[explain]=”, “[/explain]”, , 真)
调试输出 (“更新说明：” ＋ 更新说明)
标签.标题 ＝ “本地版本：” ＋ 版本信息.文件版本 ＋ “   服务器最新版本：” ＋ 版本号
编辑框.内容 ＝ 更新说明
.如果 (版本信息.文件版本 ≠ 版本号)
    .如果真 (信息框 (“发现新版本：” ＋ 版本号 ＋ #换行符 ＋ #换行符 ＋ “是否下载更新？”, 32 ＋ 4, “提示：”, ) ＝ #是钮)
        打开指定网址 (下载地址)
    .如果真结束
    按钮.标题 ＝ “发现新版本”
.否则
    按钮.标题 ＝ “暂无更新”
.如果结束
按钮.禁止 ＝ 假

@wei1044