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


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

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

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

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

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