рэндомный mousemove

[running-frag]

не могу сообразить как лучше реализовать
идея такова, считаем растояние между текущим и точкой куда "летим", получаем ширину и высоту после делим на N частей (как X так и Y) и получаем количество точек в этой коробке (через которые будем "пролетать" мышкой)

на этих точках само собой рэндом +\- как по х так и по у

есть ли более изящный выход?



Добавлено:

Сообщение автоматически объединено: 29 Ноя 2011

пока что в НЕчитабельном виде, но суть думаю ясна (не "чищенный" пример)

Func MouseMoveEx ($_x2, $_y2, $_s)
	Local $_w, $_h
	
	Local $_x1 = script_get_mouse_current ("x")
	Local $_y1 = script_get_mouse_current ("y")
	
	If  $_x1 > $_x2 Then
		$_w = $_x1 - $_x2
	Else
		$_w = $_x2 - $_x1
	EndIf
	
	If $_y1 < $_y2 Then
		$_h = $_y1 - $_y2
	Else
		$_h = $_y2 - $_y1
	EndIf
	
	Local $_dW = $_w/3
	Local $_dH = $_h/3
	
	If $_x2 > $_x1 Then
		MouseMove ($_x2 -Round ($_dW *2 -Random (-15, 15, 1)), $_y2 -15 -Round ($_dH *2 	-Random (-15, 15, 1)), 10)	; 1/3
		MouseMove ($_x2 -Round ($_dW 	-Random (-15, 15, 1)), $_y2 -15 -Round ($_dH  		-Random (-15, 15, 1)), 10)	; 2/3
		MouseMove ($_x2, $_y2, 10)																						; 3/3
	EndIf

	If $_x1 > $_x2 Then
		MouseMove ($_x2 +Round ($_dW *2 +Random (-15, 15, 1)), $_y2 -15 +Round ($_dH *2 	+Random (-15, 15, 1)), 10)	; 1/3
		MouseMove ($_x2 +Round ($_dW 	+Random (-15, 15, 1)), $_y2 -15 +Round ($_dH  		+Random (-15, 15, 1)), 10)	; 2/3
		MouseMove ($_x2, $_y2, 10)																						; 3/3
	EndIf
	
EndFunc

ваши мысли товарищи гуру? ;D

 

[DJ_Tommy]

http://autoit-script.ru/index.php/topic,465.0.html не ???

 

[running-frag]

нет, по одной простой причине - впиши тот While в функцию выше, тогда подойдёт :D

ps: задача криво полетать до точки клика, а не "мандражировать мышку +1\-1" относительно движения юзера

 

[running-frag]

дубль ДВА, что скажите?

Func MouseClickEx ($_button, $_x2, $_y2, $_click_num, $_speed)
	
	Local $_x1 = script_get_mouse_current ("x")
	Local $_y1 = script_get_mouse_current ("y")

	Local $_w = Abs ($_x1 - $_x2)
	Local $_h = Abs ($_y1 - $_y2)
	
	Local $_dW = Round ($_w/20)
	Local $_dH = Round ($_h/20)
#cs
	Select
		; ВСЁ ОТНОСИТЕЛЬНО Х1 (ТЕКУЩЕГО ПОЛОЖЕНИЯ МЫШИ)
		; справа-налево снизу-вверх
		Case $_x1 > $_x2 And $_y1 > $_y2
			MouseMove ($_x1 -($_dW) 	+Random (-10,10,1), 	$_y1 -($_dH) 	+Random (-10,10,1), 	Random (5,20,1))	; 1/3
			MouseMove ($_x1 -($_dW *2) 	+Random (-10,10,1), 	$_y1 -($_dH *2)	+Random (-10,10,1), 	Random (5,20,1))	; 2/3
		; справа-налево сверху-вниз
		Case $_x1 > $_x2 And $_y1 < $_y2
			MouseMove ($_x1 -($_dW) 	+Random (-10,10,1), 	$_y1 +($_dH) 	+Random (-10,10,1), 	Random (5,20,1))	; 1/3
			MouseMove ($_x1 -($_dW *2) 	+Random (-10,10,1), 	$_y1 +($_dH *2) +Random (-10,10,1), 	Random (5,20,1))	; 2/3
		; слево-направо снизу-вверх
		Case $_x1 < $_x2 And $_y1 > $_y2
			MouseMove ($_x1 +($_dW) 	+Random (-10,10,1), 	$_y1 -($_dH) 	+Random (-10,10,1), 	Random (5,20,1))	; 1/3
			MouseMove ($_x1 +($_dW *2) 	+Random (-10,10,1), 	$_y1 -($_dH *2) +Random (-10,10,1), 	Random (5,20,1))	; 2/3
		; слево-направо сверху-вниз
		Case $_x1 < $_x2 And $_y1 < $_y2
			MouseMove ($_x1 +($_dW) 	+Random (-10,10,1), 	$_y1 +($_dH) 	+Random (-10,10,1), 	Random (5,20,1))	; 1/3
			MouseMove ($_x1 +($_dW *2) 	+Random (-10,10,1), 	$_y1 +($_dH *2) +Random (-10,10,1), 	Random (5,20,1))	; 2/3
	EndSelect
	
#ce
	ConsoleWrite ($_dW &" - $_dW"&@CR)
	ConsoleWrite ($_dH &" - $_dH"&@CR)
	
	Select
		; ВСЁ ОТНОСИТЕЛЬНО Х1 (ТЕКУЩЕГО ПОЛОЖЕНИЯ МЫШИ)
		; справа-налево снизу-вверх
		Case $_x1 > $_x2 And $_y1 > $_y2
			For $i = 1 To 20
				MouseMove ($_x1 -($_dW *$i) 	+Random (-10,10,1), 	$_y1 -($_dH *$i) 	+Random (-10,10,1), 	2)	; 1/3
			Next
		; справа-налево сверху-вниз
		Case $_x1 > $_x2 And $_y1 < $_y2
			For $i = 1 To 20
				MouseMove ($_x1 -($_dW *$i) 	+Random (-10,10,1), 	$_y1 +($_dH *$i) 	+Random (-10,10,1), 	2)	; 1/3
			Next
		; слево-направо снизу-вверх
		Case $_x1 < $_x2 And $_y1 > $_y2
			For $i = 1 To 20
				MouseMove ($_x1 +($_dW *$i) 	+Random (-10,10,1), 	$_y1 -($_dH *$i) 	+Random (-10,10,1), 	2)	; 1/3
			Next
		; слево-направо сверху-вниз
		Case $_x1 < $_x2 And $_y1 < $_y2
			For $i = 1 To 20
				MouseMove ($_x1 +($_dW *$i) 	+Random (-10,10,1), 	$_y1 +($_dH *$i) 	+Random (-10,10,1), 	2)	; 1/3
			Next
	EndSelect
	
	
	MouseClick ($_button, $_x2 +20 +Random (0,30,1), $_y2 +Random (-1, 3, 1), 1, 10)

	
EndFunc

 

[Lexx98]

Уже была подобная тема http://autoit-script.ru/index.php/topic,465.0.html. А тебе даже уже дали ссылку.
Но всё-равно это не "не", а таки ДА. Так что живо туда и там обсуждать.

Так что советую все сообщения перенести туда, склеив в одно (ибо постинг нескольких подряд сообщений тоже не приветствуется), а эту тему убить.

 

[running-frag]

SirMaksFromEho [?]

Так что советую все сообщения перенести туда, склеив в одно (ибо постинг нескольких подряд сообщений тоже не приветствуется), а эту тему убить.

ок, удаляй топик, перепощу туда

 

[Belfigor]

тема закрыта