URLが開いた後に処理したい

質問

VBSでIEを起動しURLが開いた後に処理をするにはどうすればいいですか？
たとえば、

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\Internet Explorer\IEXPLORE.EXE"""&" www.google.co.jp/"
'グーグルが開いた後に処理
WshShell.SendKeys "検索ワード~"

これで開いたタイトルは「Google - Microsoft Internet Explorer」になります。

今まではSleep関数を使っていましたが、
IEの起動時間はバラバラなので早すぎたり遅すぎたりしてしまいます。
よろしくお願いします。

回答No.3

yambejp

とりあえず、今回の件だけを考えれば

Set WshShell=Wscript.CreateObject("Wscript.Shell")
WshShell.AppActivate("Google")
WshShell.SendKeys "^v"

として、Googleを開いたWindowにアクティベートすればよいです。

回答No.2

yambejp

さすがにIEXPLORE.EXEをrunするのはありえないでしょ・・・。
オブジェクトとして利用してください。
またSendkeysはキーしかおくれず検索ワードを代入するのには
なにかと物足りないので、クリップボード経由で代入する手もあります。
まぁgoogleってわかっているなら、テキストボックスにvalueを
代入してやるんでもよいのですけどね。

set oIE=Wscript.CreateObject("InternetExplorer.application")
oIE.navigate2("http://www.google.co.jp")
oIE.visible=true

Do Until oIE.Busy = False
WScript.sleep(250)
Loop

Set oClip=oIE.Document.parentWindow.clipboardData
oClip.setData "text","ほげー"

Set WshShell=Wscript.CreateObject("Wscript.Shell")
WshShell.SendKeys "^v"

補足

ご回答有り難うございます。
無事にＵＲＬの開いた後の処理になりました。
ただ、既に別のIEを起動中にこのスクリプトを実行すると、
今起動したIEがバックグラウンドになってしまい、
キーが遅れませんでした。
これを回避するのはどのような方法がありますか？

回答No.1

dsuekichi

IEのオブジェクトを生成して、イベント（NavigateComplete2）の発生を待って見るとか・・・

例えば
--------------------------------------------------------------
Dim F
F=False

Set IE = WScript.CreateObject("InternetExplorer.Application","IEW_")
IE.Visible = True
IE.Navigate "www.google.co.jp"

' -- イベント待ち --
Do While F=False
WScript.Sleep 100
Loop

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "abcd"

'-- イベントプロシージャ
Sub IEW_NavigateComplete2(O,URL)
F=True
End Sub
--------------------------------------------------------------

補足

ご回答有り難うございます。
無事にＵＲＬの開いた後の処理になりました。
ただ、既に別のIEを起動中にこのスクリプトを実行すると、
今起動したIEがバックグラウンドになってしまい、
キーが遅れませんでした。
これを回避するのはどのような方法がありますか？