- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 升级提示窗口可否编辑 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80202)
-- 发布时间：2016/1/18 14:37:00
-- 升级提示窗口可否编辑
我想加入一些更新内容提示
此主题相关图片如下：snap1.jpg
-- 发布时间：2016/1/18 14:49:00
--
你可以把update.txt下载下来，然后获取里面的时间，对比此版本的时间，然后弹出自己的提示，选择升级后，静默升级即可。
参考代码
try
Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\\update.txt" ,"" ,"" ,False, 100000, True)
Dim ud() As String = FileSys.ReadAllText("d:\\update.txt").Split("|")
Dim Sdate1 As Date = Cdate(ud(0)) \'服务器update.txt发布日期
Dim Sdate2 As Date = Cdate(ud(1)) \'服务器Version.txt发布日期
Dim Cdate1 As Date = PublishDate \'客户端发布日期
Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
If Sdate2 > Cdate2 Then \'如果服务器程序发布日期大于客户端发布日期(大升级)
\'升级代码
ElseIf Sdate1 > Cdate1 Then \'如果服务器版本发布日期大于客户端发布日期(小升级)
\'升级代码
End If
catch ex As exception
msgbox("下载失败")
End try
-- 发布时间：2016/6/15 8:54:00
--
不是很明白，有了2楼的代码，Syscmd.Project.Update()就不用了吗？
我就是想每次升级时在1楼的提示窗口中加入一些内容
-- 发布时间：2016/6/15 9:06:00
--
2楼的注释\'升级代码指的就是包含Syscmd.Project.Update()的代码，具体根据自己项目应用，比如
-- 发布时间：2016/6/15 9:10:00
--
-- 发布时间：2016/6/15 9:28:00
--
用啊，不用你怎么升级。
-- 发布时间：2016/10/11 10:30:00
--
当时没有整明白。2楼的代码写在什么地方？为什么没有包含1楼的提示内容？
-- 发布时间：2016/10/11 11:17:00
--
afteropenproject事件
Prom1: 可选参数，逻辑型，没有发现新版本时，是否提示用户。
Prom2: 可选参数，逻辑型，发现新版本时，是否提示用户升级。
-- 发布时间：2016/10/11 13:25:00
--
远程升级我会。我的问题在1楼，就是在升级时告诉客户端修改了什么内容。也就是编辑1楼的消息窗口
-- 发布时间：2016/10/11 14:05:00
--
看2楼，你可以自己增加一个文本文件到升级目录中，客户端先下载下来作为提示信息