| Вопрос: Имитация мыши | Добавлено: 20.08.07 17:03 |
Автор вопроса:  Leee | ICQ: 247659332 |
|
Помогите! Есть корявая программа (неважно в чем) и в ней ужасно реализована печать. Очень много рутины. Я при помощи имитации клавиш клавиатуры добрался до одной формы в которой ни как не обойтись без имитации левой клавиши мыши. Тут то я и сел
Sub Имитация2() ' печать фактического For I = 1 To 1 AppActivate "prtSpr" SendKeys "{down}", True For q = 1 To 10000000 Next q SendKeys "%{g}", True For q = 1 To 10000000 Next q SendKeys "{DOWN}", True For q = 1 To 10000000 Next q SendKeys "{ENTER}", True For q = 1 To 250000000 Next q ??????? ??????? Next I End Sub |
| Ответы | Всего ответов: 0 |
Страница: