[Мышь, клавиатура] Имитация движений мыши

[Tamer]

Версия AutoIt:v 3.

Описание:
Имитация движения мыши по нажатию клавиши .
Примечания:
Нужно что бы скрипт был включаемым и выключаемым на отдельную клавишу клавиатуры (любую).
Чтобы при нажатии на левую кнопку мыши курсор мыши сдвигался с нынешнего место положения на пару пикселей в верх , на первую боковую(доп клавиша мышки 1) курсор двигался левее на пару пикселей от нынешнего положения курсора , а при нажатии на 2 доп кнопку мышки курсор двигался правее .
Заранее спасибо тем кто поможет или попытается помочь .

 

[WSWR]

Tamer
Вот что-то похожее:

#include <Misc.au3>
Global $on = 1

HotKeySet('{Esc}', '_Quit'); полный выход из скрипта по Esc
HotKeySet('{Pause}', '_OnOff') ; включение-отключение через Pause

$dll = DllOpen('user32.dll')

While 1
	Sleep(200)
	Select
		Case _IsPressed('01', $dll) And $on = 1; на зажатие левой кнопки
			Mouse1()
		Case _IsPressed('05', $dll) And $on = 1; на зажатие 4 кнопки
			Mouse4()
		Case _IsPressed('06', $dll) And $on = 1; на зажатие 5 кнопки
			Mouse5()
	EndSelect
WEnd

Func Mouse1()
	$pos = MouseGetPos()
	MouseMove($pos[0], $pos[1] - 2, 10)
EndFunc   ;==>Mouse1

Func Mouse4()
	$pos = MouseGetPos()
	MouseMove($pos[0] - 2, $pos[1], 10)
EndFunc   ;==>Mouse4

Func Mouse5()
	$pos = MouseGetPos()
	MouseMove($pos[0] + 2, $pos[1], 10)
EndFunc   ;==>Mouse5

Func _OnOff() ; вкл-выкл
	If $on = 0 Then
		$on = 1
		ToolTip('Включено')
	Else
		$on = 0
		ToolTip('Выключено')
	EndIf
EndFunc   ;==>_OnOff

Func _Quit() ; выход
	DllClose($dll)
	Exit
EndFunc   ;==>_Quit

 

[ArtInt]

WSWR
Имхо, лучше проверку переменной $on вынести за селект, чтобы лишний раз нажатие клавиш не проверять.

 

[Tamer]

WSWR - Огромное спасибо .
А не мог бы ты поправить что бы при нажатие или зажатие курсор двигался всего 1 раз ? Что в след раз он двигался только после того как я нажму еще раз ?

 

[WSWR]

Tamer

Это в смысле, если кнопка зажата, то сдвигается 1 раз и все? Сейчас если зажата - ползет.