| Вопрос: клик мышкой | Добавлено: 13.03.10 09:27 |
Автор вопроса:  ASPIK | ICQ: 47-33-00-99-2 |
| Доброго времени суток! Подскажите пожалуйста как программно имитировать нажатие левой кнопки мыши. Заранее благодарен |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  ASPIK ICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24 |
Профиль | | #1 | Добавлено: 13.03.10 10:16 |
|
уже не нужна помощь сам разобрался, вот собственно код
Private 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) Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Private Sub Timer1_Timer() mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 'нажатие на левую клавишу мыши mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& 'отпускание левой клавиши мыши End Sub |
||
|
Номер ответа: 2 Автор ответа: ASPIKICQ: 47-33-00-99-2 Вопросов: 9 Ответов: 24 |
Профиль | | #2 | Добавлено: 13.03.10 13:24 |
| другой вопрос возник, как сделать так чтобы клик был в другом окне, наподобие Sendkeys? | ||
|
Номер ответа: 3 Автор ответа: Just Вопросов: 4 Ответов: 330 |
Профиль | | #3 | Добавлено: 13.03.10 15:00 |
| http://vbnet.ru/forum/show.aspx?id=202164 | ||
Страница: 1 |