.版本 2 .支持库 eAPI .支持库 EThread .支持库 internet .支持库 spec .程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 版本信息, 文件版本信息 .子程序 __启动窗口_创建完毕 ' 启动线程 (&检查更新, , ) 取文件版本信息 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 版本信息) ' 调试模式中是无法取得本地版本号的，编译后才行！ 标签.标题 ＝ “本地版本：” ＋ 版本信息.文件版本 .子程序 _按钮_被单击 启动线程 (&检查更新, , ) .子程序 检查更新 .局部变量 源码, 文本型 .局部变量 正文, 文本型 .局部变量 版本号, 文本型 .局部变量 下载地址, 文本型 .局部变量 更新说明, 文本型 按钮.禁止 ＝ 真 按钮.标题 ＝ “正在检查更新...” 源码 ＝ 编码_utf8到gb2312 (到文本 (HTTP读文件 (“//blog.sina.com.cn/s/blog_151cdcb220102w8wm.html”))) ' 调试输出 (源码) 正文 ＝ 文本_取出中间文本 (源码, “<!-- 正文开始 -->”, “<!-- 正文结束 -->”, , 真) ' 调试输出 (正文) 版本号 ＝ 文本_取出中间文本 (正文, “[edition]=”, “[/edition]”, , 真) 调试输出 (“版本号：” ＋ 版本号) 下载地址 ＝ 文本_取出中间文本 (正文, “[downloadURL]=”, “[/downloadURL]”, , 真) 调试输出 (“下载地址：” ＋ 下载地址) 更新说明 ＝ 文本_取出中间文本 (正文, “[explain]=”, “[/explain]”, , 真) 调试输出 (“更新说明：” ＋ 更新说明) 标签.标题 ＝ “本地版本：” ＋ 版本信息.文件版本 ＋ “ 服务器最新版本：” ＋ 版本号 编辑框.内容 ＝ 更新说明 .如果 (版本信息.文件版本 ≠ 版本号) .如果真 (信息框 (“发现新版本：” ＋ 版本号 ＋ #换行符 ＋ #换行符 ＋ “是否下载更新？”, 32 ＋ 4, “提示：”, ) ＝ #是钮) 打开指定网址 (下载地址) .如果真结束 按钮.标题 ＝ “发现新版本” .否则 按钮.标题 ＝ “暂无更新” .如果结束 按钮.禁止 ＝ 假