AutoHotkey Community

Code: Select all

#MaxThreadsPerHotkey 2
F12::
Send,% (run:=["ab","b","b","b","b"]).RemoveAt(1)
If !Count
	While, Count:=run.Count(){
		Sleep, 1000
		Send,% run.RemoveAt(1)
	}
Return

Code: Select all

#MaxThreadsPerHotkey 2
F12::
run := ["ab", "b", "b", "b", "b"]
If !Count
	While, Count:=run.Count() {
		Send % run.RemoveAt(1)
		Sleep, 1000
	}
Return

Code: Select all

z::SetTimer, z Up,% (go:=!go)?20:"Off"
z Up::Send,% go?A_Space:

Code: Select all

String := "ABCD"
Len := StrLen(String)
q::
Loop,% Len**Len
{
	n := A_Index-1
	Loop,% Len
	{
		z := Mod(n, Len)
		Out := SubStr(String, z+1, 1) Out
		n := (n-z)//Len
	}
	SendInput,% Out "`n"
	Out =
}

Code: Select all

String := "ABCD"
q::
Loop, Parse, String
{
	Out1 := A_LoopField
	Loop, Parse, String
	{
		Out2 := Out1 A_LoopField
		Loop, Parse, String
		{
			Out3 := Out2 A_LoopField
			Loop, Parse, String
			{
				Out4 := Out3 A_LoopField
				SendInput,% Out4 "`n"
			}
		}
	}
}

Code: Select all

$F8::
IF F8
	Goto, SecondPart 
FirstPart:
Send, {3}
Sleep, 250
SecondPart:
Send, {e up}
endtime := A_TickCount + 1500
While ((F8:=GetKeyState("F8","P")) && A_TickCount < endtime)
{
	Send, {e down}
	Sleep, 200
}
return

Code: Select all

~*x::X := True
#IF X
*x::Return
#IF
~*y::X := False

Code: Select all

q::
ClipBoard = 2+3
FileDelete, ~.ahk
FileAppend, ClipBoard := %ClipBoard%, ~.ahk, UTF-8
RunWait, ~.ahk
MsgBox,% ClipBoard ;5
Return