我通常使用此代码下载网页的源代码:
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://www.somewebsite.com/", False
.send
sHTM = .responseText
End With
Debug.Print sHTM
直到现在,这对我很有用,当我通常下载的其中一个网站开始为所有请求返回404错误时,即使我在浏览器中访问相同的链接时也没问题。
我甚至放弃了MSXML并回到了使用IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 0
URL = "www.somewebsite.com/"
IE.Navigate URL
State = 0
Do Until State = 4
DoEvents
State = IE.readyState
Loop
Debug.Print IE.document.body.innerHTML
这也为该特定网站返回404.
可能导致这种情况的原因是什么?