主题：[求助]登陆窗口提示升级系统

如果是互联网升级，看看

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

如果是局域网（或本机），看看

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

try
    
    Dim str2 As String = FileSys.ReadAllText(UpdatePath & "/update.txt")
    Dim ud() As String = str2.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(ex.message)
    msgbox("下载失败")
End try

1、弹出msgbox(UpdatePath)看看

2、看对应的路径下，有没有文件

3、你对应的路径，通过浏览器或者资源管理器，看能否访问

代码改成

    If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then
        MessageBox.Show("提示!", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
        '静默升级代码
         Syscmd.Project.Update(False,False)

         Application.ReStart
    End If

没看懂你什么问题。代码肯定是没问题的。

如果要测试升级，请发布生成exe以后再测试。