| Вопрос: Sendkeys CTRL+P. КАК??? | Добавлено: 04.04.05 18:36 |
Автор вопроса:  Morpheus | Web-сайт: xury.zx6.ru
|
|
Всем доброго времени суток. Вопрос: как послать приложению (другому) комбинацию CTRL+P или любую другую?
Уже блин все комбинации Sendkeys пребрал.... нифига. Помгите кто чем может! |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  rx ICQ: 310731115 Вопросов: 10 Ответов: 45 |
Web-сайт: Профиль | | #1 | Добавлено: 05.04.05 00:36 |
|
ochen' prosto
sendkeys "%P" a vot esho: ^=alt %=control {F1} do{F12} {END} {HOME} {PGUP} {PGDN} {TAB} i.t.d. sam dolgo parilsya poka ne ponyal sistemy 
|
||
|
Номер ответа: 2 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #2 | Добавлено: 05.04.05 01:39 |
| пасибо, попробую. кстати "~"=Enter | ||
|
Номер ответа: 3 Автор ответа: rxICQ: 310731115 Вопросов: 10 Ответов: 45 |
Web-сайт: Профиль | | #3 | Добавлено: 05.04.05 11:05 |
|
"{enter}" = равно тоже Enter
|
||
|
Номер ответа: 4 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #4 | Добавлено: 05.04.05 17:55 |
| Кстати, как послать клик мыши??? | ||
|
Номер ответа: 5 Автор ответа:  rxICQ: 310731115 Вопросов: 10 Ответов: 45 |
Web-сайт: Профиль | | #5 | Добавлено: 05.04.05 18:15 |
|
Так просто как Sendkeys неполучитса
Вот код модуля: Option Explicit Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 Private Const MOUSEEVENTF_MIDDLEUP = &H40 Private Const MOUSEEVENTF_RIGHTDOWN = &H8 Private Const MOUSEEVENTF_RIGHTUP = &H10 Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Sub MouseClick(ByVal MBClick As Integer) Dim cButtons As Long Dim dwExtraInfo As Long Dim mevent As Long Select Case MBClick Case 1 mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP Case 3 mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP Case 2 mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP Exit Sub End Select mouse_event mevent, 0&, 0&, cButtons, dwExtraInfo End Sub Вот как визивать: MouseClick 1 'LMB MouseClick 2 'MMB MouseClick 3 'RMB |
||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 05.04.05 19:48 |
|
Ну да Можно то же самое но с keyb_event проделать API но все же в 9х работает лучше чем SendKeys... Помнится заголовок свой цвет меняет при использовании SendKeys VB'шного...
|
||
|
Номер ответа: 7 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #7 | Добавлено: 06.04.05 08:00 |
| Только он по моему keybd_event. | ||
Страница: 1 |