.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 更新文件, 字节集
.局部变量 当前版本号, 文本型
.局部变量 最新版本号, 文本型
当前版本号 = “1”
最新版本号 = 到文本 (HTTP读文件 (“http://13099.223344.INFO/最新版本号.txt”))
.判断开始 (当前版本号 ≠ 最新版本号)
信息框 (“当前不是最新版本。请下载最新版本。”, 0, )
更新文件 = HTTP读文件 (“http://13099.223344.INFO/更新软件名字.exe”)
写到文件 (取当前目录 () + “/gengxin.exe”, 更新文件)
删除文件 (“原来的软件.exe”)
_启动窗口.销毁 ()
.默认
信息框 (“当前版本是最新版本。”, 0, )
.判断结束
.子程序 _时钟1_周期事件
时钟1.时钟周期 = 1000
.如果 (进度条1.位置 > 100)
.如果 (文件更名 (“gengxin.exe”, “1234.exe”))
信息框 (“更新成功”, 0, )
运行 (取当前目录 () + “/1234.exe”, 假, )
.否则
信息框 (“更新失败.请重新更新”, 0, )
.如果结束
.否则
进度条1.位置 = 进度条1.位置 + 20
我自己写出来了。但是不知道那里出了错。 无法下载替换的软件。求高手!