VBSを使用して、ブラウザにて表示されたメッセージボックスを消す方法

質問

VBSでブラウザを立ち上げ、IDとPWを入力しボタンをクリックするまではスクリプトを使って出来たのですが、ボタンを押した後にメッセージボックスが出てきてしまい、どうしてもそこで止まってしまいます。

----
Set objWshShell = Wscript.CreateObject("Wscript.Shell")
objWshShell.Sleep(1000)
objWshShell.SendKeys("{ENTER}")
----
なども使ってみたのですが、うんともすんとも言わない・・・
Web上を探し回ったのですが全く見つからず、回答はほとんどが無理というものばかりで、本当に解決する方法は無いのでしょうか？

基本同じと思いますがVBAで解決ができるのであれば、そちらでもOKなのですが・・・

回答No.2

korin_

> 上記の方法ではできませんでした。
Enterを送信したいのであれば上記の方法で出来るはずです。
出来ない理由としては、IEがActiveになっていないか、Msgboxが表示される前にEnterを送信してしまっているぐらいしか考えられません。
実際のコードを提示してもらえれば、何か原因がわかるかもしれません。

> その他、方法はございますでしょうか？
外部のインスタンスなので、VBScriptでは無理だと思います。
VBAで、APIを使用してMsgboxを監視するプログラムを作成するぐらいしかないと思います。

補足

下記のようにプログラムを組みました。
----
Option Explicit
Dim objIE
Dim objWshShell
Set objIE = CreateObject("InternetExplorer.Application")
Set objWshShell = Wscript.CreateObject("Wscript.Shell")
'Set objWshShell = WScript.CreateObject("WScript.Shell")
objIE.Width = 800
objIE.Height = 600
objIE.Left = 0
objIE.Top = 0
objIE.Statusbar = False
objIE.ToolBar = False
objIE.Visible = True
objIE.Navigate "HPのアドレス"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Statusbar = True
objIE.ToolBar = True
'ID欄を設定
objIE.Document.frm.ID.value ="＊＊＊＊＊＊"
'Pass欄を設定
objIE.Document.frm.Pass.value ="＋＋＋＋＋＋"
'ボタンを押す
objIE.Document.frm.btn.Click

'ここまではうまくいくのですが、クリック後にMSGBOXが表示される。
'ENTERを押すようにSendKeysを使用しても実行されません。
objWshShell.Sleep(5000)
objWshShell.SendKeys("{ENTER}")

'下記の内容はMSGBOXを閉じブラウザを閉じた後にエラーとして表示されます。
'待ち状態が続いている状態なのだがブラウザが起動しなかったことにより表示されたのかもしれません。
Do Until objIE.Busy = False
WScript.Sleep(250)
Loop
'オブジェクトの破棄
Set objIE = Nothing
-----
差しさわりが無ければVBAにてAPIを使用する方法などを教えていただけますでしょうか？
お手数をお掛けいたします。