objxmlhttp.send出错

ta8607 发布于 2007-10-10 16:02， 3089 次点击

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

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

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

6 回复

multiple19022007-10-10 16:06

没出现过

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

把完整的代码发上来

ta86072007-10-10 16:08

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

ta86072007-10-10 16:09

以下是引用multiple1902在2007-10-10 16:06:04的发言：
没出现过

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

把完整的代码发上来

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

multiple19022007-10-10 16:12

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

ta86072007-10-10 16:19

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

chenq1232012-10-17 09:57

回复 5楼 multiple1902

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