Global $aText[6] = [5, "text1", "text2", "text3", "text4", "text5"]
HotKeySet("{ESC}", "_Exit")
HotKeySet("{ENTER}", "_ShowRandomText")
While 1
Sleep(10)
WEnd
Func _Exit()
Exit
EndFunc
Func _ShowRandomText()
HotKeySet(@HotKeyPressed)
Send(@HotKeyPressed)
MsgBox(64, "Random Text", $aText[Random(1, $aText[0], 1)])
HotKeySet(@HotKeyPressed, "_ShowRandomText")
EndFunc