以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何写升级后提示代码  (http://foxtable.net/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
--  
谢谢,成功了!我知道的东西太少了,很多东西还需要继续学习,谢谢老师指点。