7.5 ページを書き込む - VBScript & JScript(JavaScript) Tips for WSH

7.5 ページを書き込む

　7.4 指定したページを表示では(インターネットエクスプローラに)指定したURLのページを表示しましたが、HTMLなどを自由自在に書き込んで好きな内容を表示することも可能です。

　表示したい内容をインターネットエクスプローラに書き込むには、IEオブジェクトのDocument.Writeというメソッドを使います。

使用例

　Document.Writeの使い方です。例では、VBS(WSH)のプログラムからインターネットエクスプローラへ表示する内容をHTMLで書き込み、書き込みが全て終わってから5秒後に画面をクリアし真っ白な状態にしています。

　ただし、インターネットエクスプローラへ表示したい内容を書き込むには一つだけ制約があります。IEオブジェクトを作ったばかりの状態（インターネットエクスプローラに一度も、かつ何も表示していない状態）だと書き込みが出来ません。もちろん、その状態でDocument.Writeを行うとエラーが発生します。一度でも何かを表示した後はDocument.Writeで好きな内容を書き込めるのですが、そのためだけにカラのページを作っておくというのも面倒です。

　しかし、これは最初にabout:blankというページを表示する(①)ことでなんとかなります。もちろん、about:blankを指定しても、画面には何も表示されません。ちなみに、about:blankはインターネットオプションのホームページの設定で空白を使用ボタンを押した時に表示されるヤツです。

　あとは画面のクリアですが、全然たいしたことはありません。about:blankを表示すれば良いです（笑）

Option Explicit

Dim objIE

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

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

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

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

'①カラのページを表示します
'(これを行わないと以降のdocument.writeなどがエラーになるため)
objIE.Navigate "about:blank"

'②HTMLを出力します
objIE.Document.Write "<html>" & vbcrlf
objIE.Document.Write "<head>" & vbcrlf
objIE.Document.Write "<title>7.5 ページを書き込む</title>" & vbcrlf
objIE.Document.Write "</head>" & vbcrlf
objIE.Document.Write "<body>" & vbcrlf
objIE.Document.Write "<table border=4 width=""100%"" height=""100%"">" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td align=""center"" valign=""middle"">" & vbcrlf
objIE.Document.Write "<font size=+4>みんな～！やってる？</font><br>" & vbcrlf
objIE.Document.Write "</td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "</table>" & vbcrlf
objIE.Document.Write "</body>" & vbcrlf
objIE.Document.Write "</html>" & vbcrlf

'5秒待ちます
WScript.Sleep(5000)

'③画面のクリアにも使えます
objIE.Navigate "about:blank"

'オブジェクトの破棄
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やニュースを見てからでも間に合う夜間取引も魅力！

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

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

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

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