分享

"msxml3.dll 错误 '800c0005'

 趋明 2012-02-19

"msxml3.dll 错误 '800c0005'

2008-1-4 15:42
提问者:315992730
2008-1-5 11:47
满意回答
看看是不是有防火墙或者杀毒软件正监视这个进程。

不是的话看看下边别的网友的解释:

在运用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 下查找。

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多