Using a WindowsXP VBScript to automate Internet Explorer, how can I 'click ok' when a dialog box appears?

My Windows VBScript opens an InternetExplorer.Application object, and runs through some navigation. At one point the page I'm working with displays a dialog box in which I must 开发者_如何学Cclick "OK" or "Cancel." Is there a way to tell the VBScript to click "OK" when the dialog box pops up?

---

VBScript isn't very good at dealing with GUI functions, at least, it is not even remotely close to something like AutoIT; anyway, that said there is a sendkeys function in VBScript, but the problem is that you can't do an "on event" type of call, you basically have to use a timer, so it really isn't a good solution, but as far as I know it's all you've got, at least natively to VBS.

So maybe you could kick off your IE object, then throw in a wait timer and then sendkeys. WAY hokey... but it could work.

Here's the MSDN article on sendkeys with examples.

---

If all you want is to close a dialog box, this may help you:

Set oShell = CreateObject("WScript.Shell") 

Do 
    bResult = oShell.AppActivate("Title of the dialog box") 
    If bResult = True Then 
        oShell.SendKeys "{Enter}" 
        ' or "%K" for Alt+k, for OK and "%N" (Alt+N) for Cancel
        Exit Do 
    End If 
    WScript.Sleep 500 
Loop