求易语言程序自动更新的源码

社区服务
高级搜索
猴岛论坛电脑百科求易语言程序自动更新的源码
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
1个回复

求易语言程序自动更新的源码

楼层直达
a361884651

ZxID:18064709

等级: 上等兵
举报 只看楼主 使用道具 楼主   发表于: 2012-07-01 0
— (20 ) 亲,此贴帮助你。

http://bbs.houdao.com/r6046637/ (2012-07-02 11:01) —
求易语言程序自动更新的源码 (比如和游戏一样。不更新就无法运行。)
。 最好能副上教程。谢谢
a361884651

ZxID:18064709

等级: 上等兵
举报 只看该作者 沙发   发表于: 2012-07-02 0
.版本 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






我自己写出来了。但是不知道那里出了错。 无法下载替换的软件。求高手!
« 返回列表
发帖 回复