我正在尝试用xmlhttp抓取一个网站。网站网址如下。 Url包含#(Hash)符号,因为我收到了Http请求错误。
我与Fiddler核对过,并且“#”在获取请求期间被转换为百分比编码形式,即网址中的%23。
我能够使用Internet Explorer成功抓取此链接,但速度很慢。
如果有人能提供帮助,我将不胜感激。
Sub webscraping()
Dim x As String
Dim req As MSXML2.XMLHTTP60
Dim doc As HTMLDocument
x = "http://www.betexplorer.com/soccer/italy/serie-a-2015-2016/empoli-torino/bFpRibLT/#ou"
Set req = New MSXML2.XMLHTTP60
With req
.Open "GET", x, False
.send
If .Status <> 200 Then
MsgBox "Http Request Error"
Exit Sub
End If
Set doc = New MSHTML.HTMLDocument
doc.body.innerHTML = .responseText
End With
End Sub