View previous topic :: View next topic |
Author |
Message |
Lari
Joined: 12 Mar 2007 Posts: 30
|
(Separately) Posted: Tue Mar 13, 2007 10:13 Post subject: Эмуляция нажатия горячих клавиш |
|
|
Здравствуйте!
Подскажите, пожалуйста, возможно ли с помощь VBScript в TC провести эмуляцию нажатия клавиш на клавиатуре, если да то каким образом. То есть есть на панели инструментов кнопка, жмешь на нее и происходит, например, действие аналогичное нажатию Shift+F4. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Mar 13, 2007 12:34 Post subject: |
|
|
Code: | Set WSH = WScript.CreateObject("WScript.Shell")
WSH.SendKeys "+{F4}" |
|
|
Back to top |
|
|
Lari
Joined: 12 Mar 2007 Posts: 30
|
(Separately) Posted: Tue Mar 13, 2007 14:27 Post subject: |
|
|
Работает! Спасибо!
Только небольшое уточнение:
как записывается на vbs клавиши Ctrl, Alt? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Mar 13, 2007 15:10 Post subject: |
|
|
SHIFT +
CTRL ^
ALT % |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Tue Mar 13, 2007 15:45 Post subject: |
|
|
Переношу в "Автоматизацию". _________________ Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Mar 13, 2007 17:47 Post subject: |
|
|
Хочу добавить, что использовать эмуляцию нажатия клавиш не очень рекомендую, т.к. работа такого скрипта может быть нестабильной.
По-сему вопрос - а зачем тебе это надо? _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Lari
Joined: 12 Mar 2007 Posts: 30
|
(Separately) Posted: Wed Mar 14, 2007 12:11 Post subject: |
|
|
Просто на некоторые события в ТС есть горячие клавиши, а сделать кнопку на панели инструментов стандартным способом (cm_) нельзя (или я не нашел? - например: Shift+F4). В связи с этим простой скрипт и кнопка готова! |
|
Back to top |
|
|
|