;-----------------------
;Autor: Carbon12
;Funktion: Hotkeyset
;-----------------------


;Hotkey
HotKeySet ("{ESC}","esc")
HotKeySet ("{F1}","Hilfe")
HotKeySet ("+!S","Lautstaerke")
HotKeySet ("+!a","Ausschalten")
HotKeySet ("+!r","Neustarten")
HotKeySet ("+!l", "Abmelden")
;Body
While 1
	sleep (100)
WEnd
;Schließen
Func esc ()
	Exit 0
EndFunc
;hilfe
Func hilfe ()
MsgBox (0,"Hilfe","Mit Shif, Alt und r starten sie den Computer neu")
MsgBox (0, "Hilfe", "Mit Esc beenden sie das Programm")
Msgbox (0, "Hilfe", "Mit Shift, Alt und a schalten sie ihren Computer aus")
MsgBox (0, "Hilfe", "Mit Shift Alt und s regeln sie das Wave Volume")
MsgBox (0, "Hilfe", "Mit Shift, Alt und l melden sie sich ab")
EndFunc
;Lautstärkenregeler
Func Lautstaerke ()
	$Input_1 = InputBox ("Lautstärke","Bitte geben sie den gewünschten Wert ein! (0-100)")
	SoundSetWaveVolume ($Input_1)
	if $Input_1 = "" Then
		SoundSetWaveVolume (25)
	EndIf
	EndFunc
;Ausschalten
Func Ausschalten ()
	MsgBox (8240, "Achtung", "Der Computer wird jetzt heruntergefahren")
	Shutdown (1)
EndFunc
;Neustarten
Func Neustarten ()
	MsgBox (8240, "Achtung", "Der Computer wird jetzt neugestartet")
	Shutdown (2)
EndFunc
;Abmelden
Func Abmelden ()
	MsgBox (8240, "Achtung", "Sie melden sich jetzt ab")
	Shutdown (0)
EndFunc