AutoAim v2.3 by Cranties

[Jordi-Fun]

Well, great that someone is trying to make this, really. But unfortunately i can't get it working. Its going to the top left corner when im logged in, but while ingame its not going to the 'red boxes'. Well, one time is was constantly pointing to the sky...

[hanoi22]

Me neither! Can cranties or someone else post PICTURE of it IN GAME.
Are these even possible to make. Theorically it should work, but it seems that you gotta make a real dll. injection into game if you wanna it works in a server!

Is it workin'?

[bakycar]

AA radar color is 0xff3000 And no pixel aimbot can work good or it doesn't wok at all.. u have to be at the right distance, the right aim, your target needs to be right positioned... It doesn't work good at all! let's wait 2 years till they stop updating it and then it will be simple to make one

[oren007x]

Let's give up... The aimbot makes the player spin around so quickly that you can't even move an inch.
Good work everybody but its just not enough. ):

[sumsar1812]

i will take a look on it

i can allready see how i can replace your keys with f1,f2,f3 and so on keys

[sumsar1812]

also cranties at the pixelsearch and the shade version thing changed it to something more then 5... then it would work at distance also hopefully

[cranties]

Well, great that someone is trying to make this, really.

Thanks, i'm a programmer and i'm tring to make it run...
Excuse for my bad english, i'm italian....

But unfortunately i can't get it working. Its going to the top left corner when im logged in, but while ingame its not going to the 'red boxes'. Well, one time is was constantly pointing to the sky...

Yes, this is the problem.. i'm working on it... but for now this is the result...


The problems is that in BFH the coordinate of the mouse is not relative and not absolute... i don't know other type of coord... i must try experimental....

Anyone has try to activate Low Speed (numpad 6) to see in wht direction they move?

I'm working on a version that make the coordinate of the object at invert (invert coord of up left corner with low right corner...) i think it is the right chose!

[sumsar1812]

see my new post ^^

[cranties]

i will take a look on it

i can allready see how i can replace your keys with f1,f2,f3 and so on keys

Thanks, i know how to make this change...

But i take numpad keys before try that F1-F2-F8.... not work.....

So now i can try a combination... ALT-f8???

[sumsar1812]

no its not with hotkeyset ...

also next time showing a script go to tools and run tidy doing so the script is more easy to read

a code with hotkeys

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=AutoAim v2.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiConstantsEx.au3>
#include <Misc.au3>

;VARIABLES
$dll = DllOpen("user32.dll")
Global $LX, $LY, $RX, $RY
$SquareColor = 0xFF3000
$HeadSearchActive = False
$HeadFireActive = False
$PauseActive = False
$AlertMessage = True
AutoItSetOption("MouseCoordMode", 1)
$TargetFound = False
$MouseMode = True
$Speed = 1

_Main()

Func _Main()
	Global $LX, $LY, $RX, $RY
	; GUI
	GUICreate("AutoAim v2.9 by Cranties", 370, 240)
	GUICtrlCreateLabel("Upper Left Corner X :", 10, 10)
	$Input_ULX = GUICtrlCreateInput("0", 10, 30, 100, 20)
	GUICtrlCreateLabel("Upper Left Corner Y :", 10, 60)
	$Input_ULY = GUICtrlCreateInput("0", 10, 80, 100, 20)
	GUICtrlCreateLabel("Down Right Corner X :", 250, 10)
	$Input_DRX = GUICtrlCreateInput("" & @DesktopWidth - 1, 250, 30, 100, 20)
	GUICtrlCreateLabel("Down Right Corner Y :", 250, 60)
	$Input_DRY = GUICtrlCreateInput("" & @DesktopHeight - 1, 250, 80, 100, 20)
	$Button_START = GUICtrlCreateButton("Start AutoAim", 60, 130, 100, 30)
	$Button_CLOSE = GUICtrlCreateButton("Close AutoAim", 210, 130, 100, 30)
	GUICtrlCreateLabel("Press: (NumPad 1) for Search Head (NumPad 2) for Auto Fire", 20, 170)
	GUICtrlCreateLabel(" (NumPad 3) for Pause (NumPad 8) for Exit", 32, 185)
	GUICtrlCreateLabel(" (NumPad 4) for Change Mode (NumPad 7) for Change Color", 32, 200)
	GUICtrlCreateLabel(" (NumPad 5) for MaxSpeed (NumPad 6) for LowSpeed", 32, 215)

	; Run the GUI
	GUISetState()
	While 1
		$msg = GUIGetMsg()
		If ProcessExists("BFHeroes") And $AlertMessage = True Then
			MsgBox(0, "ATTENTION", "Battlefield Heroes is running...")
			$AlertMessage = False
		EndIf
		Select
			Case $msg = $GUI_EVENT_CLOSE
				ExitLoop
			Case $msg = $Button_START
				$LX = GUICtrlRead($Input_ULX)
				$LY = GUICtrlRead($Input_ULY)
				$RX = GUICtrlRead($Input_DRX)
				$RY = GUICtrlRead($Input_DRY)
				MsgBox(0, "Starting AimBot...", "Press: (NumPad 1) for Search Head, (NumPad 2) for Auto Fire, (NumPad 3) for Pause and (NumPad 8) for Exit.")
				GUISetState(0)
				;removed old code from here
				
				$HeadSearchActive = True
				SearchHead($LX, $LY, $RX, $RY)
				ExitLoop
				
				
			Case $msg = $Button_CLOSE
				Stop()
				ExitLoop
				
				
				
				;to here
		EndSelect
	WEnd
	Exit
