OutdatedCustom QuickSwitch

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include<misc.au3>

Opt("MouseClickDownDelay", 2)
Opt("MouseClickDelay", 2)
Opt("SendKeyDelay", 2)
Opt("SendKeyDownDelay", 2)

HotKeySet("{Numpad1}", "QQAlways")
HotKeySet("{Numpad2}", "QQShift")
HotKeySet("{Del}", "EndApp")
HotKeySet("{Ins}", "Gui")

Global $Alive
GLOBAL $Macro = 10


While 1
   Sleep(100)
   WEnd
   



    func Gui()


$Title = GUICreate("Serges QSer 1.0", 150, 150, 400, 400)
$Macro = GUICtrlCreateInput($Macro, 40, 50, 75, 0)
$SetMacro = GUICtrlCreateButton("Set", 40, 75, 75, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
Sleep(10)




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SetMacro
$Macro = GUICtrlRead($Macro)
GUIDelete($Title)
EndSwitch
WEnd
EndFunc 





   Func QQAlways()
        $Alive = Not $Alive
      
      While $Alive
         
    If _IsPressed("01") Then
        Sleep(1)
        Send("{q down}")
        Send("{q up}")
        Sleep($Macro)
            Send("{q down}")
        Send("{q up}")
        While _IsPressed("01")
           Sleep(1)
           WEnd
        EndIf
        If _IsPressed("62") Then
        QQShift()
        EndIf
    WEnd
 EndFunc


 
    Func QQShift()
        $Alive = Not $Alive
      
      While $Alive
         
    If _IsPressed("A0") And _IsPressed("01") Then
        Sleep(1)
        Send("{q down}")
        Send("{q up}")
        Sleep($Macro)
            Send("{q down}")
        Send("{q up}")
        While _IsPressed("01")
           Sleep(1)
           WEnd
        EndIf
        If _IsPressed("61") Then
        QQAlways()
    EndIf
    WEnd

 EndFunc
 

 
  func EndApp()
      Exit 0
   EndFunc