下面是我的程序升级源码,供你参考:
版本 2
支持库 EThread
程序集 窗口升级程序集
程序集变量 FTP文件大小, 整数型
程序集变量 本地文件名, 文本型
程序集变量 本地文件, 整数型
子程序 _升级窗口_创建完毕
如果真 (取反 (文件是否存在 (取运行目录 () + “/ZHexe”)))
写到文件 (取运行目录 () + “/ZHexe”, #升级)
如果真结束
判断开始 (代理 = 4)
本地文件名 = “4exe”
升级1 (“4”)
判断 (代理 = 3)
本地文件名 = “3exe”
升级1 (“3”)
判断 (代理 = 2)
本地文件名 = “2exe”
升级1 (“2”)
判断 (代理 = 1)
本地文件名 = “1exe”
升级1 (“1”)
默认
判断结束
_启动窗口销毁 ()
子程序 升级1
参数 参数, 文本型
如果 (FTP_连接FTP服务器 (“地址”, “用户名”, “密码”, ))
编辑框1加入文本 (#换行符 + “连接服务器成功!”)
FTP文件大小 = FTP_文件取大小 (“//web/大唐” + 参数 + “exe”)
FTP文件大小 = 取整 (FTP文件大小 ÷ 1000)
编辑框1加入文本 (#换行符 + “需要下载的文件大小为:” + 到文本 (FTP文件大小) + “M”)
时钟2时钟周期 = 1000
启动线程 (&下载, , )
编辑框1加入文本 (#换行符 + “正在下载,请稍候”)
否则
信息框 (“连接服务器失败!请联系客服。”, 0, )
如果结束
返回 ()
子程序 _时钟2_周期事件
局部变量 位置1, 整数型
本地文件 = 取文件尺寸 (取运行目录 () + “/” + 本地文件名)
本地文件 = 取整 (本地文件 ÷ 10)
进度条1位置 = 取整 (本地文件 ÷ FTP文件大小)
如果真 (进度条1位置 = 100)
时钟2时钟周期 = 0
FTP_断开FTP服务器 ()
运行 (取运行目录 () + “/ZHexe”, 假, )
销毁 ()
如果真结束
子程序 下载
FTP_文件下载 (“//web/大唐” + 到文本 (代理) + “exe”, 取运行目录 () + “/” + 本地文件名, )
1、发布 在百度空间发表帖子(随便发表一张内容,把下面的格式整段插到最后或中间)
格式:{版本号&&公告信息&&更新时间 }
例: {514&&最新版本 开通更新功能&&1355796378} 注:1355796378是时间戳
2、程序中读取这个帖子地址,取回文本
公告信息=取文本中间(网页源码,“{","}")
信息分组=分割文本(公告信息,“&&”)
信息分组[1] 是版本号
信息分组[2] 是更新提示信息
信息分组[3] 是更新时间
按上类写到你的提示处即可
最后注解:
取文本中间() ‘网上有很多类似源码,无非就是通过寻找第一个关键字符和第二个关键字符,并取回中间的内容
{版本号&&公告信息&&更新时间 }
格式符:注意查看网页源码中不可出现与 { } 相同的字符,如果有,请更新这两个符号为其它特殊字符用作关键字符,并注意有些符号在网页源码中被格式化,如 < 在网页源码不是以当前形式显示,而是以 &alt 之类的显示
用>
首先你要有一个网站或FTP,在一个固定的位置放置一个文件,文件内容就是最新的版本号和下载地址。
然后在你的程序里面增加一段代码,每次运行前向上面的位置发起请求,下载那个版本号文件,下载后与本地的版本号做比较,如果网上的版本号高于本地的,则从版本号文件中的下载地址下载新的更新文件,然后本地安装一下就好了。
以上就是关于在线求答案~~关于易语言进度条~~~~全部的内容,包括:在线求答案~~关于易语言进度条~~~~、易语言程序提示更新、易语言在写软件更新程序的时候,如何在更新程序上加入更新内容的功能等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)