主题：如何避免升级时出现错误界面

 设置超时时间

 

Dim url As String = "http://www.foxtable.com/data/update.txt"  '请按实际升级的路径填写
Dim Flag As Boolean = True
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    rqst.TimeOut = 1000 '一秒
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
catch ex As Exception
    msgbox(ex.message)
    Flag = False
End try

If Flag Then
    If Syscmd.Project.Update(False,False) = False Then '如果没有升级
        Forms("远程升级").open()
    End If
End If

 

 呃，不可能，要不你就这样试试。

 

Dim url As String = "http://www.foxtable.com/data/update.txt"  '请按实际升级的路径填写
Dim Flag As Boolean = True
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    rqst.TimeOut = 1000 '一秒
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    rsps.Close
catch ex As Exception
    msgbox(ex.message)
    Flag = False
End try

 

 那就是 If Syscmd.Project.Update(False,False) = False Then 这句代码有问题

 

 做一个可以测试的例子发上来。

 你是怎么测试的？我测试多少次都没问题。

 

 1、我修改项目日期，然后发布项目；

 

 2、打开发布的项目，点升级；升级完毕，重新打开项目；

 

 3、多少次升级都没问题

呃，没有发布的时候，是无法测试升级功能的。那个时候检测的是foxtable的版本。

 

根本就没有机会连按3次升级。看11楼啊

 看11楼啊，不解释

 不 可 能