下载update.txt判断，如
try
Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True)
Dim ud() As String = FileSys.ReadAllText("d:\update.txt").Split("|")
Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
Dim Cdate1 As Date = "2016-03-10" 'update.txt 的第一个日期，写死
Dim Cdate2 As Date = "2016-03-20" 'update.txt 的第二个日期，写死，对应，否则会重复更新
If Sdate2 > Cdate2 Then '如果服务器程序发布日期大于客户端发布日期(大升级)
Syscmd.Project.Update
ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
Syscmd.Project.Update
End If
catch ex As exception
msgbox("下载失败")
End try
加好友 
发短信
Post By：2019/7/18 16:43:00 [显示全部帖子]
