Страница: 1 |
Страница: 1 |
Вопрос: Виртуальная клавиатура
Добавлено: 12.03.07 13:26
Автор вопроса: WFS2007
Как в ВБ эмулировать нажатие клавиши на клавиатуре?
Ответы
Всего ответов: 11
Номер ответа: 1
Автор ответа:
Dark
Вопросов: 4
Ответов: 41
Профиль | | #1
Добавлено: 12.03.07 14:07
Для передачи фокуса используй
Пример:
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
Ой СПАСИБО!!!
Хороший форум!