以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何写升级后提示代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119425)
--  作者：zyxhx
--  发布时间：2018/5/24 16:16:00
--  如何写升级后提示代码
按照帮助文件添加了在线升级功能代码为：Syscmd.Project.Update()
利用此代码可以完成升级，但是升级完成后系统自动退出了。
请问能不能实现升级后给予升级完成提示，或者自动打开系统登录窗口。
请问代码如何设计？谢谢！
--  作者：有点甜
--  发布时间：2018/5/24 16:50:00
--  

如果是互联网升级，看看

 

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

 
--  作者：zyxhx
--  发布时间：2018/5/24 17:48:00
--  
谢谢老师，我先试试
--  作者：zyxhx
--  发布时间：2018/5/25 9:54:00
--  
出现错误提示，请问老师如何修改？

根据老师昨天提示：复制代码到项目事件AfterOpenProject：

try
    
    Dim str As String = FileSys.ReadAllText(UpdatePath & "/update.txt")
    Dim ud() As String = str.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



 点击确定时 出现错误提示：编译错误：变量“str”在封闭模块中隐藏变量。错误代码： Dim str As String = FileSys.ReadAllText(UpdatePath & "/update.txt")
--  作者：有点甜
--  发布时间：2018/5/25 10:08:00
--  

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
--  作者：zyxhx
--  发布时间：2018/5/25 10:35:00
--  
谢谢，成功了！我知道的东西太少了，很多东西还需要继续学习，谢谢老师指点。