Question

我正在尝试合并多个维基页面的一部分以创建精简/汇总版本。以下代码适用于google.com等网页。但是，它为我想要的页面返回一个空白结果。

有什么建议吗？

Set o = CreateObject("MSXML2.ServerXMLHTTP.6.0")
o.open "GET", "http://stevescarts2.wikispaces.com/Modules", False
o.send
If err.number = 0 then    
    MsgBox o.responseText
Else
    MsgBox "error " & err.number & ": " & err.description
End If

Answer 1

没有回复文字。服务器以该状态302 Found响应该请求。始终检查处理XMLHTTP请求时的状态：

WScript.Echo o.status & " " & o.statusText

Answer 2

谢谢，安斯加非常感谢。
这是修改后的代码，对我有用......

Set o = CreateObject("MSXML2.ServerXMLHTTP.6.0")
url = "http://stevescarts2.wikispaces.com/Modules"
Do
  o.open "GET", url, False
  o.send
  If o.Status = 302 Then
    url = o.GetResponseHeader("Location")
  End If
Loop Until err.number = 0 And o.Status <> 302
If err.number = 0 then  
  MsgBox o.responseText
ElseIf o.status & " " & o.statusText Then
  MsgBox "error " & err.number & ": " & err.description
End If

VBscript XMLHTTP获取网页返回空白

2 个答案: