7.6 ページのタイトルを取得する
 ページのタイトル情報を取得したい時の方法です。IEオブジェクトのLocationNameというプロパティから取得できます。
使用例
 LocationNameの使い方です。例では、URL指定でページを表示、そのページのタイトルを取得(@)しコンソールへ表示しています。

 取得できるものは、<title>〜</title>で指定している内容。早い話が、右図で示している所に表示されている内容です。


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

Option Explicit

Dim objIE
Dim strTitle

'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'

'@表示したページのタイトルを取得し表示
strTitle = objIE.LocationName
WScript.echo strTitle

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