7.7 <BODY>部のHTMLを取得する
 表示したページの<BODY>部のHTMLやテキスト情報を取得する方法です。HTML情報の取得には、IEオブジェクトのDocument.Body.InnerHtmlというプロパティで取得、テキスト情報はDocument.Body.InnerTextというプロパティで取得出来ます。
使用例
 Document.Body.InnerHtmlDocument.Body.InnerTextの使い方です。例では、URL指定でページを表示、そのページの<BODY>〜</BODY>の部分のHTMLソースを取得(@)しコンソールへ表示、次に同じ部分のテキストのみを取得(A)しコンソールへ表示しています。

 使い道は色々あると思うのですが、これもネタ的にはつまらないですね(笑)

Option Explicit

Dim objIE
Dim strBody

'objIEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")

'ウィンドウの大きさを変更します
objIE.Width = 800
objIE.Height = 600

'表示位置を変更します
objIE.Left = 0
objIE.Top = 0

'インターネットエクスプローラ画面を表示します
objIE.Visible = True

'指定したURLを表示します
objIE.Navigate "http://www.yahoo.co.jp/"

'ページの読み込みが終わるまでココでグルグル回る
Do Until objIE.Busy = False
   '空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
   WScript.sleep(250)
Loop'

'@表示したページの<BODY>部のHTMLを取得し画面に表示
strBody = objIE.Document.Body.InnerHtml
WScript.echo strBody

'A表示したページの<BODY>部のテキストだけを取得し画面に表示
strBody = objIE.Document.Body.InnerText
WScript.echo strBody

'オブジェクトの破棄
Set objIE = Nothing
Copyright(C) 1999-2006 結城圭介。 All rights reserved