Shout Commander

#RequireAdmin
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $exit
HotKeySet("{F12}", "kill")
; Shout Commander v0.1b
; Danke an alles wo mir bei den ganzen Problemen geholfen haben
; leider konnte ich nicht mit Variable Key machen =(
; da ich leider bis jetzt TimBlo seine func nicht verstanden habe
$background = GUICreate("Game Shout Commander", 301, 401, 398, 188)
$shout1 = GUICtrlCreateInput("F1", 72, 56, 161, 21)
HotKeySet("{F1}", "shout_1")
func shout_1()
send("{ENTER}"&GUICtrlRead($shout1)&"{ENTER}")
EndFunc
$shout2 = GUICtrlCreateInput("F2", 72, 88, 161, 21)
HotKeySet("{F2}", "shout_2")
func shout_2()
send("{ENTER}"&GUICtrlRead($shout2)&"{ENTER}")
EndFunc
$shout3 = GUICtrlCreateInput("F3", 72, 120, 161, 21)
HotKeySet("{F3}", "shout_3")
func shout_3()
send("{ENTER}"&GUICtrlRead($shout3)&"{ENTER}")
EndFunc
$shout4 = GUICtrlCreateInput("F4", 72, 152, 161, 21)
HotKeySet("{F4}", "shout_4")
func shout_4()
send("{ENTER}"&GUICtrlRead($shout4)&"{ENTER}")
EndFunc
$shout5 = GUICtrlCreateInput("F5", 72, 184, 161, 21)
HotKeySet("{F5}", "shout_5")
func shout_5()
send("{ENTER}"&GUICtrlRead($shout5)&"{ENTER}")
EndFunc
$shout6 = GUICtrlCreateInput("F6", 72, 216, 161, 21)
HotKeySet("{F6}", "shout_6")
func shout_6()
send("{ENTER}"&GUICtrlRead($shout6)&"{ENTER}")
EndFunc
$shout7 = GUICtrlCreateInput("F7", 72, 248, 161, 21)
HotKeySet("{F7}", "shout_7")
func shout_7()
send("{ENTER}"&GUICtrlRead($shout7)&"{ENTER}")
EndFunc
$shout8 = GUICtrlCreateInput("F8", 72, 280, 161, 21)
HotKeySet("{F8}", "shout_8")
func shout_8()
send("{ENTER}"&GUICtrlRead($shout8)&"{ENTER}")
EndFunc
$shout9 = GUICtrlCreateInput("F9", 72, 312, 161, 21)
HotKeySet("{F9}", "shout_9")
func shout_9()
send("{ENTER}"&GUICtrlRead($shout9)&"{ENTER}")
EndFunc
$StatusBar1 = _GUICtrlStatusBar_Create($background)
Dim $StatusBar1_PartsWidth[1] = [-1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "Note: This Tool are not for Spaming", 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)
$ueberschrift = GUICtrlCreateLabel(" MMORPG", 112, 8, 88, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Shout Commander", 112, 32, 91, 17)
$text = GUICtrlCreateLabel(" Shout Commander v0.1b", 72, 360, 172, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func kill()
Exit 0
EndFunc