Как использовать WindowsXP VBScript для автоматизации Internet Explorer, как я могу нажать «ОК» при появлении диалогового окна?

Question

Мой Windows VBScript открывает объект InternetExplorer.Application и выполняет некоторую навигацию. В какой-то момент страница, с которой я работаю, отображает диалоговое окно, в котором я должен нажать «ОК» или «Отмена». Есть ли способ сказать VBScript, чтобы нажать «ОК», когда диалоговое окно всплывает?

Answer 1

Если все, что вам нужно, это закрыть диалоговое окно, это может вам помочь:

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 

Answer 2

VBScript не очень хорош в работе с функциями графического интерфейса, по крайней мере, он даже близко не похож на AutoIT;в любом случае, это говорит о том, что в VBScript есть функция sendkeys, но проблема в том, что вы не можете выполнять вызов типа «по событию», вам в основном нужно использовать таймер, так что это действительно не хорошее решение,насколько я знаю, это все, что у тебя есть, по крайней мере изначально для VBS.

Так что, возможно, вы могли бы запустить свой объект IE, затем включить таймер ожидания и затем отправить ключи.ПУТЬ, хоккей ... но это может работать.

Вот статья MSDN о sendkeys с примерами.