主题：在UpdatePath不能正常访问的情况下。我想屏蔽升级的这个404错误怎么处理。

在UpdatePath不能正常访问的情况下。我想屏蔽升级的这个404错误怎么处理。

用异常也不行。，用http.responseText又有其它错误跑出来。
 

 在beforeopenproject里，先ping一下服务器，看是否可以访问，然后，访问这个网址，获取返回状态，如果是404，就不要升级就好。

代码

Dim url As String
Dim http As Object
try
    url = "http://sakdjfalksdjfaklsjdfkasdjfkdsjfdf.com"
    http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    MessageBox.Show("返回信息:" & http.responseText)
catch ex As exception
    msgbox("有错")
End try

收藏