Sign in to follow this  
Followers 0
Simucal

Trouble Properly Freeing Object

8 posts in this topic

#1 ·  Posted (edited)

Alright, In my "Aimbot: Proof of Concepts" script everything works like a charm except one thing:

When you try and change games after already playing one.. it will switch to the other game... HOWEVER, the sound from the previous one is still playing.

I figured freeing the object by "$oGame = 0" would do the trick.

I have also tried, GuiCtrlDelete($oGame), GuiCtrlDelete($GUIActiveX), and $oGame.Stop

No matter what.. the sound from the previously loaded game continues to play. And if you switch games mutliple times the sounds stack up on eachother. What in the hell am I doing wrong??

I found the reference code to embed a flash .swf in a Gui window here: http://www.autoitscript.com/forum/index.ph...hockwaveFlash.1

Here is the code for my Aimbot Example Script:

(It is also posted in scripts and scraps: http://www.autoitscript.com/forum/index.php?showtopic=24784)

; Written by: Simucal
#include <GUIConstants.au3>
Global $Aimbot = 0, $found = "no"

Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)

HotKeySet("{Space}", "ToggleAimbot")

While 1
    $SelectionForm = GUICreate("Aimbot - Proof of Concept", 298, 83, 350, 400)
    GUICtrlCreateLabel("Choose a game:", 32, 8, 81, 17)
    $flybutton = GUICtrlCreateButton("Shoot the Fly", 32, 40, 105, 25)
    $csbutton = GUICtrlCreateButton("Camper Strike", 168, 40, 105, 25)
    
    GUISetState()
    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $flybutton
                $gamename = "Shoot the Fly"
                GUIDelete($SelectionForm)
                ExitLoop
            Case $msg = $csbutton
                $gamename = "Camper Strike"
                GUIDelete($SelectionForm)
                ExitLoop
            Case $msg = $GUI_EVENT_CLOSE
                Exit
        EndSelect
    WEnd
    
    $oGame = ObjCreate ("ShockwaveFlash.ShockwaveFlash.1")
    $GameForm = GUICreate($gamename & ": Aimbot Proof of Concept", 820, 660, -1, -1)
    $GUIActiveX = GUICtrlCreateObj ($oGame, 10, 10, 800, 580)
    $exitbutton = GUICtrlCreateButton("Exit", 704, 624, 89, 25)
    $changebutton = GUICtrlCreateButton("Change Game", 610, 624, 89, 25)
    GUICtrlCreateLabel("Hit [Space] to toggle the aimbot!", 16, 608, 156, 17)
    $status = GUICtrlCreateLabel("Aimbot Status: Off", 16, 624, 500, 33)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    
    If $gamename = "Shoot the Fly" Then
        With $oGame
            .bgcolor = "#000000"
            .Movie = 'http://farm.addictinggames.com/D78AQSAKQLQWI9/1130.swf'
            .ScaleMode = 2
            .Loop = True
            .wmode = "Opaque"
        EndWith
        $searchcolor = 0x23AC00
    Else
        With $oGame
            .bgcolor = "#000000"
            .Movie = 'http://farm.addictinggames.com/D78AQSAKQLQWI9/2025.swf'
            .ScaleMode = 2
            .Loop = True
            .wmode = "Opaque"
        EndWith
        $headshot = 0xFF9986
        $bodyshot = 0xFF7070
        $searchcolor = 0xFF9986
        $headradio = GUICtrlCreateRadio("ARadio1", 425, 608, 17, 17)
        GUICtrlSetState(-1, $GUI_CHECKED)
        $bodyradio = GUICtrlCreateRadio("ARadio2", 505, 608, 17, 17)
        GUICtrlCreateLabel("Headshot", 443, 608, 50, 17)
        GUICtrlCreateLabel("Bodyshot", 523, 608, 48, 17)
        GUICtrlCreateLabel("Aimbot Options:", 340, 608, 78, 17)
    EndIf
    
    GUISetState()
    
    While 1
        If $Aimbot = 1 Then; Normal Auto-Aim
            $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
            If IsArray($coord) = 1 Then
                MouseMove($coord[0], $coord[1], 0)
            EndIf
        EndIf
        If $Aimbot = 2 Then; Auto-Aim + Autoshoot
            $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
            If IsArray($coord) = 1 Then
                MouseClick('left',$coord[0], $coord[1],1,0)
                If $gamename = "Camper Strike" Then Send("r")
            EndIf
        EndIf
        If $Aimbot = 3 Then; Snap-to
            $pos = MouseGetPos()
            $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
            If IsArray($coord) = 1 Then
                MouseMove($coord[0], $coord[1], 0)
            EndIf
        EndIf
        If $Aimbot = 4 Then; Snap-to + Autoshoot
            $pos = MouseGetPos()
            $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
            If IsArray($coord) = 1 Then
                MouseClick('left',$coord[0], $coord[1],1,0)
                If $gamename = "Camper Strike" Then Send("r")
            EndIf
        EndIf
        If $Aimbot = 5 Then; Auto Lock-On the first available target (best)
            If $found = "no" Then
                $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0], $coord[1], 0)
                    $found = "yes"
                EndIf
            Else
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0], $coord[1], 0)
                Else
                    $found = "no"
                EndIf
            EndIf
        EndIf
        If $Aimbot = 6 Then; Auto Lock-On the first available target + Autoshoot
            If $found = "no" Then
                $coord = PixelSearch(10, 10, 800, 580, $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseMove($coord[0], $coord[1], 0)
                    $found = "yes"
                EndIf
            Else
                $pos = MouseGetPos()
                $coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
                If IsArray($coord) = 1 Then
                    MouseClick('left',$coord[0], $coord[1],1,0)
                    If $gamename = "Camper Strike" Then
                        Send("r")
                    EndIf
                Else
                    $found = "no"
                EndIf
            EndIf
        EndIf
        $msg = GUIGetMsg()
        If $gamename = "Shoot the fly" Then
            Select
                Case $msg = $exitbutton
                    ExitLoop 2
                Case $msg = $changebutton
                    GUIDelete($GameForm)
                    ExitLoop 1
                Case $msg = $GUI_EVENT_CLOSE
                    ExitLoop 2
            EndSelect
        EndIf
        If $gamename = "Camper Strike" Then
            Select
                Case $msg = $exitbutton
                    ExitLoop 2
                Case $msg = $changebutton
                    $oGame.Stop
                    GUIDelete($GameForm)
                    ExitLoop 1
                Case $msg = $bodyradio
                    $searchcolor = $bodyshot
                Case $msg = $headradio
                    $searchcolor = $headshot
                Case $msg = $GUI_EVENT_CLOSE
                    ExitLoop 2
            EndSelect
        EndIf
        
    WEnd
    $oGame = 0
    GUIDelete()
WEnd
Exit

Func ToggleAimbot()
    If $Aimbot < 6 Then
        $Aimbot = $Aimbot + 1
    Else
        $Aimbot = 0
    EndIf
    Select
        Case $Aimbot = 0
            GUICtrlSetData($status, "Aimbot Status: Off")
        Case $Aimbot = 1
            GUICtrlSetData($status, "Aimbot Status: AutoFind")
        Case $Aimbot = 2
            GUICtrlSetData($status, "Aimbot Status: AutoFind + AutoShoot")
        Case $Aimbot = 3
            GUICtrlSetData($status, "Aimbot Status: Snap-To")
        Case $Aimbot = 4
            GUICtrlSetData($status, "Aimbot Status: Snap-To + AutoShoot")
        Case $Aimbot = 5
            GUICtrlSetData($status, "Aimbot Status: AutoFind/Lock-On")
        Case $Aimbot = 6
            GUICtrlSetData($status, "Aimbot Status: AutoFind/Lock-On + AutoShoot")
    EndSelect
EndFunc;==>ToggleAimbot
Edited by Simucal

AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc)

Share this post


Link to post
Share on other sites



It's driving me nuts :think:


AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc)

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

huh i do it , i press change game and it works for me ? background music are completely dif the first one quits its not still playing by the way thats pretty nice :think:

Edited by thatsgreat2345

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Doesnt do it for me. I've tried running it compiled also. The songs dont stop! I have also updated my Macromedia Flash plugin.

Edited by Simucal

AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc)

Share this post


Link to post
Share on other sites

im guessing its just you cuz the songs stop when i switch , and i kept switching a bunch and stuff the songs stop each time

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

im guessing its just you cuz the songs stop when i switch , and i kept switching a bunch and stuff the songs stop each time

Haha, I would be curious to find out why MY script works for others but not myself :think:

Click on camper strike and be sure to switch in the intro where you enter you name and there is background music. Try to switch to the fly game then.

Edited by Simucal

AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc)

Share this post


Link to post
Share on other sites

Can someone else test this for me?

Click on "Camper Strike", wait for intro music, then click change game.. and see if the music is still playing.


AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc)

Share this post


Link to post
Share on other sites

i did that, typed in my name then clicked change game the music quit... LOL idk why it aint workin for u

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0