主题：[讨论]发布后的程序强行更新最新版

1、编码下载update.txt文件，解析其中的内容，获取新版本日期.

2、和PublishDate比较：

if 从update.txt获取的版本日期 > PublishDate Then

     If Syscmd.Project.Update(False,False) = False Then '如果没有升级
        Syscmd.Project.Exit(False)
    End If

end if

Dim fl As String = projectpath & "abc.txt"
Network.DownloadFile("http://www.foxtable.com/download/update.txt", fl)
Dim v() As String  = FileSys.ReadAllText(fl).Split("|")
Dim dt1
Date.TryParse(v(0),dt1)
If dt1 > publishDate Then
    If Syscmd.Project.Update(False,False) = False Then '如果没有升级成功，或用户中途取消。
        messagebox.show("发现新版本，你必须升级才能启动")
        Syscmd.Project.Exit(False)
    End If
End If