主题：[讨论]关于系统自带的升级功能 能不能自定义？【已解决】

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

新版可以用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

这样写

Dim hc As new HttpClient("http://www.kmzb56.com/shengji/xueji/update.txt")
Dim ary() As String = hc.GetData.split("|")
Dim d As Date = ary(0).substring(1)
If PublishDate < d Then
    MyTimers("计划1").Enabled = False
    Forms("我的升级窗口打开").show  '执行静默安装
End If

红色改成你的窗口名

Forms("我的升级窗口").show  '执行静默安装