Что нового

Равномерные движения мышью

drk

Новичок
Сообщения
2
Репутация
0
Здравствуйте.
Очень надеюсь что с autoit это будет осуществимо.
Моя цель - сделать плавные движения мышью. Объясню зачем - есть игрушка, там ты можешь летать как spectator. Мне из спектатора надо записать fraps с плавными движениями. К сожалению в самой игре этого не предусмотрено и девы не спешат притрагиваться к этому аспекту, посему приходиться прибегать к сторонним скриптам.
С autoit ещё не работал. В соседней теме нашёл вот такой пример:

Код:
HotKeySet('{ESC}', '_Exit') ;установка горячей клавиши для выхода

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

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


Но как я вижу по тесту - оно неравномерно прыгает от центра в координату, и там замедляется - потом обратно. Можно ли для данного примера (либо просто из точки в точку) сделать передвижение равномерным ?
Заранее спасибо за Ваши ответы :smile:
 

Dm666

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

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

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

Справка рулит. ;)
 
Автор
D

drk

Новичок
Сообщения
2
Репутация
0
Понимаешь, справка-справкой, видел я то [, speed] но беда в том что мышь проходит 85% расстояния быстро, а потом начинает притормаживание до конца. То бишь движение какое-то не равномерное. Проверил, в системе акселерация миши вроде отключена, не пойму в чём беда либо как по другому это соорудить :(
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Вроде плавно
Код:
$aPos = MouseGetPos()
While 1
   $aPos[0]+=Random(1,100)
   $aPos[1]+=Random(1,100)
   MouseMove($aPos[0], $aPos[1], 90)
   If @DesktopHeight < $aPos[1] Or @DesktopWidth < $aPos[0] Then ExitLoop
WEnd
 
Верх