System Uptime - System Startzeit

**GtaSpider**

Hallo!

So ich hab mal wider ein Skript für euch: Es zeigt kompfortabel an wann Das System gestartet wurde! Aslo wieviel zeit bis dahin Verstrichen ist

Spoiler anzeigen

C

TraySetState(2)


#include <misc.au3>
#include <GUIConstants.au3>
#Include <Constants.au3>
Opt("TrayMenuMode",1)


$togui = TrayCreateItem("Zu Gui")
$akttray = TrayCreateItem("Aktualiesieren")
TrayCreateItem("")
$exit = TrayCreateItem("Exit")


GUICreate("System UpTime - By GtaSpider", 198, 79, 211, 117)


$akt = GUICtrlCreateButton("&Aktualiesieren", 10, 50, 85, 25, 0)
$totray = GUICtrlCreateButton("Zu &Tray", 105, 50, 85, 25, 0)
$time = GUICtrlCreateInput("Error!", 10, 10, 181, 20)
$timelab = GUICtrlCreateLabel("Error!", 10, 30, 179, 17)
_GetSysUpTime($time,$timelab)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $akt
			_GetSysUpTime($time,$timelab)
		Case $totray
			_TrayWhile()
	EndSwitch
WEnd


Func _TrayWhile()
	TraySetState()
;~ 	TraySetState(16)
	GUISetState(@SW_HIDE)
	While 1
		$msg = TrayGetMsg()
		Switch $msg
			Case $exit
				Exit
			Case $togui
				ExitLoop
			Case $akttray
				_GetSysUpTime($time,$timelab,1345)
		EndSwitch
	WEnd
	TraySetState(2)
	GUISetState()
EndFunc


Func _GetSysUpTime($Gui_Time,$Gui_Time_Lab,$Tray=0)
	$ret = DllCall("kernel32.dll", "long", "GetTickCount")
	Global $day = 0, $type = "Days", $hour = 0, $min = 0, $sec = 0, $msec = 0, $mtype = "", $stype = "", $mitype = "", $htype = ""

	$msec = StringRight("00" & Mod($ret[0], 1000), 3)
	_Iif($msec > 1, $mtype = "s", $mtype = "")
	$mtype = "Milisecond" & $mtype
	$uptime = Floor($ret[0] / 1000)
	$sec = StringRight("00" & Mod($uptime, 60), 2)
	_Iif($sec > 1, $stype = "s", $stype = "")
	$stype = "Second" & $stype
	If $uptime >= 60 Then
		$uptime = Floor($uptime / 60)
		$min = StringRight("00" & Mod($uptime, 60), 2)
		_Iif($min > 1, $mitype = "s", $mitype = "")
		$mitype = "Minute" & $mitype
		$uptime = Floor($uptime / 60)
		$hour = StringRight("00" & Mod($uptime, 24), 2)
		_Iif($hour > 1, $htype = "s", $htype = "")
		$htype = "Hour" & $htype
		If $uptime >= 24 Then; convert hours to days
			$day = Floor($uptime / 24)
			$type = ""
			If $day > 1 Then $type = "s"
			$type = " Day" & $type & " "
		EndIf
	EndIf
	GUICtrlSetData($Gui_Time,$day & " - " & $hour & ":" & $min & ":" & $sec & "." & $msec)
	GUICtrlSetData($Gui_Time_Lab,$type & "-" & $htype & ":" & $mitype & ":" & $stype & "." & $mtype)
	If $Tray <> 0 Then
		TrayTip("System Startzeit",$day & " - " & $hour & ":" & $min & ":" & $sec & "." & $msec,3)
	EndIf
EndFunc

Alles anzeigen

Mfg Spider

**peethebee**

Hallo!

Svhönes Skript, aber das macht mir ein schlechtes Gewissen

peethebee

**GtaSpider**

Hallo!

Ja das Problem hab ich auch Ich könnte ja ein Cheat einbauen der die Zeit auf: -1 - 0:-1:0:0 dann hat man noch ein tag und eine Sekunde zeit bis zum Schechten gewissen *g*

Hier nocmal ein paar bilder:

**Xenobiologist**

HI,

hier ist meine Variante. Etwas kürzer.

Spoiler anzeigen

PHP

#include <Date.au3>


HotKeySet("{esc}", "end")


$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colSettings = $objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")


For $objOperatingSystem In $colSettings
Next


While 1
	ToolTip("LastBootUpTime	: " & _counter(WMIDateStringToDate($objOperatingSystem.LastBootUpTime)) _
			 & @CRLF & "InstallDate	: " & _counter(WMIDateStringToDate($objOperatingSystem.InstallDate)))
	Sleep(10)
WEnd


Func _counter($s_Date)
	If _DateIsValid($s_Date) Then
		Local $NumberOfSeconds = _DateDiff("s", $s_Date, _NowCalc())
		Return StringFormat("Days = %.03d" & @TAB & "Hours = %.02d" & @TAB & "Min = %.02d" & @TAB & "Sec = %.02d" & @TAB & _
				"Msec	= %.03d", $NumberOfSeconds / 86400, Mod($NumberOfSeconds / 3600, 24), Mod(($NumberOfSeconds / 60), 60), _
				Mod($NumberOfSeconds, 60), _MSec())
	Else
		Return -1
	EndIf
EndFunc   ;==>_counter


Func WMIDateStringToDate($dtmDate)
	Return (StringLeft($dtmDate, 4) & "/" & StringMid($dtmDate, 5, 2) & "/" & StringMid($dtmDate, 7, 2) _
			 & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate


Func _MSec()
	Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort')
	DllCall('kernel32.dll', 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime))
	$sMilliSeconds = StringFormat('%03d', DllStructGetData($stSystemTime, 8))
	$stSystemTime = 0
	Return $sMilliSeconds
EndFunc   ;==>_MSec


Func end()
	Exit(0)
EndFunc

Alles anzeigen

l

So long,

Mega

**GtaSpider**

Hallo!

sehr schön aber ohne gui dann wäre meine version auch um einiges kürzer.. und bei objecten ist immer das problem das man immer die akutellste beta brauch, bei dll nicht..

Mfg Spider