EndFunc   ;==>_Main

Func SearchHeadActivate()
	Global $LX, $LY, $RX, $RY
	$HeadSearchActive = Not $HeadSearchActive
	If $HeadSearchActive = False And $HeadFireActive = False Then
		$PauseActive = False
		Pause()
	EndIf
	If $HeadSearchActive = True Then
		SearchHead($LX, $LY, $RX, $RY)
	EndIf
EndFunc   ;==>SearchHeadActivate

Func SearchFireActivate()
	Global $LX, $LY, $RX, $RY
	$HeadFireActive = Not $HeadFireActive
	If $HeadSearchActive = False And $HeadFireActive = False Then
		$PauseActive = False
		Pause()
	EndIf
	If $HeadFireActive = True Then
		FireHead($LX, $LY, $RX, $RY)
	EndIf
EndFunc   ;==>SearchFireActivate

Func FireHead($LX, $LY, $RX, $RY)
	Global $Speed
	While $HeadFireActive = True
		$HeadSearchActive = False
		$PauseActive = False
		;hotkeys from here
		If _IsPressed("70", $dll) Then
			SearchHeadActivate()
		EndIf
		If _IsPressed("71", $dll) Then
			SearchFireActivate()
		EndIf
		If _IsPressed("72", $dll) Then
			Pause()
		EndIf
		If _IsPressed("73", $dll) Then
			ExchangeCoord()
		EndIf
		If _IsPressed("74", $dll) Then
			SetMaxSpeed()
		EndIf
		If _IsPressed("75", $dll) Then
			SetLowSpeed()
		EndIf
		If _IsPressed("76", $dll) Then
			ChangeColor()
		EndIf
		If _IsPressed("77", $dll) Then
			Stop()
		EndIf '
		;to here
		If $TargetFound = False Then
			$head = PixelSearch($LX, $LY, $RX, $RY, $SquareColor, 1, 1)
			If Not @error Then
				$head2 = PixelSearch($head[0], $head[1], $head[0] + 1, $head[1], $SquareColor, 1, 1)
				If Not @error Then
					$head3 = PixelSearch($head2[0], $head2[1], $head2[0] + 1, $head2[1], $SquareColor, 1, 1)
					If Not @error Then
						$head4 = PixelSearch($head[0], $head[1], $head[0], $head[1] + 1, $SquareColor, 1, 1)
						If Not @error Then
							$head5 = PixelSearch($head4[0], $head4[1], $head4[0], $head4[1] + 1, $SquareColor, 1, 1)
							If Not @error Then
								MouseClick("left", $head[0], $head[1], $Speed)
								$TargetFound = True
							Else
								$TargetFound = False
							EndIf
						Else
							$TargetFound = False
						EndIf
					Else
						$TargetFound = False
					EndIf
				Else
					$TargetFound = False
				EndIf
			Else
				$TargetFound = False
			EndIf
		Else
			$Pos = MouseGetPos()
			$Clr = PixelGetColor($Pos[0], $Pos[1])
			If $Clr = $SquareColor Then
				$TargetFound = True
			Else
				$TargetFound = False
			EndIf
		EndIf
	WEnd
