Sign in to follow this  
Followers 0
onedayillpay

DllClose($dll)

2 posts in this topic

the first time i run this sprogram it runs like a dream...

but after i press alt-Esc (terminate) i get some crazzy lagg...

i thought it might have something to do with how im useing DllClose($dll)

so i tryd puting it in sevrole places but still get this ugly lag

i dont understand i have to restart my computer to fix the lag

counter - strike 1.6

#Include <Misc.au3>
HotKeySet("!{ESC}", "Terminate")

$Color = "0xEB00A7"; pink this is just for testing....it will only target cts with the mdls i made
$Colo1 = "0xB1007E";
$Colo2 = "0xAD007B"
$Colo3 = "0x65004A"
$Colo4 = "0x7B0056"
$Colo5 = "0xE300A2"
$colo6 = "0x3C0029"
$colo7 = "0x36002F"
$Colo8 = "0xC300BB"
$colo9 = "0x53006C"
$key = "01"
$left = 460
$top = 375
$right = 540
$bottem = 430
$dll = DllOpen("user32.dll")
While 1
    if _IsPressed("39",$dll) Then ; 9
        $Color = "0xEB00A7"; pink this is just for testing....it will only target cts with the mdls i made
        $Colo1 = "0xB1007E";
        $Colo2 = "0xAD007B"
        $Colo3 = "0x65004A"
        $Colo4 = "0x7B0056"
        $Colo5 = "0xE300A2"
        $colo6 = "0x1B001B"
        $colo7 = "0x36002F"
        $Colo8 = "0xC300BB"
        $colo9 = "0x53006C"
        SoundPlay(@MyDocumentsDir & "\t.wav",0)
        sleep(500)
    Else
        if _IsPressed("30",$dll) Then; 0
            $Color = "0x00CC87";teal this is just for testing....it will only target cts with the mdls i made
            $Colo1 = "0x007D53";
            $Colo2 = "0x001F22"
            $Colo3 = "0x001B1C"
            $Colo4 = "0x00B377"
            $Colo5 = "0x009F69"
            $colo6 = "0x00A6A6"
            $colo7 = "0x006D67"
            $Colo8 = "0x00A6A6"
            $colo9 = "0x009F69"
            SoundPlay(@MyDocumentsDir & "\ct.wav",0)
            sleep(500)
        Else
            If _IsPressed("26",$dll) Then;up
                $left = 495
                    $top = 360
                    $right = 505
                    $bottem = 390
                $key = "01"
            Else
                If _IsPressed("28",$dll) Then;down
                    $left = 495
                    $top = 360
                    $right = 505
                    $bottem = 390
                    $key = "10"
                Else
                    
                    if WinActive("Counter-Strike") Then
                        If _IsPressed($key, $dll) Then

                            $Pos = PixelSearch($left,$top,$right,$bottem, $Color, 10,2)
                            If IsArray($Pos) Then
                                MouseMove($Pos[0],$Pos[1],0)
                                
                                
                                
                            Else
                                $Pos = PixelSearch($left,$top,$right,$bottem, $Colo1, 10,2)
                                if IsArray($Pos) Then
                                    MouseMove($Pos[0],$Pos[1],0)
                                    
                                    

                                Else
                                    $Pos = PixelSearch($left,$top,$right,$bottem, $Colo2, 10,2)
                                    if IsArray($Pos) Then
                                        MouseMove($Pos[0],$Pos[1],0)
                                        

                                    Else
                                        $Pos = PixelSearch($left,$top,$right,$bottem, $Colo3, 10,2)
                                        if IsArray($Pos) Then
                                            MouseMove($Pos[0],$Pos[1],0)
                                            

                                        Else
                                            $Pos = PixelSearch($left,$top,$right,$bottem, $Colo4, 10,2)
                                            if IsArray($Pos) Then
                                                MouseMove($Pos[0],$Pos[1],0)
                                                

                                            Else
                                                $Pos = PixelSearch($left,$top,$right,$bottem, $Colo5, 10,2)
                                                if IsArray($Pos) Then
                                                    MouseMove($Pos[0],$Pos[1],0)
                                                    

                                                Else
                                                    $Pos = PixelSearch($left,$top,$right,$bottem, $Colo6, 10,2)
                                                    if IsArray($Pos) Then
                                                        MouseMove($Pos[0],$Pos[1],0)
                                                        

                                                    Else
                                                        $Pos = PixelSearch($left,$top,$right,$bottem, $Colo7, 10,2)
                                                        if IsArray($Pos) Then
                                                            MouseMove($Pos[0],$Pos[1],0)
                                                        
                                                        Else
                                                            $Pos = PixelSearch($left,$top,$right,$bottem, $Colo8, 10,2)
                                                            if IsArray($Pos) Then
                                                                MouseMove($Pos[0],$Pos[1],0)
                                                                
                                                            Else
                                                                $Pos = PixelSearch($left,$top,$right,$bottem, $Colo9, 10,2)
                                                                if IsArray($Pos) Then
                                                                    MouseMove($Pos[0],$Pos[1],0)
                                                                    


                                                                EndIf
                                                            EndIf
                                                        EndIf
                                                    EndIf
                                                EndIf
                                            EndIf
                                        EndIf
                                    EndIf
                                EndIf
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf


Sleep(100)
WEnd
DllClose($dll)
Func Terminate()
    ;DllClose($dll)

    Exit 0
EndFunc
;$left = 495
;$top = 360  good fov for down key
;$right = 505
;$bottem = 390

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

I believe the second parameter on _IsPressed is optional... Have you tried not opening the dll and leaving it alone? I believe it opens/closes it on its own, so try it that way.

*Typo

Edited by darkshadow791

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