-- 作者:有点色
-- 发布时间: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
|