EndFunc   ;==>FireHead

Func SearchHead($LX, $LY, $RX, $RY)
	Global $Speed
	;new things added from here (hotkeys)
	;first of all i added #include <Misc.au3> in the top of the script
	;and added $dll = DllOpen("user32.dll") in the top also
	;also i added dllclose at the buttom
	While $HeadSearchActive = True
		$HeadFireActive = False
		$PauseActive = False
		;hotkeys from here
		If _IsPressed("70", $dll) Then
			SearchHeadActivate()
		EndIf
		If _IsPressed("71", $dll) Then
			SearchFireActivate()
		EndIf
		If _IsPressed("72", $dll) Then
			Pause()
		EndIf
		If _IsPressed("73", $dll) Then
			ExchangeCoord()
		EndIf
		If _IsPressed("74", $dll) Then
			SetMaxSpeed()
		EndIf
		If _IsPressed("75", $dll) Then
			SetLowSpeed()
		EndIf
		If _IsPressed("76", $dll) Then
			ChangeColor()
		EndIf
		If _IsPressed("77", $dll) Then
			Stop()
		EndIf '
		;to here
		If $TargetFound = False Then
			$head = PixelSearch($LX, $LY, $RX, $RY, $SquareColor, 1, 1)
			If Not @error Then
				$head2 = PixelSearch($head[0], $head[1], $head[0] + 1, $head[1], $SquareColor, 1, 1)
				If Not @error Then
					$head3 = PixelSearch($head2[0], $head2[1], $head2[0] + 1, $head2[1], $SquareColor, 1, 1)
					If Not @error Then
						$head4 = PixelSearch($head[0], $head[1], $head[0], $head[1] + 1, $SquareColor, 1, 1)
						If Not @error Then
							$head5 = PixelSearch($head4[0], $head4[1], $head4[0], $head4[1] + 1, $SquareColor, 1, 1)
							If Not @error Then
								MouseMove($head[0], $head[1], $Speed)
								$TargetFound = True
							Else
								$TargetFound = False
							EndIf
						Else
							$TargetFound = False
						EndIf
					Else
						$TargetFound = False
					EndIf
				Else
					$TargetFound = False
				EndIf
			Else
				$TargetFound = False
			EndIf
		Else
			$Pos = MouseGetPos()
			$Clr = PixelGetColor($Pos[0], $Pos[1])
			If $Clr = $SquareColor Then
				$TargetFound = True
			Else
				$TargetFound = False
			EndIf
		EndIf
	WEnd
EndFunc   ;==>SearchHead

Func Stop()
	Exit
EndFunc   ;==>Stop

Func Pause()
	Global $LX, $LY, $RX, $RY
	$PauseActive = Not $PauseActive
	While $PauseActive = True
		Sleep(5)
	WEnd
	If $PauseActive = False And $HeadSearchActive = True Then
		SearchHead($LX, $LY, $RX, $RY)
	EndIf
	If $PauseActive = False And $HeadFireActive = True Then
		FireHead($LX, $LY, $RX, $RY)
	EndIf
	If $PauseActive = False And $HeadFireActive = False And $HeadSearchActive = False Then
		$PauseActive = False
		Pause()
	EndIf
EndFunc   ;==>Pause

Func ExchangeCoord()
	$MouseMode = Not $MouseMode
	If $MouseMode = True Then
		AutoItSetOption("MouseCoordMode", 1)
	Else
		AutoItSetOption("MouseCoordMode", 0)
	EndIf
EndFunc   ;==>ExchangeCoord

Func SetMaxSpeed()
	Global $Speed
	$Speed = 1
EndFunc   ;==>SetMaxSpeed

Func SetLowSpeed()
	Global $Speed
	$Speed = 100
EndFunc   ;==>SetLowSpeed

