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

質問

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

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

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

回答No.3

korin_

起動したIEがアクティブにならない場合があるようなので、
APIを使用して起動したIEをアクティブにするようにしました。
VBAで下記を試してもらえますか？

Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub test()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")

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
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

' ウィンドウをアクティブに設定
Dim wResult As Long
wResult = SetForegroundWindow(objIE.hWnd)

Dim objWshShell As Object
Set objWshShell = CreateObject("Wscript.Shell")
Sleep (5000)
objWshShell.SendKeys ("{ENTER}")

' ページの読み込みが終わるまで待機
Do Until objIE.Busy = False
Sleep (250)
Loop
End Sub

お礼

上記の内容をVBAにて確認したのですが、VBSと同様の結果になりました。
薄々感じてはいましたが、やはりVBではMSGBOXを操作することは出来ないのでしょうかね。
そろそろ諦めようかと思います。