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

我想实现发布后的程序一旦有更新，登录系统前强行要求先更新软件才可使用软件，如果程序没有更新，则直接登录软件。请问该怎么实现？

你的描述自相矛盾

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

我想实现检测到最新的就更新，如果是最新版就不用

 

If Syscmd.Project.Update(False,False) = False Then '如果没有升级  
    Forms("用户登录").Open()
    If _UserName = "" Then
        Syscmd.Project.Exit()
        Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
    End If
    Forms("主页面").open
Else 
    Forms("升级软件").open()
End If

 这一段我写在AfterOpenProject，现在没起作用

谢谢狐狸爸爸，请问1、编码下载update.txt文件，解析其中的内容，获取新版本日期.，如何获取 ？

下载http://www.foxtable.com/help/topics/1402.htm

谢谢你回到，我想实现有新版就更新，如果是最新版本就直接进入系统，而不是退出

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

 

 

呃，强制更新，是这句代码 Syscmd.Project.Update(False,False)

 

你先好好消化一下。