2

いくつかの Wiki ページの一部をマージして、要約されたバージョンを作成しようとしています。次のコードは、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
4

2 に答える 2

1

応答テキストはありません。302 Foundサーバーは、その要求に対してステータスを返します。XMLHTTP リクエストを処理するときは、常にステータスを確認してください。

WScript.Echo o.status & " " & o.statusText
于 2013-06-07T17:50:37.027 に答える