MouseClickDrag

[swiiezzy10]

Witam 

Mam prośbę czy ktoś mógłby mi napisać prostego skrypta (ale nie dla mnie) w autiit

 

Start Hotkeyem f1 

Bot klika i cały czas trzyma lewy przycisk myszy(tam gdzie aktualnie znajduje sie myszka) przeciąga na koordynaty xyz puszcza i wraca do pozycji wyjściowej (najszybciej jak sie da)

 

Z gory dziekuje wysztkiim za pomoc

[Azar]

Widzę, że masz jakąś wiedzę, czemu nie spróbujesz napisać go sam?

[swiiezzy10]

Próbowałem ale potrafie to zrobic na sztywnych kordynatach a potrzebuje zeby myszka wracala do punktu w ktorym uruchamiam macro

[Azar]

W takim razie zapisz sobie x i y myszy przy starcie do zmiennych. Zobacz sobie MouseGetPos.

[wasta]

Proponuję coś takiego:

HotKeySet("{ESC}", "end")   ;definicja klawisza kończącego skrypt
_HotKeyPause("{F1}", True)  ;definicja klawisza pauzujące / wznawiającego skrypt

Dim $iX2=700, $iY2=400  ;tu wstawiasz swoje współrzędne końcowe

;odczyt współrzędnych początkowych
$iX1 = MouseGetPos(0)
$iY1 = MouseGetPos(1)

While True
	MouseClickDrag("left", $iX1, $iY1, $iX2, $iY2, 100) ;szybkość działania, 1 - najszybciej, 100 - najwolniej

WEnd


;-----------------------------------------------------------------
Func end()
	Exit
EndFunc

Func _HotKeyPause($sKey, $fFlag=False)
	If $fFlag Then
		HotKeySet($sKey, "__HotKeyPause")
	Else
		HotKeySet($sKey)
	EndIf
EndFunc

Func __HotKeyPause()
	Static $fWSK = False
	$fWSK = Not $fWSK
	If $fWSK Then
		While $fWSK
			Sleep(50)
		WEnd
	EndIf
EndFunc