[ページの内容を取得する]

ページの内容を、テキスト形式とＨＴＭＬ形式で出力します。

【ソースコード】

[tips0161.vbs]
Option Explicit
On Error Resume Next

Dim strUrl      ' 表示するページ
Dim objIE       ' IE オブジェクト

strUrl = "http://www.whitire.com/"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
    objIE.Navigate strUrl

    ' ページが取り込まれるまで待つ
    Do While objIE.busy
        WScript.Sleep(100)
    Loop
    Do While objIE.Document.readyState <> "complete"
        WScript.Sleep(100)
    Loop

    ' テキスト形式で出力
    WScript.Echo objIE.Document.Body.InnerText

    ' ＨＴＭＬ形式で出力
    WScript.Echo objIE.Document.Body.InnerHtml
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objIE = Nothing

【実行結果】

C:\> cscript //NoLogo tips0161.vbs
〜〜〜略〜〜〜