Эмуляция кликов мыши

@Andriello · Регистрация: 14.12.2012

Author24 — интернет-сервис помощи студентам

Ребята, помогите написать простой макрос в VBA, встроенном в экселе.

Необходимо следующее:
при запуске макроса (Макрос1 пускай будет называться) надо чтобы мышь кликнула на экране в точке с координатами (100;200) и на этом макрос закончил работу.

Что-то я совсем подзабыл программирование и не могу понять, как это сделать в ВБА, может быть такого прямого метода в ВБА вобще не существует? Если кто-то его знает, напишите пожалуйста полный текст такого макроса, чтоб я его вставил и потом мог тупо копировать куда надо, изменяя координаты клика

@Казанский · 16.12.2012, 23:31

Что находится "в точке с координатами (100;200)"? Может, проще выделить нужный объект?

@Andriello · 16.12.2012, 23:58 **[ТС]**

В том то и дело, что нужен универсальный алгоритм, не привязанный к конкретному приложению или элементу управления.

Кажется мне удалось найти работающий алгоритм, стоило только задать вопрос тут на форуме ) До этого неделю искал - не мог найти толковый пример, везде фразы типа "попробуйте вот это" ))) а я не очень-то разбираюсь в синтаксисе ООП. Поэтому и в этом примере покачто ни как не могу разобраться, что там к чему, но он хотя бы работает:

Visual Basic

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_ABSOLUTE = &H8000 '  absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Const MOUSEEVENTF_MOVE = &H1
 
 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
 
Private Sub Command1_Click()
Dim pt As POINTAPI
GetCursorPos pt
    screenx& = GetSystemMetrics(SM_CXSCREEN)
    screeny& = GetSystemMetrics(SM_CYSCREEN)
    
    destx& = pt.x * &HFFFF& / screenx&
    desty& = pt.y * &HFFFF& / screeny&
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, destx&, desty&, 0, 0
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, destx&, desty&, 0, 0
End Sub
 
'Private Sub Command2_Click()
'MsgBox ""
'End Sub

Данный алгоритм получает текущие координаты курсора мыши и делает сначала МаусДаун, а потом МаусАп по этим координатам. Осталось теперь выяснить, как задавать нужные мне координаты.

@ikki · 17.12.2012, 14:06

выбирайте

@Казанский · 17.12.2012, 23:35

Комментарий модератора

ikki, напоминаю Правила
3.3 Не отсылайте других пользователей в поиск и избегайте ссылок на поисковые системы (Google, Yandex и др.). Самостоятельно найдите ответ на вопрос и разместите его на форуме.

@Andriello · 05.02.2013, 08:50 **[ТС]**

Ура! Наконец-то разобрался как это сделать приемлимым способом =)

Подробно опишу весь процесс для таких же чайников как я сам, ибо на рускоязычных форумах фиг найдешь нормальное описание

Visual Basic

'Подключение функции API Windows "mouse_event" из Виндосовской библиотеки "user32", которая позваляет управлять мышью
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long)
'Значения параметра dwFlags, определяющие поведение функции mouse_event
Private Const MOUSEEVENTF_LEFTDOWN = &H2  'Нажать левую кнопку
Private Const MOUSEEVENTF_LEFTUP = &H4  'Отпустить левую кнопку
 
'Подключение функции API Windows "SetCursorPos", которая устанавливает позицию курсора мыши по координатам, соответствующим разрешению вашего монитора
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
 
'Подключение функции API Windows "Sleep", её можно использовать вместо таймера, выставляя задержки в милисекундах
Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
 
Sub MouseDragging(x1, y1, x2, y2) 'Перетаскивание объекта из координаты (x1,y1) в координаты (x2,y2)или выделение текста/изображения в прямоугольной области (x1, y1; x2, y2)
Call SetCursorPos(x1, y1)
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
Call SetCursorPos(x2, y2)
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
 
Sub MouseClick(x, y) 'Клик мыши по координатам (x,y)
Call SetCursorPos(x, y)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
 
Private Sub CommandButton1_Click()
Sleep (500)
Call MouseDragging(889, 490, 388, 467)
Sleep (2000)
Call MouseClick(768, 419)
End Sub

Управление мышью осуществляется с помощью стандартной функции API Windows под названием "mouse_event", чтобы она заработала, надо вставить строку "Private Declare Sub mouse_event..." в точности, как показано сверху в коде VB. Для того чтобы указать этой функции, что конкретно надо сделать, нужно установить параметр dwFlags, который может принимать следующие значения:

Visual Basic

'Возможные значения параметра dwFlags, определяющие поведение функции mouse_event
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_RIGHTDOWN = &H8  'Нажать правую кнопку
Private Const MOUSEEVENTF_RIGHTUP = &H10  'Отпустить правую кнопку
Private Const MOUSEEVENTF_MOVE = &H1  'Переместить курсор
Private Const MOUSEEVENTF_WHEEL = &H800  'Вращение вертикального колеса мыши (если оно есть)
Private Const MOUSEEVENTF_HWHEEL = &H1000  'То ли вращение горизонтального колеса мыши, толи наклон вправо/влево обыного колеса мыши
Private Const MOUSEEVENTF_XDOWN = &H80  'Нажать на одну из дополнительных кнопок "Х" (номер кнопки задается параметром dwData)
Private Const MOUSEEVENTF_XUP = &H100  'Отпустить  кнопку "Х"
'Дополнительный параметр dwData, определяет поведение функции mouse_event
'при использовании dwFlags = MOUSEEVENTF_WHEEL, MOUSEEVENTF_HWHEEL, MOUSEEVENTF_XDOWN, MOUSEEVENTF_XUP

