Hallo liebe Scripter,
ich muss derzeit ein Bild bearbeiten:
Dieses Bild soll mal komplett Schwarz/Weiss werden. Ich habe schon angefangen, es per Hand zu bearbeiten, aber ich will mir jetz mal n Bot schreiben, der das macht.
Ich bin eigentlich auch schon fertig, ich muss nurnoch eine möglichkeit Finden, mit der ich rausfinden kann, ob der Pixel mit den koordinaten x,y 'Hell' oder 'Dunkel' ist, damit ich entscheiden kann, ob ich den Pixel schwarz [mouseclick(mouse1)] oder weiss mache [mouseclick(mouse2)] (ic hhabe paint offen wenn ich das autoit starte)
kann mir bitte jmd sagen, wie ich rausfinde, ob ein pixel 'hell' oder 'dunkel' ist???
hier das hab ich bis jetzt:
Code
#include <Array.au3>
#Include <Misc.au3>
;Beim beenden...
Func _OnExit()
Exit
EndFunc
OnAutoItExitRegister("_OnExit")
HotKeySet("{F5}", "_OnExit")
Global $oben_links[2]
Global $unten_rechts[2]
Global $farben_ignorieren[1]
While Not _IsPressed("04")
Sleep(500)
ToolTip("linke obere ecke mit MOUSE3 angeben")
WEnd
$oben_links[0] = MouseGetPos(0)
$oben_links[1] = MouseGetPos(1)
While Not _IsPressed("01")
Sleep(500)
ToolTip("rechte untere ecke mit MOUSE1 angeben")
WEnd
$unten_rechts[0] = MouseGetPos(0)
$unten_rechts[1] = MouseGetPos(1)
While Not _IsPressed("1B")
ToolTip("Farben angeben, die nicht beachtet werden sollen" & @CRLF & "Mouse3 = hinzufügen" & @CRLF & "ESC = fertig")
If _IsPressed("04") Then
_ArrayAdd($farben_ignorieren, PixelGetColor(MouseGetPos(0),MouseGetPos(1)))
MsgBox(0,"","Farbe wurde hinzugefügt")
EndIf
Sleep(500)
WEnd
tooltip("")
For $temp_y = $oben_links[1] To $unten_rechts[1]
For $temp_x = $oben_links[0] To $unten_rechts[0]
TrayTip("status","höhe: " & $temp_y & " / " & $unten_rechts[1] &@CRLF & "breite: " & $temp_x & " / " & $unten_rechts[0] &@CRLF & "Beenden: F5", 1111111)
If _ArraySearch($farben_ignorieren,PixelGetColor($temp_x, $temp_y) ) < 1 Then MouseClick("LEFT", $temp_x, $temp_y, 1, 1)
Next
Next
Alles anzeigen