Code:
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
GUICreate("Multi Tool 0.1 by Coladose", 600, 120)
$spam = GUICtrlCreateInput ("",10,20, 580,20)
$button1 = GUICtrlCreateButton("Destop anzeigen", 50, 40, 100, 75)
$button2 = GUICtrlCreateButton("Chat-Spammer", 150, 40, 100, 75)
$button3 = GUICtrlCreateButton("Laggen", 250, 40, 100, 75)
$button4 = GUICtrlCreateButton("Deine Zeit", 350, 40, 100, 75)
$button5 = GUICtrlCreateButton("Herunterfahren", 450, 40, 100, 75)
GUISetState()
While 1
_nMsg()
Sleep (10)
WEnd
Func _nMsg()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button1
desktop()
Send("#{d}")
Case $button2
spam()
Case $button3
lag()
Case $button4
zeit()
Case $button5
_shutdown()
EndSwitch
EndFunc
Func spam()
While 1
Send (GUICtrlRead($spam))
Send ("{enter}")
WEnd
EndFunc
Func desktop()
EndFunc
Func lag()
Local $count = 0
Do
$count = $count + 1
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
Send ("{enter}")
sleep (200)
Until $count = GUICtrlRead ( $spam )
EndFunc
Func _shutdown()
MsgBox (0x1, "Shutdown", "Achtung ihr PC wird nun Heruntergefahren")
If MsgBox = 1 Then
shutdown (1)
ElseIf MsgBox = 2 Then
Exit
EndIf
EndFunc
Func zeit()
$uhrzeit = MsgBox(36, "Es ist jetzt...", _
@HOUR & ":" & @MIN & ":" & @SEC & " Uhr. " _
& @LF & "Möchten Sie das aktuelle Datum anzeigen lassen?")
IF $uhrzeit = 6 Then
MsgBox(0, "Aktuelles Datum", @MDAY & "." & @MON & "." & @YEAR)
EndIf
EndFunc
