| Вопрос: API, mouse | Добавлено: 18.09.06 20:16 |
Автор вопроса:  Sneaks
|
| Вот нашел пример с работы API с мышью, все понял как передвигать и все такое, вот не дагоняю только как эмулировать клики? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #1 | Добавлено: 18.09.06 21:14 |
| MOUSEINPUT... | ||
|
Номер ответа: 2 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 19.09.06 12:27 |
| ...SendInput | ||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 19.09.06 20:37 |
| sendinput = mouse_event | ||
|
Номер ответа: 4 Автор ответа: Sneaks Вопросов: 9 Ответов: 84 |
Профиль | | #4 | Добавлено: 20.09.06 12:37 |
|
2 -АлександР-
нашел несколько примеров но они все с клавой и написано что в этом примере мыш не рассматривается а про мыш нет ни где, не мог ли ты по подробней об этом 2 LOL и sne нашел только для Си, а под вб нет, там надо что то дополнительно подгружать? |
||
|
Номер ответа: 5 Автор ответа: SneaksВопросов: 9 Ответов: 84 |
Профиль | | #5 | Добавлено: 20.09.06 12:57 |
фух всем спасибо нашел желаемое  )
на всякий случай выложу, может кому понадобится: Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim z As POINTAPI 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 Form_Load() GetCursorPos z 'получить текущее значение местоположения курсора zx = (851 - z.x) / 2 'необходимо разделить полученное значение на 2. С чем это связано, я не знаю. А вы? zy = (143 - z.y) / 2 mouse_event MOUSEEVENTF_MOVE, zx, zy, 0&, 0& 'перемещение курсора mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 'нажатие на левую клавишу мыши mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& 'отпускание левой клавиши мыши End Sub |
||
|
Номер ответа: 6 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #6 | Добавлено: 20.09.06 14:06 |
|
2sne
The mouse_event function synthesizes mouse motion and button clicks.
Windows NT/2000/XP: This function has been superseded. Use SendInput instead. 
|
||
Страница: 1 |