20090416_004

「20090416_004」の編集履歴（バックアップ）一覧はこちら

「20090416_004」(2009/04/16 (木) 16:28:10) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

<p><br />
===<br /><br /><br /><br />
===</p>

<p><br />
===<br /><br />
Option Explicit</p>
<p>Dim objIE</p>
<p>'IEオブジェクトを作成します<br />
Set objIE = CreateObject("InternetExplorer.Application")</p>
<p>'ウィンドウの大きさを変更します<br />
objIE.Width = 800<br />
objIE.Height = 600</p>
<p>'表示位置を変更します<br />
objIE.Left = 0<br />
objIE.Top = 0</p>
<p>'インターネットエクスプローラ画面を表示します<br />
objIE.Visible = True</p>
<p>'①指定したURLを表示します<br />
objIE.Navigate "<a href="http://www.google.co.jp/">http://www.google.co.jp/</a>"</p>
<p>'②ページの読み込みが終わるまでココでグルグル回る<br />
Do Until objIE.Busy = False<br />
   '空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く<br />
   WScript.sleep(250)<br />
Loop</p>
<p>'ステータスバーとツールバーを表示します<br />
objIE.Statusbar = True<br />
objIE.ToolBar = True</p>
<p>Set objIE = Nothing<br /><br /><br />
===</p>