VBA Excel

Powershell — автоматическое перемещение мыши

Хотите научиться двигать мышь с помощью Powershell? В этом руководстве мы покажем вам, как использовать Powershell для автоматического перемещения мыши каждую минуту на компьютере с Windows.

• Windows 2012 R2
• Windows 2016
• Windows 2019
• Windows 2022
• Windows 10
• Windows 11

Как работает MouseMove?

MouseMove, X, Y , скорость, относительная

Объявить команду на перемещение мыши с помощью «MouseMove» и указать координаты мыши с входными значениями «X» (горизонтальные) и «Y» (вертикальные). Если вы хотите переместить мышь в положение «100 пикселей» справа от верхнего левого угла экрана и «100 пикселей» в нижней части, введите следующий код.

Движение Мыши, 100, 100

Значение в скобках не обязательно маленькое, но код работает и задает скорость, с которой движется мышь с помощью «Speed». «0» движется немедленно, чем выше число, тем медленнее он движется, а «100» — это предел. Если ничего не указано, используется значение по умолчанию «2». Если вы хотите переместить мышь непосредственно в координаты «x100», «y100», используйте такой код.

Движение Мыши, 100, 100, 0

«Относительный» изменяет относительные команды для перехода в абсолютную позицию с существующими значениями «X» и «Y», т.е.

Движение Мыши, 100, 100

Перемещает мышь в позиции x100 и y100 на экране.

MouseMove, 100, 100, , R

Добавление «Относительно» или «R» переместит 100 точек от осей «X» и «100» к оси «Y» в текущем положении указателя. Если вы записываете отрицательное значение, оно перемещается в противоположном направлении.

Как работает MouseClick?

MouseClick , WhatButton, X, Y, ClickCount, Speed, DownOrUp, Relative

Основная операция аналогична «MouseMove», но не только перемещать, но и вводить данные, такие как левый щелчок, правый щелчок, нажатие кнопки колеса, вращение кнопки колеса, кнопка x (дополнительная кнопка слева от игровой мыши и т д) ,

Код в скобках работает без кода, а по умолчанию, если его не указать, будет «WhichButton = Left», «X, Y = текущая позиция», «ClickCount = 1», «Speed ​​= 2».

Вот код, который один раз щелкнул левой кнопкой мыши по текущему местоположению:

Щелчок мышью

Вот код, чтобы один раз щелкнуть правой кнопкой мыши по текущему местоположению. (Вы можете ввести специальные клавиши, такие как «Влево» для щелчка левой кнопкой мыши, «Вправо» для щелчка правой кнопкой мыши, «Средний» для щелчка колеса, «Колесо», «Колесо вниз», колесо вверх и вниз, «Xbutton1», «xbutton2» и можно сократить соответственно до L, R, M, WU, WD, X1 и X2.

Щелчок мышью, вправо

Вот код для нажатия на координаты «x100», «y100».

Щелчок мышью влево, 100, 100

Вот код, который дважды щелкает по координатам «x100», «y100»:

Щелчок мышью, влево, 100, 100, 2

Вот некоторый код, который немедленно перемещает координаты «x100» и «y100» и дважды щелкает их.

Щелчок мышью, влево, 100, 100, 2, 0

«x100», «y100» Перейдите к координатам и зажмите левую кнопку мыши.

Щелчок мышью, влево, 100, 100, , , D

Вот код для перемещения к координатам «x100», «y100», щелкните левой кнопкой мыши, чтобы перетащить, и щелкните левой кнопкой мыши, чтобы «x200», «y200»

Щелчок мышью влево, 100, 100, , , D Щелчок мышью влево, 200, 200, , , U

Код, который перемещается относительно текущего положения указателя мыши на «x100» и «y100» вместо перемещения по абсолютной величине в координатах «x100» и «y100» на экране, выглядит следующим образом.

Щелчок мышью, влево, 100, 100, , , , R

Функция и использование MouseGetPos

MouseGetPos, OutputVarX, OutputVarY, OutputVarWin, OutputVarControl, Flag

Функции, связанные с MouseGetPos, такие же, как и выше.

MouseGetPos, OutputVarX, OutputVarY

Вам нужно только знать вышеперечисленные функции. Код, который сохраняет координаты текущей позиции мыши в значениях ‘OuputVarX’ и ‘OutputVarY’ и фактически возвращает координаты ‘x100’ и ‘y100’ и тому подобное.

MouseGetPos, 1X, 1Y MouseMove, 100, 100 MouseMove, %1X%, %1Y%

После этого эта MouseGetPos является наиболее часто используемой задачей. Если вы хотите переместить позицию мыши на «x100» или «y100» в сохраненной позиции, вы можете написать такой код.

MouseGetPos, 1X, 1Y MouseMove, 1X+100, 1Y+100

На первый взгляд это может выглядеть как «Относительная» функция предыдущей «MouseMove», но поскольку значения «1X» и «1Y» сохраняются во время работы соответствующей функции AutoHotkey.

Определение координат курсора

Поиск текущих координат курсора из кода Excel VBA:

12345678910111213

Скопируйте приведенный выше код в стандартный модуль и щелкните в процедуре Get_Cursor(). Затем переместите указатель мыши по экрану, не нажимая никаких кнопок так, чтобы мигающая вертикальная черта (точка вставки) не вышла за пределы процедуры, и нажмите клавишу F5. Текущие координаты маркера будут напечатаны в окне Immediate. Клавишу F5 можно нажимать одновременно с процессом перемещения мыши. Значения координат X и Y отображаются в пикселях.

Имитация движения мыши

Имитация движения мыши, а точнее, прыжка мыши из одной точки в другую, выполняется из кода VBA Excel путем установки курсору новых координат:

12345678910

В пример добавлены переменные для наглядности, использовать их нельзя:

1	СетКурсорПос600 400

И вот как вы можете указать несколько прыжков с помощью указателя мыши:

1234567

SubMany_Set_Cursor()DimiAsLong Fori=1To600Step20 Application.Wait Now+TimeValue(«0:00:01») SetCursorPosi,in NextEndSub

Здесь прыжок мыши происходит раз в секунду.

Уменьшив задержку цикла в предыдущем примере с помощью другого цикла, вы можете ускорить движение курсора и сделать его более плавным:

123456789

SubMany_Set_Cursor_2()DimiAsLong,i2 AsLong,aAsLong Fori=1To600 Fori2=1To100000 a=i2/2 Next SetCursorPosi,i NextEndSub

Здесь это больше похоже на имитацию движений мыши.

Читайте также: Чем сжать iso образ windows

Список оборудования

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

• Перечень оборудования

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

Имитация кликов мыши

Чтобы имитировать левый и правый клики мыши, нам нужны коды событий кнопок мыши:

Нажмите левую кнопку	&H2
Отпустите левую кнопку	&H4
Нажмите правую кнопку	&H8
Отпустите правую кнопку	&H10

В следующем примере показано, как установить указатель мыши в заданное место на экране и имитировать щелчок правой кнопкой мыши:

123456789101112

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

Обратите внимание, что функции Windows API, используемые в примерах, необходимо объявить только один раз.

Фразы контекстного поиска: положение курсора, имитация щелчка, имитация щелчка, имитация движения, имитация мыши, имитация мыши, координаты мыши, положение мыши, положение курсора.