Pixelsearch Aimbot

• GUI (An/Aus Schalter)
• Automatisches Farben auswählen
• Automatische Screen Auswahl

;Variablen
Local $ObenX, $ObenY, $UntenX, $UntenY,$FC,$SC

;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('!4','_SC') ;Key für Abfrage zweite Farbe
HotKeySet('!s','_Start') ;Key für Start
HotKeySet('!e','_Ende') ;Key für Ende

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 _SC()
	$Pos = MouseGetPos()
	$SC = PixelGetColor($Pos[0],$Pos[1])
EndFunc

Func _Start()
	While 1
		$pixCord = PixelSearch($ObenX,$ObenY,$UntenX,$UntenY,$FC,1,2)
		if not @error then MouseClick('left',$pixCord[0], $pixCord[1],1,1)
		   
		$pixCord = PixelSearch($ObenX,$ObenY,$UntenX,$UntenY,$SC,1,2)
		if not @error then MouseClick('left',$pixCord[0], $pixCord[1],1,1)
	WEnd
EndFunc

Func _Ende()
	Exit 0
EndFunc
#endregion

Quote:

;Variablen Local $ObenX, $ObenY, $UntenX, $UntenY,$FC,$SC ;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('!4','_SC') ;Key für Abfrage zweite Farbe HotKeySet('!s','_Start') ;Key für Start HotKeySet('!e','_Ende') ;Key für Ende While 1 sleep(1000) WEnd InputBox("Fenster", "gebe hier den namen deines Fensters an", $input1) IniWrite("bot.ini", "Fenster", "Name", $input1) $read1=IniRead("bot.ini", "Fenster", "Name", "") 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 _SC() $Pos = MouseGetPos() $SC = PixelGetColor($Pos[0],$Pos[1]) EndFunc Func _Start() While 1 WinActivate($read1) $pixCord = PixelSearch($ObenX,$ObenY,$UntenX,$UntenY,$FC,1,2) if not @error then MouseClick('left',$pixCord[0], $pixCord[1],1,1) $pixCord = PixelSearch($ObenX,$ObenY,$UntenX,$UntenY,$SC,1,2) if not @error then MouseClick('left',$pixCord[0], $pixCord[1],1,1) WEnd EndFunc Func _Ende() Exit 0 EndFunc

Quote:

Originally Posted by bladerofdarknes wie soll ich ein nicht vorhandenes gui an/ausschalten :] was für farbe willste den?