主题：[讨论]关于系统检测更新的问题

 用代码获取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