xmlhttp总是提示“指定资源下载失败”错误

[tindy2002]

有一个定时执行的代码：
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
url="http://www.abc.com/aaa.asp"
oXMLHTTP.open "get",url,False
oXMLHTTP.send
大部分时候程序运行都很正常，就是不定时的抽风几下，提示send这一行：指定资源下载失败
出错以后，这个服务还是在不断的尝试提交到该地址，有时候有尝试几十分钟，他又自动好了
求教各位高手，有遇到过吗，怎么解决呢？

另外，我从自己的服务器ping对方的服务器，30次里有1、2次左右的丢包现象发生，无连续丢包。

[hefeng_aspnet]

参考：
第一种：防火墙

不想写太多 主要是看到网上一大堆的解决方法都没说清楚原因 所以才写个这个 当然我也不说清楚 哈哈

如果出现

MSXML5.DLL 错误 '800c0005'

系统未找到指定的资源。

这样的情况的时候 并非找不到这个dll 也不是没有注册（其他版本的[。。3.0.. 4.0。。]一样 ）

而是因此dll要通过com surrogate来访问网络

（一般system32下 msafd.dll ws2-32.dll wininet.dll）

也就是dllhost.exe啦 而如果你的防火墙阻止此程序访问网络的话 你就郁闷吧

要是说原理恐怕就要写很多东东不过其实也不是什么高级的咚咚 加上本人也菜 也就偷个懒不写了

当然要用javascript的new 一个ActiveXObject就不需要配置防火墙让dllhost.exe访问网络也行 毕竟原理不太一样


第二种：编写xmlhttp

在运用xmlhttp组件编写程序中，会碰到 "msxml3.dll 错误 '800c0005' 系统未找到指定的资源。" 这种错误，网上对这种错误的产生原因有很多钟解释，大体说是因为防火墙或UDP站口权限造成了，也说了相应的解决办法。其它有时候也未必。其实错误的描述中就说出了主要的原因 "系统未找到指定的资源" 。这种错误都是出现在调用了 xmlhttp 组件的 Open方法，接着再用Send方法后造成的。当open方法的的 url 参数无法访问时，就会造成 8000005 错误。并且一旦产生这种错误，就会导致应用程序终止，无法继续操作。大多说的程序是这样写的:
Function functionName(pararm ...)
Dim Http
Set Http=Server.CreateObject("MSXML2.XMLHTTP.4.0")
With Http
.open "GET",HttpUrl,False
.Send
End With
If Http.Readystate<>4 then
Set Http=Nothing
......
Exit function
End if
End Function
大多数的程序都是运用xmlhttp的 Readystate 属性判断从服务器的返回状态。其实这样未必适合，很多时候用ReadyState 属性判断并不能真正检测到程序流程中的错误。当遇到错误的时候，仍然会致使程序终止。其实修改一下上面的代码，完全可以实现跳过程序执行过程中遇到的错误，使程序继续运行。修改代码如下:
Function functionName(pararm ...)
Dim Http
Set Http=Server.CreateObject("MSXML2.XMLHTTP.4.0")
With Http
.open "GET",HttpUrl,False
.Send
End With
On Error Resume Next
If Http.Status<>200 then
Set Http=Nothing
......
Exit function
End if
End Function
Send 方法产生错误的时候，ReadyState的值或许为4，但Status的返回值就一定不是200的。呵呵，我经过多次跟踪ReadyState和Status的值得到以前结果。可能会有差错，目前我还没有发现。
希望以上程序解决方案能够帮到你!!如果朋友你有更好的解决方法，请一定告诉我哟。
我是以MSXML2.XMLHTTP.4.0为例说明的程序，也适合其它版本的XMLHTTP组件。想检查的你系统中已经安装了哪些版本的XMLHTTP组件，请到注册表的 HKEY_CLASSES_ROOT 下查找。

[tindy2002]

谢谢楼上的，应该和防火墙没关系，因为大部分时候访问是正常的，只是偶尔一抽风，程序就挂起了