以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]远程升级失败后还能进入界面的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136381)
--  作者：晨曦396
--  发布时间：2019/6/12 11:50:00
--  [求助]远程升级失败后还能进入界面的问题
 当检测到新版本后，但是在升级过程中出现了异常，升级失败（比如由于没有以管理员身份运行导致的失败），但是还能进入系统界面，有什么办法在失败后不能进入吗？
--  作者：有点甜
--  发布时间：2019/6/12 12:34:00
--  

升级完成以后，执行代码检测版本号

 

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 \'如果服务器程序发布日期大于客户端发布日期(大升级)
        msgbox(123)
    ElseIf Sdate1 > Cdate1 Then \'如果服务器版本发布日期大于客户端发布日期(小升级)
        msgbox(456)
    End If
catch ex As exception
    msgbox("下载失败")
End try
--  作者：晨曦396
--  发布时间：2019/6/12 17:03:00
--  
是在哪一个事件中加上这个代码
--  作者：有点甜
--  发布时间：2019/6/12 17:21:00
--  
以下是引用晨曦396在2019/6/12 17:03:00的发言：
是在哪一个事件中加上这个代码

 

在你升级代码后面执行。