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