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

大红袍，问题是解决了，但又出现新的问题，执行第一次正常，如果再执行第二次就出现崩溃的状况，关不了，动不了，要等一会儿才出现下面的情况，之后才正常使用，这种情况循环重复，执行第一次正常，如果再执行第二次就出现崩溃，等一会儿正常后，第三次正常，第四次又出现崩溃，等一会儿正常后，第五次正常-------

 设置超时时间

 

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

 

真的，如果是错误的话，下面的代码是第二、第三次也不会出现崩溃，我是指只有在正常执行（不存在msgbox(ex.message)），才会出现我所说的连接执行到第三次，才会出现崩溃，要等一下才能正常

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

 

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

现在上个可测试的例子，你可以测试一下