- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何避免升级时出现错误界面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71143)
-- 发布时间：2015/7/6 10:52:00
-- 如何避免升级时出现错误界面
-- 发布时间：2015/7/6 11:03:00
--
-- 发布时间：2015/7/6 11:30:00
-- [求助]
大红袍，问题是解决了，但又出现新的问题，执行第一次正常，如果再执行第二次就出现崩溃的状况，关不了，动不了，要等一会儿才出现下面的情况，之后才正常使用，这种情况循环重复，执行第一次正常，如果再执行第二次就出现崩溃，等一会儿正常后，第三次正常，第四次又出现崩溃，等一会儿正常后，第五次正常-------
此主题相关图片如下：qq图片20150706112557.png
-- 发布时间：2015/7/6 11:35:00
--
设置超时时间
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
-- 发布时间：2015/7/6 11:55:00
--
结果变成，执行第一次和第二次是正常，执行第三次就出现崩溃，要等一下才会正常，这个步聚重复是这样，执行第四次和第五次是正常，执行第六次就出现崩溃，要等一下才会正常，
-- 发布时间：2015/7/6 11:57:00
--
-- 发布时间：2015/7/6 11:59:00
--
呃，不可能，要不你就这样试试。
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
-- 发布时间：2015/7/6 14:10:00
--
真的，如果是错误的话，下面的代码是第二、第三次也不会出现崩溃，我是指只有在正常执行（不存在msgbox(ex.message)），才会出现我所说的连接执行到第三次，才会出现崩溃，要等一下才能正常
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
是正常能执行的情况下，如果第一段代码连接不对有错误，执行多少次都不会崩溃，如果连接正常，只要执行到第三次就会崩溃，而且还出现下图：
此主题相关图片如下：qq图片20150706112557.png
-- 发布时间：2015/7/6 14:51:00
--
那就是 If Syscmd.Project.Update(False,False) = False Then 这句代码有问题
做一个可以测试的例子发上来。
-- 发布时间：2015/7/6 15:51:00
-- [求助]上例子
现在上个可测试的例子，你可以测试一下