Func ChangeColor()
	Global $SquareColor
	$text = InputBox("Change Color", "Please type in the color in Exadecimal and click OK")
	If @error = 1 Then
		MsgBox(4096, "Attention", "Color is 0x" & Hex($SquareColor, 6))
	Else
		$SquareColor = "0x" & $text
		MsgBox(4096, "Attention", "Color is 0x" & Hex($SquareColor, 6))
	EndIf
EndFunc   ;==>ChangeColor

DllClose($dll)

also cranties at the pixelsearch and the shade-variation change it to something more then 5... maybe 10 to 100 then it would work at distance also hopefully

edit:

btw see the comments

[cranties]

OK

REVOLVING THIS HACK !!!
DLL INJECTION START !!!

I change all keys used, ok is NumPad, but change number...
Try (6) for InvertCoordinate and (4) for change Coord Mode...
(5) set the color to search (now is 0xff3000)...
(7) make the mouse velocity faster
(8) make the mouse velocity slowest....

This is my code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=AutoAim v3.0.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiConstantsEx.au3>
#include <Misc.au3>

;VARIABLES
$dll = DllOpen("user32.dll")
Global $LX, $LY, $RX, $RY
$SquareColor = 0xff3000
$HeadSearchActive = False
$HeadFireActive = False
$PauseActive = False
$AlertMessage = True
AutoItSetOption("MouseCoordMode", 1)
$TargetFound = False
$MouseMode = True
$Speed = 1
$InvertCoords = False

_Main()

Func _Main()
	Global $LX, $LY, $RX, $RY
	; GUI5
	GUICreate("AutoAim v3.0 by Cranties", 370, 250)
	GUICtrlCreateLabel("Upper Left Corner X :", 10, 10)
	$Input_ULX = GUICtrlCreateInput("0", 10, 30, 100, 20)
	GUICtrlCreateLabel("Upper Left Corner Y :", 10, 60)
	$Input_ULY = GUICtrlCreateInput("0", 10, 80, 100, 20)
	GUICtrlCreateLabel("Down Right Corner X :", 250, 10)
	$Input_DRX = GUICtrlCreateInput("" & @DesktopWidth - 1, 250, 30, 100, 20)
	GUICtrlCreateLabel("Down Right Corner Y :", 250, 60)
	$Input_DRY = GUICtrlCreateInput("" & @DesktopHeight - 1, 250, 80, 100, 20)
	$Button_START = GUICtrlCreateButton("Start AutoAim", 60, 130, 100, 30)
	$Button_CLOSE = GUICtrlCreateButton("Close AutoAim", 210, 130, 100, 30)
	GUICtrlCreateLabel("Press: (NumPad 1) for Search Head    (NumPad 2) for Auto Fire", 20, 170)
	GUICtrlCreateLabel("       (NumPad 3) for Pause               (NumPad 9) for Exit", 32, 185)
	GUICtrlCreateLabel("       (NumPad 4) for Change Mode  (NumPad 5) for Change Color", 32, 200)
	GUICtrlCreateLabel("       (NumPad 7) for Fast Mouse      (NumPad 8) for Slow Mouse", 32, 215)
	GUICtrlCreateLabel("       (NumPad 6) for Invert Coortinate System               ", 32, 230)

	; Run the GUI
	GUISetState()
	While 1
		$msg = GUIGetMsg()
		If ProcessExists("BFHeroes.exe") And $AlertMessage = True Then
			MsgBox(0, "ATTENTION", "Battlefield Heroes is running...")
			$AlertMessage = False
		EndIf
		Select
			Case $msg = $GUI_EVENT_CLOSE
				ExitLoop
			Case $msg = $Button_START
				$LX = GUICtrlRead($Input_ULX)
				$LY = GUICtrlRead($Input_ULY)
				$RX = GUICtrlRead($Input_DRX)
				$RY = GUICtrlRead($Input_DRY)
				MsgBox(0, "Starting AimBot...", "Press: (NumPad 1) for Search Head, (NumPad 2) for Auto Fire, (NumPad 3) for Pause and (NumPad 9) for Exit.")
				GUISetState(0)
				;hotkeyset("{NUMPAD1}","SearchHeadActivate")
				;hotkeyset("{NUMPAD2}","SearchFireActivate")
				;hotkeyset("{NUMPAD3}","Pause")
				;hotkeyset("{NUMPAD4}","ExchangeCoord")
				;hotkeyset("{NUMPAD7}","SetMaxSpeed")
				;hotkeyset("{NUMPAD8}","SetLowSpeed")
				;hotkeyset("{NUMPAD5}","ChangeColor")
				;hotkeyset("{NUMPAD6}","ChangeCoord")
				;hotkeyset("{NUMPAD9}","Stop")
				$HeadSearchActive = True
				SearchHead($LX, $LY, $RX, $RY)
				ExitLoop
			Case $msg = $Button_CLOSE
				Stop()
				ExitLoop
		EndSelect
	WEnd
	Exit
