下载升级文件里的update.txt，获取第一个日期和项目里的PublishDate比较即可。如果比PublishDate大就是有新版本。
Network.DownloadFile("http://www.foxtable.com/update/update.txt", "c:\data\update.txt")
Dim s As string = FileSys.ReadAllText("c:\data\update.txt")
dim u as boolean
if cdate(s.split("|")) > PublishDate then
Dim Result As DialogResult
Result = MessageBox.Show("是否升级？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
u = Syscmd.Project.Update(False,False)
End if
end if
if u = false then
Forms("窗口1").open()
'后续其它代码
endif
加好友 
发短信
Post By：2022/4/14 9:34:00 [显示全部帖子]