Наиболее подробная информация о функциональности этих всех параметров содержится на сайте майкрософт (на английском) Например, с помощью параметра MOUSEEVENTF_ABSOLUTE можно задавать координаты мыши с высокой точностью в диапазоне от 0 до 65535 по осям x и y. Правда мне так и не удалось понять, как работает этот параметр, у меня он вобще никакого влияния не оказывал на перемещение курсора, как я только над ним не извращался =)

Помучавшись, обнаружил прекрасную функцию "SetCursorPos", которая так же входит в стандартный набор Виндоус. Она четко ставит укозатель мыши в нужную позицию с координатами, соответствующими разрешению экрана (Например от 0х0 до 1280х800) независимо от настроек чувствительности и ускорения мыши, что очень удобно.

Для работы с медленно прогружающимися объектами (например с сайтами в интернете или тяжеловесными программами) бывает необходимо добавить временную задержку между кликами мыши на различные меню. Поскольку в VBA повидимому нет объекта типа таймера, то вместо него отлично подходит ещё одна стандартная функция Виндовс "Sleep", которая позваляет задавать задержку в милисекундах, что бывает даже удобнее.

Мне необходимо было использовать в своей основной программе две вещи - это перетаскивание объекта из точки 1 в точку 2 и клик мышкой в точке с заданными координатами (например на кнопку). Для реализации каждого из этих действий можно использовать связку из нескольких функций "SetCursorPos" и "mouse_event", но удобнее написать свои процедуры, котарые потом вставлять каждый раз в нужное место, что я и сделал в виде процедур "MouseDragging" и "MouseClick".

Процедура "MouseDragging(x1, y1, x2, y2)" с помощью функции "SetCursorPos(x1, y1)" устанавливает курсор над нужным объектом в координатах (x1, y1), затем с помощью "mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0" нажимает левую кнопку мыши и как бы удерживая её, перетаскивает обект в точку с координатами (x2, y2) с помощью функции "SetCursorPos(x2, y2)". Затем отпускает кнопку мыши с помощью функции "mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0".
С помощью процедуры "MouseDragging(x1, y1, x2, y2)" можно также выделить область текста в Ворде, несколько объектов в Экселе, Автокаде или часть изображения в Пэйнте.

Процедура "MouseClick(x, y)" выполняет клик мышью в точке с координатами (x, y). Сначала устанавливает указатель мыши с помощью функции "SetCursorPos(x, y)" в нужной точке, затем с помощью функции "mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0" совершает клик мышью в этой точке. Причем интересно, что запись параметра dwFlags в виде "MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP" сразу же обеспечивает и нажатие левой кнопки мыши и отпускание.

Здесь x, y, x1, y1, x2, y2 играют роль параметров, вместо которых мы при вызове процедур подставляем нужные нам значения.

Теперь вставляем всё это в процедуру нажатия на кнопку Button1, расположенную где-нибудь на нашей форме, и получаем следующее: при нажатии на кнопку происходит задержка 0,5 секунды, затем перетаскивание объекта из координат (889, 490) в точку с координатами (388, 467), затем после задержки в 2,0 секунды выполняется клик мышкой в точке с координатами (768, 419)

Может быть кому-то покажется странным такое длинное описание столь простой задачи, но мне пришлось потратить около месяца времени, чтобы разобраться во всем этом и найти подходящие решения. Надеюсь что данное описание поможет таким же чайникам как я разобраться в этом гораздо быстрее ;-)

@mtz · 06.02.2013, 12:59

Andriello, то что надо

@Andriello 131 / 19 / 1 Регистрация: 14.12.2012 Сообщений: 10
		1
	Эмуляция кликов мыши 16.12.2012, 21:45. Показов 44769. Ответов 6 Метки winapi (Все метки) Ребята, помогите написать простой макрос в VBA, встроенном в экселе. Необходимо следующее: при запуске макроса (Макрос1 пускай будет называться) надо чтобы мышь кликнула на экране в точке с координатами (100;200) и на этом макрос закончил работу. Что-то я совсем подзабыл программирование и не могу понять, как это сделать в ВБА, может быть такого прямого метода в ВБА вобще не существует? Если кто-то его знает, напишите пожалуйста полный текст такого макроса, чтоб я его вставил и потом мог тупо копировать куда надо, изменяя координаты клика 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	16.12.2012, 23:31	2
	Что находится "в точке с координатами (100;200)"? Может, проще выделить нужный объект? 0

@ikki призрак 3263 / 891 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	17.12.2012, 14:06	4
	выбирайте 0

@mtz 0 / 0 / 0 Регистрация: 18.05.2017 Сообщений: 3
	06.02.2013, 12:59	7
	Andriello, то что надо 0

Эмуляция кликов мыши

Решение