func key()
$key = Random(1, 9)
If $key = 1 Then send("{1}")
If $key = 2 Then send("{2}")
If $key = 3 Then send("{3}")
If $key = 4 Then send("{4}")
If $key = 5 Then send("{5}")
If $key = 6 Then send("{6}")
If $key = 7 Then send("{7}")
If $key = 8 Then send("{8}")
If $key = 9 Then send("{9}")
endfunc
func send()
$key = Random(1, 9)
If $key = 1 Then $key1 = "{1}"
If $key = 2 Then $key1 = "{2}"
If $key = 3 Then $key1 = "{3}"
If $key = 4 Then $key1 = "{4}"
If $key = 5 Then $key1 = "{5}"
If $key = 6 Then $key1 = "{6}"
If $key = 7 Then $key1 = "{7}"
If $key = 8 Then $key1 = "{8}"
If $key = 9 Then $key1 = "{9}"
send($key1)
endfunc

HotKeySet("{F1}", "test1")
HotKeySet("{F2}", "test2")
HotKeySet("{F3}", "test3")
While 1
WEnd
Func test1()
Send( random(1, 10, 1) )
EndFunc
Func test2()
$rand = random(1, 10, 1)
Send($rand)
EndFunc
Func test3()
$rand = random(0, 9, 1)
Send("{Numpad" & $rand & "}")
EndFunc
Dim $RandomNumber, $RandomLetter, $Letter, $Vindictus
$Vindictus = "Vindictus.exe"
$RandomNumber = Random(1, 200, 1)
$RandomLetter = Random(0, 1)
If $RandomLetter < 0.5 Then
;Capitals
$Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter = Chr(Random(Asc("a"), Asc("z"), 1))
Endif
WinActivate($Vindictus)
WinWaitActive($Vindictus)
;Put mouse commands or keystroke commands here to get to wherever you want the text.
Send("Insert text here" & $RandomNumber & $Letter)