Что нового

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

kunizza

Новичок
Сообщения
1
Репутация
0
Версия AutoIt: v3.3.6.1

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

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Так ?:
Код:
HotKeySet('{ESC}', '_Exit') ;установка горячей клавиши для выхода

While 1
	MouseMove((@DesktopWidth / 2) + 50, @DesktopHeight / 2) ;в право от центра на 50px
	MouseMove((@DesktopWidth / 2) - 50, @DesktopHeight / 2) ;в лево от центра на 50px
WEnd

Func _Exit() ;функция для выхода
	Exit
EndFunc
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
kunizza,
Еже можно так попробовать:
Код:
$iR = @DesktopHeight / 2
$iX = @DesktopWidth / 2
$iY = @DesktopHeight / 2

HotKeySet('{F5}', '_MouseSpiral')
HotKeySet('{ESC}', '_Exit')

While 1
	Sleep(20)
WEnd

Func _MouseSpiral()
	Local Const $degToRad = 3.14159265358979 / 180
	Local $iRn = $iR
	MouseMove($iX + $iR, $iY, 0)
	$i = 0
	While 1
		$i += 4
		$iRn = $iR - $i / 10
		If $iRn <= 0 Then
			ExitLoop
		EndIf
		MouseMove($iX + $iRn * Cos($i * $degToRad), $iY + $iRn * Sin($i * $degToRad), 0)
		Sleep(1)
	WEnd
	MouseMove($iX, $iY, 0)
EndFunc   ;==>_MouseSpiral

Func _Exit()
	Exit
EndFunc   ;==>_Exit
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
OffTopic:
Браво madmasles
bi.gif
 
Верх