|
You last visited: Today at 14:54
Advertisement
Kleine Frage...
Discussion on Kleine Frage... within the AutoIt forum part of the Coders Den category.
04/08/2010, 13:05
|
#16
|
elite*gold: 77 
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
|
Quote:
Originally Posted by .nAno
Als ne einfache Msg geht das nicht so leicht, du müsstest die Nachbauen 
Ungefähr so:
PHP Code:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TimeBox", 226, 148, 193, 125)
$Label1 = GUICtrlCreateLabel("", 32, 24, 27, 17)
$Button1 = GUICtrlCreateButton("Button1", 48, 88, 129, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$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 ) |
Oder man benutzt einfach meine Funktion
|
|
|
|
04/08/2010, 13:15
|
#17
|
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
|
Aber Shaddow, wie kann ich deine Funktion in mein Script einbaun ?!
|
|
|
|
|
04/08/2010, 13:18
|
#18
|
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
|
Quote:
Originally Posted by coladose
Aber Shaddow, wie kann ich deine Funktion in mein Script einbaun ?!
|
Diese Funktion ist nicht abhängig vom Rest des Skriptes , Codebeispiel :
PHP Code:
Msgbox(0,"test",ConvertSecToTime(12222))
Msgbox(0,"test",ConvertSecToTime(1752))
Msgbox(0,"test",ConvertSecToTime(1289))
Msgbox(0,"test",ConvertSecToTime(122))
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 $zeit[2] & ":" & $zeit[0] & ":" & $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 $zeit[0] & ":" & $zeit[1]
EndIf
EndFunc ;==>ConvertSecToTime
Du kannst ja meine Funktion und nanos idee verbinden
Btw. Ohne dein Skript kann ich dir nicht konkret sagen , wie es bei dir aussehen würde/müsste .
|
|
|
|
|
04/08/2010, 13:57
|
#19
|
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
|
Hier mal mein Script:
PHP Code:
#RequireAdmin
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>
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)
$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
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()
$time = GUICtrlRead($input)
Do
$time -1
Sleep(6000)
Until
$time = 0
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_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "DisplayName")
If $result = "S4 League_EU" Then
$s4path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "InstallLocation")
ExitLoop
EndIf
WEnd
ShellExecute($s4path & "\patcher_s4.exe", "", $s4path)
EndFunc
|
|
|
|
|
04/08/2010, 14:00
|
#20
|
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
|
PHP Code:
ShellExecute('shutdown.exe','-s -t 00')
das geht auch kürzer
|
|
|
|
|
04/08/2010, 14:41
|
#21
|
elite*gold: 60
Join Date: Jun 2009
Posts: 717
Received Thanks: 431
|
<.< jo. aber wie ich die stoppuhr da einsetz ?
|
|
|
|
|
04/08/2010, 15:31
|
#22
|
elite*gold: 1
Join Date: Oct 2008
Posts: 1,078
Received Thanks: 276
|
Nimm lieber
Quote:
Das funktioniert auch, wenn andere Programm ausgeführt werden
|
|
|
|
|
04/08/2010, 17:54
|
#23
|
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
|
Quote:
Originally Posted by coladose
Hier mal mein Script:
PHP Code:
#RequireAdmin
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>
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)
$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
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()
$time = GUICtrlRead($input)
Do
$time -1
Sleep(6000)
Until
$time = 0
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_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "DisplayName")
If $result = "S4 League_EU" Then
$s4path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $keyname, "InstallLocation")
ExitLoop
EndIf
WEnd
ShellExecute($s4path & "\patcher_s4.exe", "", $s4path)
EndFunc
|
So hab mich mal hingesetzt , so müsste dein Skript aussehen :
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
|
|
|
|
|
04/08/2010, 17:55
|
#24
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Quote:
Originally Posted by .nAno
Das funktioniert auch, wenn andere Programm ausgeführt werden |
Öhm, Shutdown fährt doch den PC runter xD
Irgendwie lässt sich das Script während es zählt auch nicht schließen oder die GUI löschen (GUIDelete, Exit) Oo
|
|
|
|
|
04/08/2010, 18:04
|
#25
|
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
|
Quote:
Originally Posted by mipez
Öhm, Shutdown fährt doch den PC runter xD
Irgendwie lässt sich das Script während es zählt auch nicht schließen oder die GUI löschen (GUIDelete, Exit) Oo
|
Doch dauert nur etwas länger (kannst auch das sleep rausnehmen , aber dann flimmert das so)
Btw. Um das so zu lösen , wie du es dir vorstellst müsste man OnEventCode nehmen , aber ich hatte echt keine Lust das so umzuschreiben ...
|
|
|
|
|
04/08/2010, 18:09
|
#26
|
elite*gold: 1
Join Date: Oct 2008
Posts: 1,078
Received Thanks: 276
|
Quote:
|
Öhm, Shutdown fährt doch den PC runter xD
|
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
|
|
|
|
 |
|
Similar Threads
|
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
|
All times are GMT +2. The time now is 14:54.
|
|
