Управление мышью в VBScript

Программирование на Active Server Pages и VBScript.
klarist
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 20.09.2006 (Ср) 10:29

Управление мышью в VBScript

Сообщение klarist » 21.09.2006 (Чт) 6:53

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

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

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

Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12

    TopList