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