Как программно переместить курсор мыши (VB6)
Формулировка задачи:
Как программно переместить мышь по заданным координатам и произвести клик?
Помогите хоть в одном
Решение задачи: «Как программно переместить курсор мыши (VB6)»
textual
Листинг программы
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 Private Const MOUSEEVENTF_MIDDLEUP = &H40 Private Const MOUSEEVENTF_MOVE = &H1 Private Const MOUSEEVENTF_RIGHTDOWN = &H8 Private Const MOUSEEVENTF_RIGHTUP = &H10 Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 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) Public Sub MouseClick() Dim cbuttons As Long, dwExtraInfo As Long, mevent As Long mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP ' для другой кнопки мыши используйте нужные константы предоставленны выше Call mouse_event(mevent, 0&, 0&, cbuttons, dwExtraInfo) End Sub Private Sub Command1_Click() ' имитирует нажатие кнопки мыши MouseClick End Sub Private Sub Command2_Click() Call SetCursorPos(300, 600) ' переносит курсор на указанные (x:y) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д