Automatyczne Wykrywanuie Zmian Koloru

[RobeM]

Wykrywanie zmian koloru.

 

Wybierasz miejsce myszką, wciskasz F11, przy zmianie koloru wciska kawisz ( tu "1" ).

 

Aż tak proste że nie trzeba więcej tłumaczyć.

 

HotKeySet("{F11}", "_getDefault")

$x = 0
$y = 0
$color = 0
$newColor = 0
$status = "off"

While 1
If $status = "on" Then
	If _getCurrentColor($x, $y) <> $color Then
		Send("1")    ; TU WSTAWIAMY CO MA ROBIĆ
	EndIf
EndIf
WEnd

Func _getDefault()
$coord = MouseGetPos()
$x = $coord[0]
$y = $coord[1]
$color = Hex(PixelGetColor( $coord[0], $coord[1]), 6)
$status = "on"
EndFunc

Func _getCurrentColor($xDef, $yDef)
$newColor = Hex(PixelGetColor( $xDef, $yDef), 6)
Return ($newColor)
EndFunc

[jackraymund]

Automatyczna wiadomość.

 

Ten temat został przeniesiony z forum:

"Niezbędnik Cheatera -> AutoIT"

do:

"Niezbędnik Cheatera -> AutoIT -> Gotowe skrypty i biblioteki".

[4ggr35510n]

Nie rozumiem dlaczego konwertujesz to do Hex, skoro używasz tylko do prorównywania między dwoma wartościami RGB.

[RobeM]

to był kawałek kodu z pewnego bota gdzie potrzebowałem w hex wartości ( do nomada i edytowanie pamięci ) i jeszcze skrypt sam nie konwerterował wartości jak teraz że można użyć i hex i dec , tak zostało bez zmiany tego kawałka kodu

[qps666]

#include <Misc.au3>
While 1
If _IsPressed("0D", DllOpen("user32.dll")) Then
	$xy = MouseGetPos()
	$color = PixelGetColor($xy[0], $xy[1])
	ExitLoop
EndIf
WEnd

While 1
If $color <> PixelGetColor($xy[0], $xy[1]) Then
	Akcja()
	ExitLoop
EndIf
Sleep(50)
WEnd

Func Akcja()								; Akcja po zmianie koloru piksela
SoundPlay(@WindowsDir & "\media\tada.wav", 1)	
EndFunc

 

Takie nie prostsze? :<