以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]更新系统  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87926)
--  作者：kaiyu
--  发布时间：2016/7/22 15:37:00
--  [求助]更新系统

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=57733

大红袍老师：我想请教一下这个贴子的代码的设计思路是怎样的，我正想写一个提示正在升级中，可不可以给一点指导，就象这个贴子一样。
--  作者：大红袍
--  发布时间：2016/7/22 15:40:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40763&authorid=0&page=0&star=1

 
--  作者：kaiyu
--  发布时间：2016/7/22 16:38:00
--  

我就是想要在更新系统的时候有一个提示窗口，现在系统更新放在项目加载事件去判断，如果发现有更新，屏幕上什么都没有显示了，

一直到弹出升级系统成功一个对话框，就是在开始更新到提示升级成功的这段时间弹出一个窗口提示正在升级中。
--  作者：大红袍
--  发布时间：2016/7/22 16:40:00
--  
 你做一个独立窗口，然后在AfterOpenProject事件弹出不就行了？
--  作者：kaiyu
--  发布时间：2016/7/22 16:47:00
--  

If Syscmd.Project.Update(False,False)

在这里写打开一个窗口，早就试了，没有一点反应。

end if
--  作者：大红袍
--  发布时间：2016/7/22 16:50:00
--  

 写在前面。

 

 如果你要判断是否要升级，要自己判断一下了

 

Network.DownloadFile("http://www.foxtable.com/download/80211/update.txt", "d:\\update.txt" ,"" ,"" ,False, 100000, True)
Dim ary() As String = FileSys.ReadAllText("d:\\update.txt").Split("|")

msgbox(ary(0))
msgbox(PublishDate)

If PublishDate < ary(0) Then
    msgbox("不是最新版")
End If