- Код: Выделить всё
Set WSHShell = WScript.CreateObject("WScript.Shell")
if WshShell.AppActivate("Application Window Name") then
'Вызываем меню приложения
WSHShell.SendKeys "% "
WScript.Sleep 500
'Открываем дочернее окошко в приложении
WSHShell.SendKeys "{RIGHT}{RIGHT}{DOWN}~"
WScript.Sleep 500
'Перепрыгиваем на нужный control
WSHShell.SendKeys "{TAB}{TAB}{RIGHT}"
WSHShell.SendKeys "{DOWN}"
'Вызываем контексное меню (по правой кнопке мышки)
WSHShell.SendKeys "+{F10}"
'которое не вызывается, если предварительно не щёлкнуть на control'е мышкой
end if
Как вообще заставить мышку щёлкнуть?