EndFunc   ;==>_Main

Func UseHotKey()
	If _IsPressed("61", $dll) Then
		SearchHeadActivate()
	EndIf
	If _IsPressed("62", $dll) Then
		SearchFireActivate()
	EndIf
	If _IsPressed("63", $dll) Then
		Pause()
	EndIf
	If _IsPressed("64", $dll) Then
		ExchangeCoord()
	EndIf
	If _IsPressed("67", $dll) Then
		SetMaxSpeed()
	EndIf
	If _IsPressed("68", $dll) Then
		SetLowSpeed()
	EndIf
	If _IsPressed("65", $dll) Then
		ChangeColor()
	EndIf
	If _IsPressed("66", $dll) Then
		ChangeCoord()
	EndIf
	If _IsPressed("69", $dll) Then
		Stop()
	EndIf
EndFunc   ;==>UseHotKey

Func SearchHeadActivate()
	Global $LX, $LY, $RX, $RY
	$HeadSearchActive = Not $HeadSearchActive
	If $HeadSearchActive = False And $HeadFireActive = False Then
		$PauseActive = False
		Pause()
	EndIf
	If $HeadSearchActive = True Then
		SearchHead($LX, $LY, $RX, $RY)
	EndIf
EndFunc   ;==>SearchHeadActivate

Func SearchFireActivate()
	Global $LX, $LY, $RX, $RY
	$HeadFireActive = Not $HeadFireActive
	If $HeadSearchActive = False And $HeadFireActive = False Then
		$PauseActive = False
		Pause()
	EndIf
	If $HeadFireActive = True Then
		FireHead($LX, $LY, $RX, $RY)
	EndIf
EndFunc   ;==>SearchFireActivate

Func FireHead($LX, $LY, $RX, $RY)
	Global $Speed, $InvertCoords
	While $HeadFireActive = True
		$HeadSearchActive = False
		$PauseActive = False
		UseHotKey()
		If $TargetFound = False Then
			$head = PixelSearch($LX, $LY, $RX, $RY, $SquareColor, 2, 1)
			If Not @error Then
				$head2 = PixelSearch($head[0], $head[1], $head[0] + 1, $head[1], $SquareColor, 2, 1)
				If Not @error Then
					$head3 = PixelSearch($head2[0], $head2[1], $head2[0] + 1, $head2[1], $SquareColor, 2, 1)
					If Not @error Then
						$head4 = PixelSearch($head[0], $head[1], $head[0], $head[1] + 1, $SquareColor, 2, 1)
						If Not @error Then
							$head5 = PixelSearch($head4[0], $head4[1], $head4[0], $head4[1] + 1, $SquareColor, 2, 1)
							If Not @error Then
								If $InvertCoords = True Then
									MouseClick("left", $RX - $head[0], $RY - $head[1], $Speed)
								Else
									MouseClick("left", $head[0], $head[1], $Speed)
								EndIf
								$TargetFound = True
							Else
								$TargetFound = False
							EndIf
						Else
							$TargetFound = False
						EndIf
					Else
						$TargetFound = False
					EndIf
				Else
					$TargetFound = False
				EndIf
			Else
				$TargetFound = False
			EndIf
		Else
			$Pos = MouseGetPos()
			$Clr = PixelGetColor($Pos[0], $Pos[1])
			If $Clr = $SquareColor Then
				$TargetFound = True
			Else
				$TargetFound = False
			EndIf
		EndIf
	WEnd
EndFunc   ;==>FireHead

