| Вопрос: Виртуальная клавиатура | Добавлено: 12.03.07 13:26 |
Автор вопроса:  WFS2007
|
| Как в ВБ эмулировать нажатие клавиши на клавиатуре? |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  Dark Вопросов: 4 Ответов: 41 |
Профиль | | #1 | Добавлено: 12.03.07 14:07 |
|
SendKeys Ctrl as String, [Wait as Boolean]
Для передачи фокуса используй AppActivate Title as String, [Wait as Boolean]
Пример: Private Sub Command1_Click() ret=Shell("calc.exe", vbNormalFocus) AppActivate "Калькулятор", False SendKeys "1{+}2=^C%{F4}", True Text1.Text=Clipboard.GetText() End Sub |
||
|
Номер ответа: 2 Автор ответа: WFS2007 Вопросов: 2 Ответов: 6 |
Профиль | | #2 | Добавлено: 12.03.07 14:33 |
| спасибо! | ||
|
Номер ответа: 3 Автор ответа: WFS2007Вопросов: 2 Ответов: 6 |
Профиль | | #3 | Добавлено: 12.03.07 14:43 |
| А где можно взять таблицу символов для различных клавиш типа Alt в примере? Например, стрелочки, ВВОД и тд | ||
|
Номер ответа: 4 Автор ответа: WFS2007Вопросов: 2 Ответов: 6 |
Профиль | | #4 | Добавлено: 12.03.07 14:49 |
| Путем недолгого анализа выяснилось, что клавиши Alt в примере напрямую не было... Как формируются команды типа Стрл+С или Альт+Ф4? Имеются в виду принципы формирования подобных команд. | ||
|
Номер ответа: 5 Автор ответа: WFS2007Вопросов: 2 Ответов: 6 |
Профиль | | #5 | Добавлено: 12.03.07 15:10 |
И еще вопрос: Калькулятор является одиночным ехе-шником, а вот та прога, что я запускаю, работает еще с парой библиотек и при запуске вышеуказанным образом эти файлы не находит. Почему?? При запуске мышкой  работает нормально
|
||
|
Номер ответа: 6 Автор ответа: WFS2007Вопросов: 2 Ответов: 6 |
Профиль | | #6 | Добавлено: 12.03.07 15:14 |
| Вопрос решился сам собой... Вроде... Поместил ехе-шник в папку с программой... Однако вопрос остается открытым - как при запуске командой Shell указать рабочую папку запускаемой программы? | ||
|
Номер ответа: 7 Автор ответа: DarkВопросов: 4 Ответов: 41 |
Профиль | | #7 | Добавлено: 12.03.07 17:07 |
|
************************
*Клавиша * Обозначение * ************************ * A * A * * B * B * * C * C * * ... * ... * * a * a * * b * b * * c * c * * ... * ... * * F1 * {F1} * * F2 * {F2} * * F3 * {F3} * * ... * ... * * Enter * {Enter} * * Esc * {Esc} * * Ctrl * ^ * * Shift * + * * * * * * * * * * * * * ************************ Alt-не знаю  .
Попробуй не Shell, а API: Private Declare Sub WinExec Lib "kernel32" _ (ByVal lpCmdLine As String, ByVal nCmdShow As Long) WinExec App.Path & "\" & App.EXEName & ".exe", 0 |
||
|
Номер ответа: 8 Автор ответа: DarkВопросов: 4 Ответов: 41 |
Профиль | | #8 | Добавлено: 12.03.07 17:11 |
|
Попробуй так:
Shel "cd " & path |
||
|
Номер ответа: 9 Автор ответа: DarkВопросов: 4 Ответов: 41 |
Профиль | | #9 | Добавлено: 12.03.07 17:11 |
|
Попробуй так:
Shell "cd " & path |
||
|
Номер ответа: 10 Автор ответа: DarkВопросов: 4 Ответов: 41 |
Профиль | | #10 | Добавлено: 12.03.07 17:11 |
|
Попробуй так:
Shell "cd " & path |
||
|
Номер ответа: 11 Автор ответа: fwhВопросов: 1 Ответов: 2 |
Профиль | | #11 | Добавлено: 12.03.07 23:01 |
|
Ой СПАСИБО!!!
Хороший форум! |
||
Страница: 1 |