| Вопрос: Клик левой кнопки мыши | Добавлено: 31.12.09 23:41 |
Автор вопроса:  ExeilYO
|
| Нужно емулировать нажатие левой кнопки мыши, как это сделать? заранее благодарен. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337 |
Web-сайт: Профиль | | #1 | Добавлено: 01.01.10 00:47 |
| API вроде есть или Sendkeys или лишний алкоголь у мя... | ||
|
Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #2 | Добавлено: 01.01.10 01:40 |
| Млиииин и чем тока народ не занимается в новогоднюю ночь | ||
|
Номер ответа: 3 Автор ответа: Spiritsun Вопросов: 15 Ответов: 44 |
Профиль | | #3 | Добавлено: 24.01.10 21:34 |
|
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2
Private Const MOUSEEVENTF_LEFTUP As Integer = &H4 Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20 Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40 Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8 Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10 Private Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long) ' для прверки нажатия клавиши Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) 'Sleep(n) - пауза в миллисекундах 1сек = 1000млсек Private Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Integer Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) Private Sub SetMousePos(ByRef xPos As Integer, ByRef yPos As Integer) ' SetMousePos(pp(1, xy), pp(2, xy)) - установка мыши в зад коорд System.Windows.Forms.Application.DoEvents() ' может и не надо SetCursorPos(xPos, yPos) End Sub Private Sub LeftClick(Optional ByRef p As Short = 0) 'LeftClick() - нажимает лев кл мыши, (1) - удерживает, (2) - отпускает Sleep(1) ' задержка, иначе может не сработать System.Windows.Forms.Application.DoEvents() ' может и не надо If Not (p = 2) Then mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) If Not (p = 1) Then mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) End Sub |
||
|
Номер ответа: 4 Автор ответа: iprogВопросов: 26 Ответов: 110 |
Web-сайт: Профиль | | #4 | Добавлено: 24.01.10 22:44 |
| Попробуйте вставить в код ссылку на процедуру нажатия на определённый обьект. К сожалению, так можно сделать, если на форме есть обьект (кнопка, TextBox) или же сделать ссылку на клик по самой форме. Не забудьте написать, что кнопка именно левая. | ||
Страница: 1 |