- 427 名前：デフォルトの名無しさん mailto:sage [2012/04/12(木) 10:40:31.76 ]
- IE8、VBSについてご教授をお願いします。
以下のソースでNavigateはページ読込み完了まで待つのに対して
Navigate2では完了を待たずにプログラムが終了します。
Navigate2でも完了待ちにするには
どこを修正すればいいのでしょうか？
同様のプログラムを相当数造りましたが解決策が見つかりませんでした
Set objIE = CreateObject("InternetExplorer.application")
a=0
objIE.Navigate "www.google.co.jp/"
Do Until objIE.Busy = False
a=a+1
WScript.sleep (10) 'ページ表示完了待ち
Loop
b=0
objIE.Navigate2 "www.google.co.jp/" ,&H800
Do Until objIE.Busy = False
b=b+1
WScript.sleep (10) 'ページ表示完了待ち
Loop
c=0
objIE.Navigate2 "www.google.co.jp/" ,&H1000
Do Until objIE.Busy = False
c=c+1
WScript.sleep (10) 'ページ表示完了待ち
Loop
msgbox "a = " & a &" b = " & b & " c = " & c
|
 |
