$timestamp = TimerInit () ;initialisiert eine Timestamp die in der Variable gespeichert wird.
While 1
GuiCtrlSetData ( $Label1, TimerDiff ( $timestamp ) ) ;setzt den Text von einem GUI Objekt neu
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Der Code zeigt allerdings nur Millisekunden an, wenn du das auf Sekunden, Minuten oder Stunden haben möchtest musst du es formatieren (das sollte jeder 4. Klässler hinbekommen )
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
EndFunc
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()
$time = GUICtrlRead($input)
Do
$time -1
Sleep(6000)
Until
$time = 0
EndFunc
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 EndFunc
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() $time = GUICtrlRead($input) Do $time -1 Sleep(6000) Until $time = 0 EndFunc
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
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
Hats bei mir nicht immer (bei Windows 7 kam son dummer Screen auf dem ich gefragt werde ob ich die offnen Programm auch schließen möchte) wenn du den beibehalten willst is ja gut, aber für nen sicheren Shutdown ohne "Stop" und "Warte mal" sollte man ihn so ausführen
Kleine Frage... 06/02/2010 - Metin2 Private Server - 5 Replies Huhu also ich hab nen Root...
Und jezt jedesmal nachdem ich reboote ändert sich einfach das pw & ich muss immer wieder neu installen.
Weiß einer wieso ...
Einen Grund schliesse ich aus:
Hacker
Lg
xPhinix
[Frage] Eine kleine Frage 05/03/2010 - Metin2 Private Server - 0 Replies hey kennst jemand von euch Die Codes für Gm sachen beispiel Gm krieger helm der der hilft bekommt thx danke
[Frage] Eine kleine Frage an euch 05/02/2010 - Metin2 Private Server - 3 Replies Was wünscht ihr euch von einem richtig gutem server schreibt eure vorschläge auf pls ok thx
[FRAGE] STARTERSET!!! KLEINE FRAGE WIRKLICH KLEIN^^ XD 03/19/2010 - Metin2 Private Server - 4 Replies ES LIEF BEIM TEST CHAR ALLES SUPER AUSSER ER WURDE NICHT LEVEL 99 SONDERN LEVEL 33
WIE KANN ICH DAS ÄNDERN BZW WO LIEGT DER FEHLER?^^
say_title ( "Willkommen" )
say ( "Willkommen auf dem Server LuckboxMt2." )
say ( "Wehe du Hackst dann wirste hier gebannd gekickt und dick in den Arsch gepoppt ne also have Fun" )
say ( "Blubb" )
say ( "" )
command ( "level 99" )
Kleine frage 05/15/2006 - Guild Wars - 3 Replies Hallo,
habe eine frage zu den Quests und zwar.
Ein kumpel von mir meint das es noch normale Quests gibt auser die Klassen Quests und der meint auch
das wenn ich die 2te Klasse schon habe das ich die nicht machen kann.
Stimmt das und ich habe ein fehler gemacht und komme nicht weiter oder wie ist das so?
Ich spiele Faction und bin lvl 10 N/M im moment.
Danke euch
