主题：系统自动升级

 要加一段检测的代码

try
    Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True) '下载update.txt文件
    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 OrElse Sdate1 > Cdate1 Then 
        msgbox("有新版本")

        '静默升级代码 Syscmd.Project.Update(False,False)
    End If
catch ex As exception
    msgbox("下载失败")
End try

有更新了，不是可以弹出你的提示窗口，然后再更新？不是很简单？

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80202&skin=0