以文本方式查看主题

-  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=80202)

--  作者:实话实说
--  发布时间:2016/1/18 14:37:00
--  升级提示窗口可否编辑

我想加入一些更新内容提示


图片点击可在新窗口打开查看此主题相关图片如下:snap1.jpg
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2016/1/18 14:49:00
--  

你可以把update.txt下载下来,然后获取里面的时间,对比此版本的时间,然后弹出自己的提示,选择升级后,静默升级即可。

 

参考代码

 

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 \'如果服务器程序发布日期大于客户端发布日期(大升级)
        \'升级代码
    ElseIf Sdate1 > Cdate1 Then \'如果服务器版本发布日期大于客户端发布日期(小升级)
        \'升级代码
    End If
catch ex As exception
    msgbox("下载失败")
End try


--  作者:实话实说
--  发布时间:2016/6/15 8:54:00
--  

不是很明白,有了2楼的代码,Syscmd.Project.Update()就不用了吗?
我就是想每次升级时在1楼的提示窗口中加入一些内容


--  作者:Hyphen
--  发布时间:2016/6/15 9:06:00
--  
2楼的注释\'升级代码指的就是包含Syscmd.Project.Update()的代码,具体根据自己项目应用,比如

msgbox("想在提示窗口加什么内容就加到这里")
Syscmd.Project.Update(False,False)

--  作者:实话实说
--  发布时间:2016/6/15 9:10:00
--  
Syscmd.Project.Update(False,False) 这个还用吗?
 

--  作者:大红袍
--  发布时间:2016/6/15 9:28:00
--  
 用啊,不用你怎么升级。
--  作者:实话实说
--  发布时间:2016/10/11 10:30:00
--  
当时没有整明白。2楼的代码写在什么地方?为什么没有包含1楼的提示内容?
--  作者:有点蓝
--  发布时间:2016/10/11 11:17:00
--  
afteropenproject事件


Syscmd.Project.Update(Prom1, Prom2)

Prom1: 可选参数,逻辑型,没有发现新版本时,是否提示用户。
Prom2: 可选参数,逻辑型,发现新版本时,是否提示用户升级。

--  作者:实话实说
--  发布时间:2016/10/11 13:25:00
--  
远程升级我会。我的问题在1楼,就是在升级时告诉客户端修改了什么内容。也就是编辑1楼的消息窗口
--  作者:有点蓝
--  发布时间:2016/10/11 14:05:00
--  
看2楼,你可以自己增加一个文本文件到升级目录中,客户端先下载下来作为提示信息