Set objxmlhttp = CreateObject("microsoft.xmlhttp")
objxmlhttp.Open "get", 网址, False
objxmlhttp.send '程序在这里出错了
Form1.RichTextBox1.Text = StrConv(objxmlhttp.responseBody, vbUnicode)


我有一个循环语句,第一次循环运行到上面代码时没错,第二次循环时出错.
提示信息是: 实时错误 '-214734891(80070005)'
拒绝访问

请问各位有遇到这样的问题吗?
帮忙看一下,谢谢!!

没出现过

我用的是 CreateObject("MSXML2.Xmlhttp")

把完整的代码发上来

完整的代码很多.我这里需要的是打开一个网页的源文件.

我试着用你这种方法,还是出错了.错误是一样的.

把循环级的代码发上来.有可能你两次操作的是同一个xmlhttp组件导致错误,个人观点.

我找到了.我加了一个延时进去就没有错误了.可能是循环太快了.获取不到源代码导致错误出现.
谢谢你的回复!!!!!

楼主怎么处理的啊，跪求贴个出来，学习下，我也遇到这问题了。