objxmlhttp.send出错
Set objxmlhttp = CreateObject("microsoft.xmlhttp")objxmlhttp.Open "get", 网址, False
objxmlhttp.send '程序在这里出错了
Form1.RichTextBox1.Text = StrConv(objxmlhttp.responseBody, vbUnicode)
我有一个循环语句,第一次循环运行到上面代码时没错,第二次循环时出错.
提示信息是: 实时错误 '-214734891(80070005)'
拒绝访问
请问各位有遇到这样的问题吗?
帮忙看一下,谢谢!!