以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在UpdatePath不能正常访问的情况下。我想屏蔽升级的这个404错误怎么处理。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49210)
--  作者：ysq128
--  发布时间：2014/4/14 12:07:00
--  在UpdatePath不能正常访问的情况下。我想屏蔽升级的这个404错误怎么处理。

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


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

Dim url As String
Dim http As Object
url = "http://service"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)

 
--  作者：有点甜
--  发布时间：2014/4/14 12:30:00
--  

 在beforeopenproject里，先ping一下服务器，看是否可以访问，然后，访问这个网址，获取返回状态，如果是404，就不要升级就好。
--  作者：有点甜
--  发布时间：2014/4/14 12:33:00
--  

代码

 

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
--  作者：hanxuntx
--  发布时间：2014/4/14 13:16:00
--  

收藏