Page 2 of 6 FirstFirst 1234 ... LastLast
Results 16 to 30 of 78
  1. #16
    cranties's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    55
    Reputation
    13
    Thanks
    83
    My Mood
    Amused

    Exclamation AutoAim v5.6 by Cranties - SOURCE CODE

    Is there!!! I let you see my source code, i make all change to try it and other change to let more usable... try it whit/whitout dll inject.... For big resolution try to make more X & Y max search...

    Let me Know!!!

    Code:
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile=AutoAim v5.6.exe
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    
    ;VARIABLES
    $dll = DllOpen("user32.dll")
    $SquareColor = 0xff3000
    $HeadSearchActive = False
    $PauseActive = False
    $AlertMessage = True
    AutoItSetOption("MouseCoordMode", 1)
    $MouseMode = True
    $InvertCoords = False
    $Speed = 20
    $XSquare = 100
    $YSquare = 100
    $Tollerance = 10
    $XScreen = @DesktopWidth
    $YScreen = @DesktopHeight
    $DllInject = True
    $SearchEntireScreen = False
    
    _Main()
    
    Func _Main()
    	$AutoAim = GUICreate("AutoAim v5.6 by Cranties", 402, 447, 192, 124)
    	$Tab = GUICtrlCreateTab(8, 16, 385, 400)
    	GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    	$Settings = GUICtrlCreateTabItem("Settings")
    	$MouseSpeed = GUICtrlCreateSlider(120, 72, 200, 25)						; mousespeed
    	$Label1 = GUICtrlCreateLabel("Mouse Speed", 24, 72, 89, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$XInvertCoords = GUICtrlCreateCheckbox("Invert Coordinate Mode", 24, 120, 175, 17)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$XMouseMode = GUICtrlCreateCheckbox("Relative Coordinate Mode", 24, 144, 175, 17)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$RColor = GUICtrlCreateSlider(120, 192, 257, 25)
    	GUICtrlSetLimit(-1, 255, 0)
    	$Label2 = GUICtrlCreateLabel("Red Color", 22, 192, 65, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$Label3 = GUICtrlCreateLabel("Green Color", 22, 216, 76, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$GColor = GUICtrlCreateSlider(120, 216, 257, 25)
    	GUICtrlSetLimit(-1, 255, 0)
    	$Label4 = GUICtrlCreateLabel("Blue Color", 22, 240, 66, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$BColor = GUICtrlCreateSlider(120, 240, 257, 25)
    	GUICtrlSetLimit(-1, 255, 0)
    	$TextCtrl = GUICtrlCreateInput("TextCtrl", 128, 272, 241, 24)
    	GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    	$Label5 = GUICtrlCreateLabel("X Max Search", 22, 328, 86, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$XMax = GUICtrlCreateSlider(118, 328, 200, 25) 							; xmax
    	GUICtrlSetLimit(-1, 300, 0)
    	$Label6 = GUICtrlCreateLabel("Y Max Search", 22, 355, 87, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$YMax = GUICtrlCreateSlider(118, 355, 200, 25) 							; ymax
    	GUICtrlSetLimit(-1, 300, 0)
    	$Label7 = GUICtrlCreateLabel("Color Toller.", 22, 300, 87, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$XTollerance = GUICtrlCreateSlider(118, 300, 200, 25) 					; color
    	GUICtrlSetLimit(-1, 100, 0)
    	$XScreenLbl = GUICtrlCreateInput($XScreen, 128, 384, 100, 25)
    	$YScreenLbl = GUICtrlCreateInput($YScreen, 250, 384, 100, 25)
    	$Label7 = GUICtrlCreateLabel("Screen Resol.", 22, 387, 89, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$Label8 = GUICtrlCreateLabel("X", 235, 387, 15, 20)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$UseDLL = GUICtrlCreateCheckbox("Use DLL for Inject", 220, 120, 169, 17)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$AllScreen = GUICtrlCreateCheckbox("Search All Screen", 220, 144, 169, 17)
    	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    	$colorlbl = GUICtrlCreateInput($Tollerance, 320, 300, 25, 20) 			; colorlbl
    	$xmaxlbl = GUICtrlCreateInput($XSquare, 320, 328, 25, 20)  				; xmaxlbl
    	$ymaxlbl = GUICtrlCreateInput($YSquare, 320, 355, 25, 20)  				; ymaxlbl
    	$mouselbl = GUICtrlCreateInput($Speed, 320, 72, 25, 20)  				; mouselbl
    	$TabSheet1 = GUICtrlCreateTabItem("Help")
    	$Help = GUICtrlCreateEdit("", 16, 48, 369, 337)
    	GUICtrlSetData(-1, "Help")
    	GUICtrlSetState(-1, $GUI_DISABLE)
    	GUICtrlCreateTabItem("")
    	$BtnStart = GUICtrlCreateButton("Start AutoAim", 320, 416, 75, 25, $WS_GROUP)
    
    	GUISetState(@SW_SHOW)
    
    	;INITIALIZE
    	$Test = GUICtrlSetData(9, "255")
    	$Test = GUICtrlSetData(12, "48")
    	$Test = GUICtrlSetData(14, "00")
    	$Test = GUICtrlSetData(17, $XSquare)
    	$Test = GUICtrlSetData(19, $YSquare)
    	$Test = GUICtrlSetData(21, $Tollerance)
    	$R = Hex(GUICtrlRead($RColor), 2)
    	$G = Hex(GUICtrlRead($GColor), 2)
    	$B = Hex(GUICtrlRead($BColor), 2)
    	$SquareColor = "0x" & $R & $G & $B
    	$TColor = "0x" & $R & "0000"
    	$MeColor = GUICtrlSetBkColor(9, $TColor)
    	$TColor = "0x00" & $G & "00"
    	$MeColor = GUICtrlSetBkColor(12, $TColor)
    	$TColor = "0x0000" & $B
    	$MeColor = GUICtrlSetBkColor(14, $TColor)
    	$AqColor = GUICtrlSetBkColor(15, $SquareColor)
    	$TextCtrl = GUICtrlSetData(15, $SquareColor)
    	$Test = GUICtrlSetData(5, $Speed)
    	$Test = GUICtrlSetState($XInvertCoords, $InvertCoords)
    	$Test = GUICtrlSetState($XMouseMode, $MouseMode)
    	$Test = GUICtrlSetState($UseDLL, $DllInject)
    	$Test = GUICtrlSetState($AllScreen, $SearchEntireScreen)
    	$Test = GUICtrlSetData($Help, "Welcome to AutoAim by Cranties. Please use with ****************Radar.")
    
    	While 1
    		$nMsg = GUIGetMsg()
    		If ProcessExists("BFHeroes.exe") And $AlertMessage = True Then
    			MsgBox(0, "ATTENTION", "Battlefield Heroes is running... Activate AutoAim !")
    			$AlertMessage = False
    		EndIf
    		Switch $nMsg
    			Case $GUI_EVENT_CLOSE
    				Exit
    			Case $RColor
    				$R = Hex(GUICtrlRead($RColor), 2)
    				$G = Hex(GUICtrlRead($GColor), 2)
    				$B = Hex(GUICtrlRead($BColor), 2)
    				$SquareColor = "0x" & $R & $G & $B
    				$TColor = "0x" & $R & "0000"
    				$MeColor = GUICtrlSetBkColor(9, $TColor)
    				$AqColor = GUICtrlSetBkColor(15, $SquareColor)
    				$TextCtrl = GUICtrlSetData(15, $SquareColor)
    			Case $GColor
    				$R = Hex(GUICtrlRead($RColor), 2)
    				$G = Hex(GUICtrlRead($GColor), 2)
    				$B = Hex(GUICtrlRead($BColor), 2)
    				$SquareColor = "0x" & $R & $G & $B
    				$TColor = "0x00" & $G & "00"
    				$MeColor = GUICtrlSetBkColor(12, $TColor)
    				$AqColor = GUICtrlSetBkColor(15, $SquareColor)
    				$TextCtrl = GUICtrlSetData(15, $SquareColor)
    			Case $BColor
    				$R = Hex(GUICtrlRead($RColor), 2)
    				$G = Hex(GUICtrlRead($GColor), 2)
    				$B = Hex(GUICtrlRead($BColor), 2)
    				$SquareColor = "0x" & $R & $G & $B
    				$TColor = "0x0000" & $B
    				$MeColor = GUICtrlSetBkColor(14, $TColor)
    				$AqColor = GUICtrlSetBkColor(15, $SquareColor)
    				$TextCtrl = GUICtrlSetData(15, $SquareColor)
    			Case $XTollerance
    				$Tollerance = GUICtrlSetData($colorlbl, GUICtrlRead($XTollerance, 2))
    			Case $XMax
    				$XSquare = GUICtrlSetData($xmaxlbl, GUICtrlRead($XMax, 2))
    			Case $YMax
    				$YSquare = GUICtrlSetData($ymaxlbl, GUICtrlRead($YMax, 2))
    			Case $MouseSpeed
    				$Speed = GUICtrlSetData($mouselbl, GUICtrlRead($MouseSpeed, 2))
    			Case $UseDLL
    				$DllInject = Not $DllInject
    			Case $AllScreen
    				$SearchEntireScreen = Not $SearchEntireScreen
    			Case $XMouseMode
    				$MouseMode = Not $MouseMode
    				$Val = GUICtrlRead($XMouseMode)
    				If $Val = $GUI_CHECKED Then AutoItSetOption("MouseCoordMode", 0)
    				If $Val = $GUI_UNCHECKED Then AutoItSetOption("MouseCoordMode", 1)
    			Case $BtnStart
    				GUISetState(0)
    				$HeadSearchActive = True
    				$Speed = GUICtrlRead($MouseSpeed)
    				$XSquare = GUICtrlRead($XMax)
    				$YSquare = GUICtrlRead($YMax)
    				$Tollerance = GUICtrlRead($XTollerance)
    				$InvertCoords = GUICtrlRead($XInvertCoords)
    				SearchHead()
    				ExitLoop
    		EndSwitch
    	WEnd
    EndFunc   ;==>_Main
    
    Func SearchHead()
    	While $HeadSearchActive = True
    		If _IsPressed("78", $dll) Then
    			Stop()
    		EndIf
    		If _IsPressed("77", $dll) Then
    			Pause()
    		EndIf
    		$PosX = $XScreen / 2
    		$PosY = $YScreen / 2
    		If $SearchEntireScreen = True Then
    			$ULX = 0
    			$ULY = 0
    			$BRX = $XScreen - 1
    			$BRY = $YScreen - 1
    		Else
    			$ULX = $PosX - ($XSquare / 2)
    			If $ULX < 0 Then $ULX = 0
    			$ULY = $PosY - ($YSquare / 2)
    			If $ULY < 0 Then $ULY = 0
    			$BRX = $PosX + ($XSquare / 2)
    			$BRY = $PosY + ($YSquare / 2)
    		EndIf
    		$Head = PixelSearch($ULX, $ULY, $BRX, $BRY, $SquareColor, $Tollerance, 1)
    		If Not @error Then
    			if $MouseMode = true Then
    				$XMove = $Head[0]
    				$YMove = $Head[1]
    			Else
    				$XMove = $Head[0] - $PosX
    				$YMove = $Head[1] - $PosY
    			EndIf
    			If $DllInject = False Then
    				MouseMove($XMove, $YMove, $Speed)
    			Else
    				MouseMoveDLL($XMove, $YMove, $dll)
    			EndIf
    			Sleep(500)
    		EndIf
    		Sleep(100)
    	WEnd
    EndFunc   ;==>SearchHead
    
    Func Stop()
    	Exit
    EndFunc   ;==>Stop
    
    Func Pause()
    	$PauseActive = Not $PauseActive
    	While $PauseActive = True
    		If _IsPressed("77", $dll) Then
    			$PauseActive = False
    		EndIf
    		Sleep(5)
    	WEnd
    	If $PauseActive = False Then
    		SearchHead()
    	EndIf
    EndFunc   ;==>Pause
    
    Func MouseMoveDLL( $x, $y, $dll_h = "user32.dll")
    ;~  http://msdn.microsoft.com/library/en-us/winui/winui/windowsuserinterface/resources/cursors/cursorreference/cursorfunctions/setcursorpos.asp
        Local $return = DllCall( $dll_h, "int", "SetCursorPos", "int", $x, "int", $y)
        Return $return[0]
    EndFunc   ;==>MouseMoveDLL
    
    Func MakeLong($LoWord, $HiWord)
    	Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
    EndFunc   ;==>MakeLong
    
    DllClose($dll)

  2. #17
    Spekky6's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Zaandam, N-H
    Posts
    36
    Reputation
    10
    Thanks
    4
    My Mood
    Buzzed
    Is it still F8 and F9?
    But what button do I press to Aim ?
    But more explenation for the über-choob over 'ere ^^
    I downloaded it, I'll try it. But I have no idea how it works.
    So, I'll let ya know :P

    EDIT: Well I tried all the Fx buttons, nothing happened. Don'know if that's a bad sign...

    EDIT2: It works, just not ingame. Like everyone says, But I'm sure you'll find out how to solve it.
    Last edited by Spekky6; 10-20-2009 at 08:00 AM.
    My life-goal is reached, I AM A NEWB!
    [] Be a Newb

    Just one more thing I want:
    [] Be a world famous über AWESOME Superman cool guy RAPPER

  3. The Following User Says Thank You to Spekky6 For This Useful Post:

    drgn (10-20-2009)

  4. #18
    drgn's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Posts
    5
    Reputation
    10
    Thanks
    0
    So work perfect bat not in game XD
    mouse moving only in windows..
    I take a screen of the game and the code of color is correct, because mouse moved on red box ( at picture ) not in game.

    Edit : sorry for my bad English

  5. #19
    Spekky6's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Zaandam, N-H
    Posts
    36
    Reputation
    10
    Thanks
    4
    My Mood
    Buzzed
    [This post was deleted, because it was a dumb question which I resolved myself]
    Last edited by Spekky6; 10-20-2009 at 08:01 AM. Reason: [Dumb question, solved]
    My life-goal is reached, I AM A NEWB!
    [] Be a Newb

    Just one more thing I want:
    [] Be a world famous über AWESOME Superman cool guy RAPPER

  6. #20
    bakycar's Avatar
    Join Date
    Aug 2009
    Gender
    female
    Posts
    200
    Reputation
    11
    Thanks
    70
    My Mood
    Angelic
    Quote Originally Posted by hanoi22 View Post
    Me neither.

    Is it correct color for radars.
    What do you mean by dll injection selection? It doesn't inject anything. If it does my firewall should warn. Idk about those other selections.
    No the collor is 100% right because I took a SS and searched the color out.. its just the pixels..
    Press *Thanks* If I helped you in any way ^^




  7. #21
    JJC's Avatar
    Join Date
    Apr 2007
    Gender
    male
    Posts
    119
    Reputation
    10
    Thanks
    1
    wow, you´re trying a lot cranties! keep it up!

  8. #22
    cranties's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    55
    Reputation
    13
    Thanks
    83
    My Mood
    Amused

    Wink work in progress...

    Quote Originally Posted by JJC View Post
    wow, you´re trying a lot cranties! keep it up!
    thx to all for your help!!!

    i will write other code.. the problem is only the mouse move.....

    if one know how to move mouse with dll or other... let me know!!

  9. #23
    hanoi22's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    31
    Reputation
    10
    Thanks
    4
    My Mood
    Psychedelic
    If it's right color why there are color sliders, it should be removed.
    Quote Originally Posted by cranties View Post
    Code:
    Func SearchHead()
    	While $HeadSearchActive = True
    		If _IsPressed("78", $dll) Then
    			Stop()
    		EndIf
    		If _IsPressed("77", $dll) Then
    			Pause()
    I don't much of autoit, but I tried to search hotkeys. I thought it was f7/f8 but I only managed to find these 77 and 78. I don't know is it the right way to write f-buttons on autoit. Don't be tough.

  10. #24
    Spekky6's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Zaandam, N-H
    Posts
    36
    Reputation
    10
    Thanks
    4
    My Mood
    Buzzed
    Quote Originally Posted by hanoi22 View Post
    If it's right color why there are color sliders, it should be removed.

    I don't much of autoit, but I tried to search hotkeys. I thought it was f7/f8 but I only managed to find these 77 and 78. I don't know is it the right way to write f-buttons on autoit. Don't be tough.
    It is automatically activated.
    Let me quote Cranties:
    Quote Originally Posted by cranties View Post
    F8 Pause Cheat
    F9 Close Cheat
    Hope that was the answer ^^
    My life-goal is reached, I AM A NEWB!
    [] Be a Newb

    Just one more thing I want:
    [] Be a world famous über AWESOME Superman cool guy RAPPER

  11. #25
    cranties's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    55
    Reputation
    13
    Thanks
    83
    My Mood
    Amused
    Quote Originally Posted by Spekky6 View Post
    It is automatically activated.
    Let me quote Cranties:


    Hope that was the answer ^^


    Yes!! it's right !!!

  12. #26
    Lek's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    1
    not work again.

    Sorry if the question has been asked before.
    How can you write a cheat and do not test it in the game itself?

  13. #27
    hanoi22's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    31
    Reputation
    10
    Thanks
    4
    My Mood
    Psychedelic
    ok, it doesn't work.

    I agree with Lek as a coder you should be able to test it out!
    Theorically this should work. But it's a little bit different do it in game than on desktop!
    Maybe you should make a real hack like AA radar.
    Could it be possible to edit/add codes in AA radar? Radars Helios has already coded you just need to do aimbot.

  14. #28
    DontFearTheReaper's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    61
    Reputation
    10
    Thanks
    24
    My Mood
    Happy
    Yh, but it takes lot of time to laern to code c++/d3d

  15. #29
    Lek's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    1
    By the way, admins can see and kick those who use AA radar (I think they are taking screenshots). They also kick me out of him

  16. #30
    falcino's Avatar
    Join Date
    Aug 2008
    Gender
    male
    Location
    in her panties ^_^
    Posts
    91
    Reputation
    10
    Thanks
    7
    My Mood
    Stressed
    uhh does it work?

Page 2 of 6 FirstFirst 1234 ... LastLast