Как получить глобальные координаты курсора мыши - VB
Формулировка задачи:
Нужно узнать координаты курсора для эмуляции клика кнопки, расположенной на странице в ИЕ. Пробовал просто пересчитать через пиксели на рисунке.bmp, полученом через PrintScreen, но получается странная вещь. В пикселях Х=500,Y=360, умножаю 500*64.4, получаю клик примерно в центре экрана (по горизонтали). Но когда умножаю 360*64.4, то по вертикали промахиваюсь (((
И вообще, что ЭТО за единицы, если по горизонтали весь экран примерно 64000 ?
Решение задачи: «Как получить глобальные координаты курсора мыши»
textual
Листинг программы
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) 'для клика мышки Private Const MOUSEEVENTF_LEFTDOWN = &H2: Private Const MOUSEEVENTF_LEFTUP = &H4 Public Sub Клик() AppActivate "Internet Explorer": Xm = 250: Ym = 600: Call SetCursorPos(Xm, Ym): Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0): Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0): End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д