- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]关于系统自带的升级功能 能不能自定义？【已解决】 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100625)
-- 发布时间：2017/5/15 14:12:00
-- [讨论]关于系统自带的升级功能 能不能自定义？【已解决】
If Syscmd.Project.Update(False,True) = False Then \'如果没有升级
Return
Else
Forms("提示窗口").Open
End If
上面的代码。想它有更新的时候。打开自己定义的 提示窗口 而不要打开系统自带的升级提示。请问下管理，应该怎么做
[此贴子已经被作者于2017/5/15 16:07:17编辑过]
-- 发布时间：2017/5/15 14:31:00
--
你可以先下载update.txt文件，获取其中的内容进行比较升级，如果有更新，再静默升级。
-- 发布时间：2017/5/15 14:38:00
--
不会搞。给个方法吧。我要的结果就是获取更新，如果有更新，就打开我自己定义的一个升级窗口
此主题相关图片如下：qq截图20170515143839.png
[此贴子已经被作者于2017/5/15 14:40:37编辑过]
-- 发布时间：2017/5/15 14:42:00
--
参考：
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=90233
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82266
-- 发布时间：2017/5/15 14:48:00
--
两个贴子都没看明白 ！
-- 发布时间：2017/5/15 15:01:00
--
用代码获取update.txt的文件，然后静默安装
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("不是最新版")
Forms("我的升级窗口打开").Show \'执行静默安装
End If
[此贴子已经被作者于2017/5/15 15:04:03编辑过]
-- 发布时间：2017/5/15 15:05:00
--
http://www.foxtable.com/download/80211/update.txt 这个换成我的升级的网址 能看明白 后面一个 "d:\\update.txt" 这个起什么作用
[此贴子已经被作者于2017/5/15 15:05:07编辑过]
-- 发布时间：2017/5/15 15:05:00
--
新版可以用httpclient
Dim hc As new HttpClient("http://www.foxtable.com/download/80211/update.txt")
Dim ary() As String = hc.GetData.split("|")
msgbox(ary(0))
msgbox(PublishDate)
If PublishDate < ary(0) Then
msgbox("不是最新版")
Forms("我的升级窗口打开").show \'执行静默安装
End If
-- 发布时间：2017/5/15 15:11:00
--
此主题相关图片如下：qq截图20170515150857.png
放到计划管理里 执行的时候，弹出这么多窗口来。 我要的是 如果没有升级更新， 停止执行后面的代码，如果有升级更新，则打开 我的窗口 由用户选择是否更新
[此贴子已经被作者于2017/5/15 15:14:21编辑过]
-- 发布时间：2017/5/15 15:19:00
--
你把msgbox的代码删除，即可。