7.4 指定したページを表示 - VBScript & JScript(JavaScript) Tips for WSH

7.4 指定したページを表示

　そういえば、IEオブジェクトを作りインターネットエクスプローラの画面を表示しても真っ白で何も表示されていません。これじゃ、つまらないし何の役にも立ちませんね（笑）。というわけで、まずは指定したURLのページ(もちろん、ローカルにあるhtmlのページも可能)を表示する方法です。指定したURLを表示したいときは、IEオブジェクトのNavigate(注)というメソッドを使います。

　それと、ついでと言っては何ですが、ページの読み込みが終わるまでVBS(WSH)の処理を待機する方法もやってみましょう。読み込み中か、読み込みが終わっているかを判断するときは、IEオブジェクトのBusyプロパティで判断します。

注：Internet Explorer 7でタブ追加などの操作を行うときは、Navigate2メソッドを使用してください。なお、Internet Explorer 7 での事例は「7.11 IEオブジェクトを作る(IE7編)」を参照してください。

使用例

　NavigateとBusyの使い方です。例では、インターネットエクスプローラの画面からツールバーとステータスバーを消し、http://www.yahoo.co.jp/を表示するよう指定。そして、ページの読み込みが完了したらツールバーとステータスバーの表示を行っています。

　表示するページ(URL)の指定は①の所で行っています。Navigateメソッドのパラメタへ指定したURLのページが表示されます。ちなみに、このメソッドはページの読み込みが終わるまで待つような動作はしないので、ページの読み込みが完了するまで処理を待機したいときは、②の所でやっているようにBusyプロパティを使って自分でなんとかします。

　BusyプロパティはTrueなら読み込み中、Falseなら終わっています。ところで、Do～Loopの中にWScript.sleep(250)という命令が入っていますが、これはループのカラ回しによりCPUに余分な負担をかけないようにするための物です。こうすることで、読み込み中か終わっているかの判断を1／250秒に1回だけ行うようになります。

Option Explicit

Dim objIE

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

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

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

'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.ToolBar = False

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

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

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

'ステータスバーとツールバーを表示します
objIE.Statusbar = True
objIE.ToolBar = True

Set objIE = Nothing

[PR]結城圭介。が書いたVBS(WSH)の本

■最速攻略 VBScriptサンプル大全集
◆最速攻略 Excel VBA サンプル大全集

（アマゾンへジャンプします）

VBScript&JScript Tips

■インターネットエクスプローラ操作編

7.インターネットエクスプローラの操作
  7.1 IEオブジェクトを作る(～IE6編)
     ・Internet Explorer 6での方法
     ・ついでにIEの終了方法
  7.11 IEオブジェクトを作る(IE7編)
     ・Internet Explorer 7での方法
  7.2 IE画面を表示・非表示にする
  7.3 ウィンドウの操作
     ・ウィンドウサイズの指定
     ・表示位置の指定
     ・ステータスバーへ文字列を表示、その他
  7.4 指定したページを表示
     ・ついでに読み込みが終わるまで待つ方法
  7.5 ページを書き込む
     ・ついでに画面をクリアする方法
  7.6 ページのタイトルを取得する
  7.7 <BODY>部のHTMLを取得する
     ・ついでに<BODY>部のテキストも取得
  7.8 フォームの操作1
     ・テキストボックスなどへ値を入れる方法
     ・他にボタンを押したりなど
  7.9 フォームの操作2
     ・フォームを送信する方法
  7.10 フォームの操作3
     ・フォーム名やコントロール名が無い場合の対処

■基本編
■ファイル・フォルダ操作編
■Excel & Access操作編
■インターネットエクスプローラ操作編
■データアクセス編

Happy! Happy! Islandその他のコンテンツ

■VBAプログラミング、その他
　Access VBAプログラミング＆Tips
　Excel VBA(エクセルマクロ)プログラミング＆Tips
　VBScript＆JScriptプログラミング＆Tips for WSH
　プログラミング基礎・入門
　HTMLの書き方
■ダウンロードコーナー
　AccessとExcelのフリーソフト
■コミュニティー
　VBA質問掲示板
■その他
　オレの話を聞けぇ♪（仮称／コラム）
　管理人プロフィール
　管理人へメール
■別館(海外向けサイト)
　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL!

VBAプログラミング＆Tips集の
"Happy! Happy! Island"トップページへ

[リンク]IT関連情報サイトなど

gihyo.jp
技術評論社提供のIT関連コンテンツサイト

モーグ
スキルアップ・問題解決はモーグにおまかせ！

[リンク]一番クリックした国が優勝

ClickClickClick.com
クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。

[PR]証券会社・投資運用関連サイト

カブドットコム証券
逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！

マネックス証券
オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！

Ｅ＊トレード証券
オンライン専業証券№１の口座数！業界最低水準の手数料体系と充実のサービスラインナップ！

楽天証券のマーケットスピード
ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！

オンライン証券徹底比較
価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！