Include("<Misc.au3>") ;Required for line below
_Singleton("RNG",0) ; #SingleInstance Force
AutoItSetOption("MustDeclareVars", 0); #NoEnv
AutoItSetOption("SendKeyDelay", 0) ;SetKeyDelay -1,-1,-1
AutoItSetOption("SendKeyDownDelay", 0) ;SetKeyDelay -1,-1,-1
AutoItSetOption("WinWaitDelay", 0) ;SetWinDelay -1
ProcessSetPriority(@ScriptName, 4) ;Process Priority,,High

Global $Toggle = False
HotKeySet("{F8}", 'PAUSE')

While True
    If $Toggle Then
        Switch Random(1,9,1)
            Case 1
                Send("{Numpad1}")
            Case 2
                Send("{Numpad2}")
            Case 3
                Send("{Numpad3}")
            Case 4
                Send("{Numpad4}")
            Case 5
                Send("{Numpad5}")
            Case 6
                Send("{Numpad6}")
            Case 7
                Send("{Numpad7}")
            Case 8
                Send("{Numpad8}")
            Case 9
                Send("{Numpad9}")
        EndSwitch
    Else
        Sleep(100)
    EndIf
EndFunc

Func PAUSE()
    If $Toggle Then
        $Toggle = False
    Else
        $Toggle = True
    EndIf
EndFunc