Как получить глобальные координаты курсора мыши - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы