Results 1 to 3 of 3
  1. #1
    UCSerge's Avatar
    Join Date
    Sep 2013
    Gender
    male
    Posts
    281
    Reputation
    10
    Thanks
    921

    AutoIt3 Trash QuickSwitcher/RapidFire

    Umm, I'm no longer gonna be updating this trash so for those who still want to use these you can go download AutoIt3 these are the sources for them.

    Code:
    ;TrashSwitcher
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include<misc.au3>
    
    #NoTrayIcon
    
    Opt("MouseClickDownDelay", 2)
    Opt("MouseClickDelay", 2)
    Opt("SendKeyDelay", 2)
    Opt("SendKeyDownDelay", 2)
    
    HotKeySet("{Numpad1}", "QQAlways")
    HotKeySet("{Numpad2}", "QQShift")
    HotKeySet("{Numpad3}", "PauseMode")
    HotKeySet("{Del}", "EndApp")
    HotKeySet("{Up}", "Gui")
    
    Global $Alive
    GLOBAL $SwitchBefore = 10
    GLOBAL $SwitchAfter = 50
    
    Beep(1000,250)
    While 1
       Sleep(100)
       WEnd
       
    
    
    
        func Gui()
    
    
    $Title = GUICreate("Trash 1.0", 250, 150)
    $SwitchBefore = GUICtrlCreateInput($SwitchBefore, 40, 20, 75, 0)
    $SwitchAfter = GUICtrlCreateInput($SwitchAfter, 40, 40, 75, 0)
    $Idc1 = GUICtrlCreateLabel("Before Delay", 120,22,150,15)
    $Idc2 = GUICtrlCreateLabel("After Delay", 120,44,150,15)
    $SetMacro = GUICtrlCreateButton("Set", 75, 85, 75, 20, $WS_GROUP)
    GUISetState(@SW_SHOW)
    Sleep(10)
    
    
    
    
    While 1
    $k = GUIGetMsg()
    Switch $k
    Case $GUI_EVENT_CLOSE
    Exit
    Case $SetMacro
    $SwitchBefore = GUICtrlRead($SwitchBefore)
    $SwitchAfter = GUICtrlRead($SwitchAfter)
    GUIDelete($Title)
    EndSwitch
    WEnd
    EndFunc 
    
    Func PauseMode()
    Beep(500,700)
    While 1
    Sleep(500)
    WEnd
    EndFunc
    
    
    
       Func QQAlways()
    Beep(800,500)
    While 1
             
        If _IsPressed("01") Then
            Sleep($SwitchBefore)
            Send("{q down}")
            Send("{q up}")
            Sleep($SwitchAfter)
                Send("{q down}")
            Send("{q up}")
            While _IsPressed("01")
               Sleep(1)
               WEnd
            EndIf
            If _IsPressed("62") Then
            QQShift()
            EndIf
        WEnd
     EndFunc
    
    
     
        Func QQShift()
    Beep(800,500)
    While 1
             
        If _IsPressed("A0") And _IsPressed("01") Then
            Sleep($SwitchBefore)
            Send("{q down}")
            Send("{q up}")
            Sleep($SwitchAfter)
                Send("{q down}")
            Send("{q up}")
            While _IsPressed("01")
               Sleep(1)
               WEnd
            EndIf
            If _IsPressed("61") Then
            QQAlways()
        EndIf
        WEnd
    
     EndFunc
     
    
     
      func EndApp()
          Beep(350,750)
          Exit 0
       EndFunc

    Code:
    ;TrashRapidFire
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include<misc.au3>
    
    Opt("MouseClickDownDelay", 1)
    Opt("MouseClickDelay", 1)
    Opt("SendKeyDelay", 1)
    Opt("SendKeyDownDelay", 1)
    
    HotKeySet("{Up}", "Gui")
    HotKeySet("{Down}", "Click")
    HotKeySet("{Del}", "EndApp")
    
    
    Global $Alive
    GLOBAL $Macro = 50
    
    #NoTrayIcon
    Beep(800,850)
    
    
    While 1
       Sleep(100)
       WEnd
       
    
    
    
        func Gui()
    
    
    $Title = GUICreate("Trash 1.1", 225, 150, @desktopWidth /2, @desktopHeight /2)
    GuiSetIcon(@AutoItExe, -2, $Title)
    $Macro = GUICtrlCreateInput($Macro, 75, 50, 75, 0)
    $SetMacro = GUICtrlCreateButton("Set", 75, 75, 75, 21, $WS_GROUP)
    GUISetState(@SW_SHOW)
    Beep(325,250)
    $Alive = 0
    
    
    
    
    
    
    
    
    
    While 1
    $GuiMsg = GUIGetMsg()
    If WinActive("Trash 1.1") And _IsPressed("0D") Then
    Send("{Tab}{Enter}")
    EndIf
    Switch $GuiMsg
    Case $GUI_EVENT_CLOSE
    Beep(250,850)
    Exit 0
    Case $SetMacro
    $Macro = GUICtrlRead($Macro)
    GUIDelete($Title)
    Click()
    EndSwitch
    WEnd
    EndFunc 
    
    
    
    
    
       Func Click()
    
        If $Alive Then
        Beep(300, 500)
        EndIf
        
        If Not $Alive Then
        Beep(500, 500)
        EndIf
    
        $Alive = Not $Alive
    
        While $Alive
        If _IsPressed("01") Then
        Sleep(1)
        MouseClick("Middle")
        Sleep($Macro)
        EndIf
    
    
        If _IsPressed("27") Then
        $Macro = $Macro + 1
        Send("{NUMPADADD UP}")
        Beep(750,100)
        ;Sleep(100)
        EndIf
    
        If _IsPressed("25") Then
        $Macro = $Macro - 1
        Send("{NUMPADSUB UP}")
        Beep(575,100)
        ;Sleep(100)
        EndIf
    
    
    WEnd
    EndFunc
    
    
     
    
     
      func EndApp()
      Beep(250,850)
      Exit 0
    EndFunc
    Last edited by Hunter; 02-02-2016 at 08:51 AM.
    Vouches:
     
     
     

     
     
     

  2. #2
    UltraOMGandLOL's Avatar
    Join Date
    Feb 2014
    Gender
    male
    Posts
    2
    Reputation
    10
    Thanks
    0
    If I do it will it be detected by XIGN?

  3. #3
    UCSerge's Avatar
    Join Date
    Sep 2013
    Gender
    male
    Posts
    281
    Reputation
    10
    Thanks
    921
    Quote Originally Posted by UltraOMGandLOL View Post
    If I do it will it be detected by XIGN?
    I'm done with it but as far as i know it should be undetected so long as you run the script without compiling it.

Similar Threads

  1. [Request] combat arms rapidfire
    By randomguyme in forum Combat Arms Hacks & Cheats
    Replies: 6
    Last Post: 10-17-2009, 08:27 PM
  2. [TuT] Simple CE rapidfire tut..
    By iOwnage in forum Combat Arms Discussions
    Replies: 60
    Last Post: 09-04-2009, 11:17 AM
  3. Deleted my trash bin
    By Loouis in forum Debate Fort
    Replies: 5
    Last Post: 07-21-2009, 01:50 PM
  4. Rapidfire in VB makes my Warrock crash
    By nub_g0t_high in forum WarRock - International Hacks
    Replies: 1
    Last Post: 10-22-2007, 05:44 PM
  5. RapidFire MP7K
    By haxik in forum WarRock - International Hacks
    Replies: 38
    Last Post: 04-10-2007, 08:15 AM