主题：升级提示窗口可否编辑

我想加入一些更新内容提示

此主题相关图片如下：snap1.jpg

你可以把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

不是很明白，有了2楼的代码，Syscmd.Project.Update()就不用了吗？
我就是想每次升级时在1楼的提示窗口中加入一些内容

2楼的注释'升级代码指的就是包含Syscmd.Project.Update()的代码，具体根据自己项目应用，比如

 用啊，不用你怎么升级。

当时没有整明白。2楼的代码写在什么地方？为什么没有包含1楼的提示内容？

afteropenproject事件

远程升级我会。我的问题在1楼，就是在升级时告诉客户端修改了什么内容。也就是编辑1楼的消息窗口

看2楼，你可以自己增加一个文本文件到升级目录中，客户端先下载下来作为提示信息