以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]关于系统检测更新的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100583)

--  作者:静听枫雨
--  发布时间:2017/5/14 13:05:00
--  [讨论]关于系统检测更新的问题

FOXTABLE 升级模式:1. 有更新时,静默更新,不提示用户。 2.有更新时提示用户,用户可选择是否更新!

Syscmd.Project.Update(Prom1, Prom2)

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

 

能不能,有更新时 不弹出这个更新提示框。或者说,这个更新提示框 可以自定义。

 

说白了,我就想这个更新提示框 显示到右下角!如下图


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

--  作者:有点蓝
--  发布时间:2017/5/15 9:30:00
--  
更新提示没有办法自定义
--  作者:有点色
--  发布时间:2017/5/15 9:40: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("我的升级窗口打开")  \'执行静默安装
End If