Func SearchHead($LX, $LY, $RX, $RY)
	Global $Speed
	While $HeadSearchActive = True
		$HeadFireActive = False
		$PauseActive = False
		UseHotKey()
		If $TargetFound = False Then
			$head = PixelSearch($LX, $LY, $RX, $RY, $SquareColor, 2, 1)
			If Not @error Then
				$head2 = PixelSearch($head[0], $head[1], $head[0] + 1, $head[1], $SquareColor, 2, 1)
				If Not @error Then
					$head3 = PixelSearch($head2[0], $head2[1], $head2[0] + 1, $head2[1], $SquareColor, 2, 1)
					If Not @error Then
						$head4 = PixelSearch($head[0], $head[1], $head[0], $head[1] + 1, $SquareColor, 2, 1)
						If Not @error Then
							$head5 = PixelSearch($head4[0], $head4[1], $head4[0], $head4[1] + 1, $SquareColor, 2, 1)
							If Not @error Then
								If $InvertCoords = True Then
									MouseMove($RX - $head[0], $RY - $head[1], $Speed)
								Else
									MouseMove($head[0], $head[1], $Speed)
								EndIf
								$TargetFound = True
							Else
								$TargetFound = False
							EndIf
						Else
							$TargetFound = False
						EndIf
					Else
						$TargetFound = False
					EndIf
				Else
					$TargetFound = False
				EndIf
			Else
				$TargetFound = False
			EndIf
		Else
			$Pos = MouseGetPos()
			$Clr = PixelGetColor($Pos[0], $Pos[1])
			If $Clr = $SquareColor Then
				$TargetFound = True
			Else
				$TargetFound = False
			EndIf
		EndIf
	WEnd
EndFunc   ;==>SearchHead

Func Stop()
	Exit
EndFunc   ;==>Stop

Func Pause()
	Global $LX, $LY, $RX, $RY
	$PauseActive = Not $PauseActive
	While $PauseActive = True
		Sleep(5)
	WEnd
	If $PauseActive = False And $HeadSearchActive = True Then
		SearchHead($LX, $LY, $RX, $RY)
	EndIf
	If $PauseActive = False And $HeadFireActive = True Then
		FireHead($LX, $LY, $RX, $RY)
	EndIf
	If $PauseActive = False And $HeadFireActive = False And $HeadSearchActive = False Then
		$PauseActive = False
		Pause()
	EndIf
EndFunc   ;==>Pause

Func ExchangeCoord()
	$MouseMode = Not $MouseMode
	If $MouseMode = True Then
		AutoItSetOption("MouseCoordMode", 1)
	Else
		AutoItSetOption("MouseCoordMode", 0)
	EndIf
EndFunc   ;==>ExchangeCoord

Func SetMaxSpeed()
	Global $Speed
	$Speed = 1
EndFunc   ;==>SetMaxSpeed

Func SetLowSpeed()
	Global $Speed
	$Speed = 100
EndFunc   ;==>SetLowSpeed

Func ChangeColor()
	Global $SquareColor
	$text = InputBox("Change Color", "Please type in the color in Exadecimal and click OK")
	If @error = 1 Then
		MsgBox(4096, "Attention", "Color is 0x" & Hex($SquareColor, 6))
	Else
		$SquareColor = "0x" & $text
		MsgBox(4096, "Attention", "Color is 0x" & Hex($SquareColor, 6))
	EndIf
EndFunc   ;==>ChangeColor

Func ChangeCoord()
	Global $InvertCoords
	$InvertCoords = Not $InvertCoords
EndFunc   ;==>ChangeCoord

DllClose($dll)

[Spontaner]

1st after joining the game.. spinning around
2nd after pressing hotkeys.. nothing

[DontFearTheReaper]

Hey cranties, this works good in like flashgames but give bfh up! It doesn't work at all.

Btw added you a rep point

It's wierd, bfh is an easy game with punkbuster. It's easy to make hacks in..
The reason why there is so few hacks is because no-one even try. Well i meen in c++. So for coders out there, make a cheat!
Oh yh going to learn c++

[sumsar1812]

lol it works in worlds biggest free game ?

[cranties]

Ok, thx at all for you support....

I see and study video of helios....

I undestend some thing....

I'm in a wrong street.... So now i undestand how to continue our project!!!

Tomorrow i start a new project... "AutoAim 4.0"

It would be very very different, an other approach to the problem...

Bye and good night to all...