易语言检测更新源码

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

.程序集 窗口程序集_启动窗口

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

检测软件更新 ()

.子程序 凤凰_取文本中间, 文本型
.参数 文本, 文本型
.参数 左边的文本, 文本型
.参数 右边的文本, 文本型
.参数 起始位置, 整数型, 可空
.局部变量 开始, 整数型
.局部变量 结束, 整数型
.局部变量 长度, 整数型
.局部变量 内容, 文本型

开始 ＝ 寻找文本 (文本, 左边的文本, 起始位置, 真) ＋ 取文本长度 (左边的文本)
.如果真 (开始 ＝ -1 ＋ 取文本长度 (左边的文本))
    返回 (“获取失败”)
.如果真结束
结束 ＝ 寻找文本 (文本, 右边的文本, 开始, 真)
.如果真 (结束 ＝ -1)
    返回 (“获取失败”)
.如果真结束
长度 ＝ 结束 － 开始
内容 ＝ 取文本中间 (文本, 开始, 长度)
返回 (内容)

.子程序 检测软件更新
.局部变量 网页源码, 文本型

处理事件 ()
编辑框_当前版本.禁止 ＝ 真
编辑框_最新版本.禁止 ＝ 真
网页源码 ＝ 到文本 (HTTP读文件 (“http://tudouwangluo1.blog.163.com/”))  ' 这是一个 网易的 博客 日志，日志地址不会变，而且永久可以编辑 修改
编辑框_最新版本.内容 ＝ 凤凰_取文本中间 (网页源码, 字符 (176) ＋ 字符 (到整数 (到文本 (460 ÷ 2))) ＋ 字符 (177) ＋ 字符 (到整数 (到文本 (950 ÷ 5))) ＋ 字符 (到整数 (到文本 (41 × 5))) ＋ 字符 (位异或 (176, 7)) ＋ 到文本 ({ 163 }) ＋ 字符 (251), 字符 (163) ＋ 字符 (253) ＋ 到文本 ({ 176 }) ＋ 到文本 ({ 230 }) ＋ 字符 (177) ＋ 字符 (190) ＋ 字符 (到整数 (到文本 (1854 ÷ 9))) ＋ 到文本 ({ 178 }))
.判断开始 (到小数 (编辑框_当前版本.内容) ＜ 到小数 (编辑框_最新版本.内容))  ' 编辑框_当前版本  小于  编辑框_最新版本  就让软件更新
    信息框 (“发现新版本： ” ＋ 编辑框_最新版本.内容, 16, “当前版本： ” ＋ 编辑框_当前版本.内容, )
    打开指定网址 (“http://pan.baidu.com/s/1kTghycB”)  ' 百度网盘，推荐使用，你共享一个 文件夹 就可以了，文件夹的地址是不会变的
    ' 打开指定网址(“http://zm520.ys168.com”)            永硕网盘，你自己看着用，更新软件也不错
    程序自杀 ()
.默认

.判断结束


.子程序 __启动窗口_可否被关闭, 逻辑型

@中国战线