xmlhttp:"无法找到指定的资源"

[ranassa]

在网上找了一下资料,我的是这个原因,


“对方资源失效，比如采集某条信息时，对方该条信息不存在导致程序终止错误，也可能是这种情况。这种错误都是出现在调用了 xmlhttp 组件的 Open方法，接着再用Send方法后造成的。当open方法的的 url 参数无法访问时，就会造成 8000005 错误。并且一旦产生这种错误，就会导致应用程序终止，无法继续操作。”

sub get()
Set objXMLhttp = CreateObject("Microsoft.XMLHTTP")
objXMLhttp.Open "GET", "http://www.xxx.com/xx.php?Code=" & xxx, False
objXMLhttp.Send

If objXMLhttp.readystate <> 4 Then
Exit Sub
End If

If objXMLhttp.Status <> 200 Then
Exit Sub
End If
end sub

我要访问的这个网页的确是经常无法访问，我这么写不行？
要怎么解决阿？

[bcrun]

加个错误处理就行了吧

Sub TestGet()
    Dim objXMLhttp
   On Error GoTo TestGet_Error

    Set objXMLhttp = CreateObject("Microsoft.XMLHTTP")
    objXMLhttp.Open "GET", "http://www.xxx.com/xx.php?Code=", False
    objXMLhttp.Send
    
    If objXMLhttp.readystate <> 4 Then
        Exit Sub
    End If
        
    If objXMLhttp.Status <> 200 Then
        Exit Sub
    End If

   On Error GoTo 0
   Exit Sub

TestGet_Error:

    MsgBox "错误 " & Err.Number & " (" & Err.Description & ") in procedure TestGet of Form Form1"
End Sub

[ranassa]

但是我这个TestGet()是要加到timer里面,不断自动刷新采集数据的,无人工操作,

如果加个msgbox,程序就卡起了,

[luofenghen]

可以写 出现错误 timer暂时停止

[ranassa]

如果timer暂时停止,然后呢?
过一会儿再启动timer,下次打不开资源又停用timer?

我是菜鸟,
难道是因为下一个timer周期内使用xmlhttp所以弹出错误么?
如果是这样,找不到资源的时候,我就set xmlhttp=nothing,然后再开,不行么?


我想让这个程序一直不停地运行下去,不要人工来管理..

[ranassa]

If objXMLhttp.readystate <> 4 Then
set objxmlhttp=nothing
Set objXMLhttp = CreateObject("Microsoft.XMLHTTP")
End If

If objXMLhttp.Status <> 200 Then
set objxmlhttp=nothing
Set objXMLhttp = CreateObject("Microsoft.XMLHTTP")
End If

这样呢?

[king06]

不要msgbox就可以了
Sub TestGet()
Dim objXMLhttp
On Error GoTo TestGet_Error

Set objXMLhttp = CreateObject("Microsoft.XMLHTTP")
objXMLhttp.Open "GET", "http://www.xxx.com/xx.php?Code=", False
objXMLhttp.Send

If objXMLhttp.Status <> 200 Then
Exit Sub
End If

Exit Sub

TestGet_Error:
Set objXMLhttp=nothing
End Sub