PHP Code:
#RequireAdmin
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>
$timer=0
$timeran=0
GUICreate("MultiTool 1.0 by Coladose", 800, 220)
$spam = GUICtrlCreateInput ("",10,20, 780,20)
$button1 = GUICtrlCreateButton("Destop anzeigen", 50, 60, 100, 75)
$button2 = GUICtrlCreateButton("Chat-Spammer", 150, 60, 100, 75)
$button3 = GUICtrlCreateButton("Laggen", 250, 60, 100, 75)
$button4 = GUICtrlCreateButton("Deine Zeit", 350, 60, 100, 75)
$button5 = GUICtrlCreateButton("Herunterfahren", 450, 60, 100, 75)
$button6 = GUICtrlCreateButton("Witz xD", 550, 60, 100, 75)
$button7 = GUICtrlCreateButton("Stoppuhr", 650, 60, 100, 75)
$label1 = GUICtrlCreateLabel("...", 660, 140, 100, 75)
$button8 = GUICtrlCreateButton("Hack Index", 50, 135, 100, 75)
$button9 = GUICtrlCreateButton("Gratis Musik", 150, 135, 100, 75)
$button10 = GUICtrlCreateButton("Deine Musik", 250, 135, 100, 75)
$button11 = GUICtrlCreateButton("Screen", 350, 135, 100, 75)
$button12 = GUICtrlCreateButton("Gegen Langeweile", 450, 135, 100, 75)
$button13 = GUICtrlCreateButton("S4 starten", 550, 135, 100, 75)
GUICtrlCreateLabel("Hier deinen Text/deinen gewünschten Lagg-Grad eintippen(1000max.) ", 10, 40)
GUISetBkColor("019125500BFFF")
GUISetState()
HotKeySet ("{F3}", "TogglePause")
HotKeySet("{F2}", "ToggleStop")
GLobal $tStart
Global $Paused
Global $Stoped
While 1
_nMsg()
Sleep (10)
WEnd
Func _nMsg()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button1
desktop()
Case $button2
spam()
Case $button3
lag()
Case $button4
zeit()
Case $button5
_shutdown()
Case $button6
witz()
Case $button7
stoppuhr()
Case $button8
hacks()
Case $button9
music()
Case $button10
musik()
Case $button11
screen()
Case $button12
lw()
Case $button13
s4()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $timeran=1 Then
GUICtrlSetData($label1,"Vergangene Zeit : "&ConvertSecToTime(TimerDiff($timer)/1000))
;sleep(55) ;reduziert das Flimmern , muss aber nicht umbedingt drin sein
EndIf
EndFunc
Func spam()
MsgBox(0, "Hinweis", "Zum Pausieren drücke F3")
While 1
Send (GUICtrlRead($spam))
Send ("{enter}")
Sleep(1500)
WEnd
EndFunc
Func desktop()
Send("#{d}")
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()
$var = MsgBox (0x1, "Shutdown", "Achtung ihr PC wird nun Heruntergefahren")
If $var = 1 Then
ShellExecute('shutdown.exe','-s -t 00')
ElseIf $var = 2 Then
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
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(3000)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func ToggleStop()
$Stoped = NOT $Stoped
ToolTip('Script is Stoped"', 0,0)
ToolTip("")
Exit
EndFunc
Func witz()
MsgBox(0, "Warnung!!", "Dieser Witz kann tötlich enden...!")
Run("notepad.exe")
Sleep(5000)
Send("Es waren einmal 3 kleine Zwerge,..")
Send ("{enter}")
Sleep(2000)
Send("...die alle ins Guiness Buch wollten...")
Send ("{enter}")
Sleep(2000)
Send("..Der Erste sagt :'Ich habe den küzesten Arm der Welt', und geht zum GuinessCenter.")
Send ("{enter}")
Sleep(2000)
Send("..Der Zweite sagt:'Ich habe die kürzesten Beine der Welt', und geht auch zum GuinessCenter.")
Send ("{enter}")
Sleep(2000)
Send("Da kommt der Dritte und sagt:'Ha. Ich hab' den kürzesten Schwanz der Welt!', und geht auch zum GuinessCenter.")
Send ("{enter}")
Sleep(2000)
Send("Nachdem sie alle angenommen wurden, bis auf den Letzten kommt dieser total verdattert nach Hause.....")
Send ("{enter}")
Sleep(2000)
Send("...und sagt:'Wer zur heiligen Hölle bist DU??!!!")
EndFunc
Func stoppuhr()
If $timeran=0 Then
$timeran=1
$timer=TimerInit()
Else
$timeran=0
GUICtrlSetData($label1,"Vergangene Zeit : "&ConvertSecToTime(TimerDiff($timer)/1000))
EndIf
EndFunc
Func hacks()
ShellExecute("http://www.elitepvpers.com/forum/s4-league/499575-complete-s4-league-section-index.html")
EndFunc
Func music()
ShellExecute("http://www.tobit.com/radiofx/product.asp")
EndFunc
Func musik()
ShellExecute("wmplayer.exe")
EndFunc
Func screen()
_ScreenCapture_Capture(@DesktopDir & "\ScreenCapture.jpg")
EndFunc
Func lw()
ShellExecute("http://www.spielspiele.de")
EndFunc
Func s4()
Global $i = 0
While True
$i +=1
$keyname = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", $i)
If @error Then ExitLoop
$result = RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall" & $keyname, "DisplayName")
If $result = "S4 League_EU" Then
$s4path = RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall" & $keyname, "InstallLocation")
ExitLoop
EndIf
WEnd
ShellExecute($s4path & "patcher_s4.exe", "", $s4path)
EndFunc
Func ConvertSecToTime($oSec)
Local $zeit[3]
$zeit[0] = Int($oSec / 60) ;min
$zeit[1] = Mod($oSec, 60) ;sec
If $zeit[0] >= 60 Then ;hour
$zeit[2] = Int($zeit[0] / 60) ;hour
If $zeit[2] > 0 Then $zeit[0] = Mod($zeit[0], 60)
If StringLen($zeit[0]) = 1 Then $zeit[0] = "0" & $zeit[0]
If StringLen($zeit[1]) = 1 Then $zeit[1] = "0" & $zeit[1]
If StringLen($zeit[2]) = 1 Then $zeit[2] = "0" & $zeit[2]
Return int($zeit[2]) & ":" & int($zeit[0]) & ":" & int($zeit[1])
Else
If StringLen($zeit[0]) = 1 Then $zeit[0] = "0" & $zeit[0]
If StringLen($zeit[1]) = 1 Then $zeit[1] = "0" & $zeit[1]
Return int($zeit[0]) & ":" & int($zeit[1])
EndIf
EndFunc ;==>ConvertSecToTime