Zitat:
;Variablen
Local $ObenX, $ObenY, $UntenX, $UntenY,$FC,$var
;Funktions-Tasten
HotKeySet('!1','_OL') ;Key für Abfrage Oben-Links
HotKeySet('!2','_UR') ;Key für Abfrage Unten-Rechts
HotKeySet('!3','_FC') ;Key für Abfrage erste Farbe
HotKeySet('!s','_Start') ;Key für Start
HotKeySet('!a','_Stop') ;Key für Start
HotKeySet('!e','_Ende') ;Key für Ende
GuiCreate("Program",218,68,332,219)
$label4=GuiCtrlCreateLabel("Alt+1 Obenrechts ",9,10,141,15)
$label4=GuiCtrlCreateLabel("Alt+2 Untenlinks ",115,10,141,15)
$label1=GuiCtrlCreateLabel("Alt+S zum Starten",9,30,141,15)
$label2=GuiCtrlCreateLabel("Alt+E zum Schließen",115,30,105,15)
$label3=GuiCtrlCreateLabel("By mrsmith",166,55,55,15)
GuiSetState()
While 1
WEnd
#region Funktionen
Func _OL()
$Pos = MouseGetPos()
$ObenX = $Pos[0]
$ObenY = $Pos[1]
EndFunc
Func _UR()
$Pos = MouseGetPos()
$UntenX = $Pos[0]
$UntenY = $Pos[1]
EndFunc
Func _FC()
$Pos = MouseGetPos()
$FC = PixelGetColor($Pos[0],$Pos[1])
EndFunc
Func _Start()
$var = 1
While $var = 1
$pixCord = PixelSearch($ObenX,$ObenY,$UntenX,$UntenY,$FC,1,2)
if not @error then MouseClick('left',$pixCord[0], $pixCord[1],1,1)
WEnd
EndFunc
Func _Stop()
$var = 0
EndFunc
Func _Ende()
Exit 0
EndFunc
#endregion
Das ist jetzt mit einer Farbe Und einen Programm layout
