vbScript

[klarist]

Код: Выделить всё


Set WSHShell = WScript.CreateObject("WScript.Shell")
if WshShell.AppActivate("Application Window Name"
'Вызываем меню приложения
  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}"
'которое не вызывается, если предварительно не щёлкнуть на controlr мышкой
end if


Как вообще заставить мышку щёлкнуть?

[Viper]

Интересно начинает автор свое пребывание на форуме... Дубль, да еще и не в том разделе...