|
发表于 2012-5-26 22:23:05
|
显示全部楼层
河南省南阳市
.版本 2
.局部变量 字节集, 字节集
.局部变量 取出的文本, 文本型
.局部变量 最新版本, 文本型
字节集 = 网页_访问 (“http://host286.com/mcx1991/UpDate_Config.txt”)
取出的文本 = 到文本 (字节集)
' 取出的文本 = 文本_取出中间文本 (到文本 (字节集), “============================================================================================”, “============================================================================================”)
.如果真 (取出的文本 = “”) ' 网络会出现一些问题.
信息框 (“网络错误请重试”, 0, )
返回 ()
.如果真结束
取出的文本 = 子文本替换 (取出的文本, “</p><p>”, #换行符, , , 真)
取出的文本 = 子文本替换 (取出的文本, “<br />”, #换行符, , , 真)
取出的文本 = 子文本替换 (取出的文本, “ ”, “”, , , 真)
编辑框1.内容 = 到文本 (字节集)
写到文件 (取运行目录 () + “UpDate_Config.ini”, 到字节集 (取出的文本))
最新版本 = 读配置项 (取运行目录 () + “UpDate_Config.ini”, “版本”, “正式版”, “0”)
.如果真 (到数值 (最新版本) > 到数值 (#常量_主程序版本))
运行 (取运行目录 () + “\UpDate.exe UpDate N”, 假, )
|
|