Code: Select all

^k::wdxa:=!wdxa
#IF wdxa
$w::Send n{enter}
$d::Send e{enter}
$x::Send s{enter}
$a::Send w{enter}
$s::Send r{enter}
$z::Send sw{enter}
$c::Send se{enter}
$q::Send nw{enter}
$e::Send ne{enter}
$Space::Send a{enter}
$f::Send cure{enter}
#IF

Code: Select all

Text := {} ; Array
Text.Push("A example","B example","C example","D example","E example")
F2::
Random, randNum, 1, Text.Length()
SendInput,% Text[randNum]
Return

Code: Select all

#Requires AutoHotkey v2.0
<+r:: { ; LShift & r
 SetKeyDelay 50
 While GetKeyState("r", "P") && GetKeyState("Lshift", "P")
  SendEvent "{Blind}f"
}

Code: Select all

<+r::f

Code: Select all

#HotIf GetKeyState("LShift","P")
r::f
#HotIf

Code: Select all

#Requires AutoHotkey v1.1.33
FuncNames := {MyFunc:"Func1", YourFunc:"Func2"}

FuncNames.MyFunc()
FuncNames.YourFunc()
; or
; FuncNames["MyFunc"]()
; FuncNames["YourFunc"]()

Func1() {
	MsgBox This is function 1
}

Func2() {
	MsgBox This is function 2
}

Code: Select all

a::send {s down}{d down}
a up::send {s up}{d up}
shift::send {s down}{d down}
shift up::send {s up}{d up}
#InputLevel 1
w::send {a down} ; hotkey 1
w up::send {a up}
q::shift ;hotkey 2 
#InputLevel 0

Code: Select all

e::
Send, {m Down}
SetTimer, MTimer, -1000
Return
MTimer:
Send, {m Up}
Return