Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2728
Благодарности: 1697

Профиль | Отправить PM | Цитировать


Можно запустить Ваше приложение vbs-скриптом и сымитировать в скрипте нажатие клавиш, единственное,надо знать последовательность их нажатия. Как пример, вот vbs-скрипт, запускающий блокнот (notepad.exe) с параметром - именем несуществующего файла (здесь kuku.txt). В результате блокнот выйдет на запрос о создании файла.
В первом примере скрипт "нажмёт" дважды правую стрелку и Enter (имитируем нажатие клавиши "Отмена"), файл не создастся, блокнот закроется. Перед нажатием последовательности клавиш подождем 5 сек, чтобы блокнот успел загрузиться
Код: Выделить весь код
Set WS = CreateObject("WScript.Shell")
Ret = WS.Run("C:\WINDOWS\system32\notepad.exe kuku.txt", 1, False)

WScript.Sleep 5000            		' Пауза в 5 сек
WS.SendKeys "{RIGHT}{RIGHT}{ENTER}"  	' Жмём дважды правую стрелку и Enter
Во втормм -скрипт пошлёт Enter, чтобы нажать клавишу запроса (файл создастся), затем скрипт закроет блокнот. Перед нажатием Enter подождем 5 сек, чтобы блокнот успел загрузиться, и перед Alt+F4 тоже подождём 5 сек, чтобы увидеть результат
Код: Выделить весь код
Set WS = CreateObject("WScript.Shell")
Ret = WS.Run("C:\WINDOWS\system32\notepad.exe kuku.txt", 1, False)

WScript.Sleep 5000            ' Пауза в 5 сек
WS.SendKeys "{ENTER}"         ' Жмём Enter

WScript.Sleep 5000            ' Пауза в 5 сек
WS.SendKeys "%({F4})"         ' Жмём Alt F4
Способ не годится для MS-Dos приложений

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 19-02-2012 в 11:48.


Отправлено: 11:30, 19-02-2012 | #6