[Sisin]

У меня так работает:

Код:

Set WshShell = CreateObject("WScript.Shell")
act_success = WshShell.AppActivate("Security Alert")
if (act_success) then
WScript.Sleep(300)
WshShell.SendKeys "^{TAB}"
WScript.Sleep(100)
WshShell.SendKeys "^{ENTER}"
End if

Как сделать через цикл, чтобы ждал появления окна, а потом один раз нажимал кнопки?

[Iska]

«Нажимал на кнопки» — никак, нет такого функционала. .SendKeys() отсылает оконной процедуре активного окна сообщения о якобы нажатых клавишах.

Код:

Set WshShell = CreateObject("WScript.Shell")

Do
	WScript.Sleep 500
Loop Until WshShell.AppActivate("Security Alert")

WScript.Sleep(300)
WshShell.SendKeys "^{TAB}"
WScript.Sleep(100)
WshShell.SendKeys "^{ENTER}"

[Sisin]

«Нажимал на кнопки» — никак, нет такого функционала. .SendKeys() отсылает оконной процедуре активного окна сообщения о якобы нажатых клавишах. »

Пару дней погонял, работает без сбоев.

[Sisin]

У меня работает только с:

Код:

Loop until WshShell.AppActivate("Security Alert")

[Iska]

Sisin, конечно же, Do … Loop Until …. Поправил выше.