Code-Beispiel

Windows-Uptime ermitteln

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Mao	09.06.2007

Manchmal ist es ganz interessant, bzw. für Server und/oder Serverprogramme sogar wichtig, zu wissen wie lange der Rechner bereits läuft. Windows stellt dafür eine Funktion zur Verfügung, die die Uptime des Systems in Millisekunden zurückgibt: GetTickCount. Da GetTickCount einen 32-Bit-Integer zurückgibt, errechnet sich daraus, dass es nach etwa 49,7 Tagen einen Overflow gibt, die Uptime also auf 0 zurückgesetzt wird.

#include "windows.bi"



Const Second=1000

Const Minute=Second*60

Const Hour=Minute*60

Const Day=Hour*24



Dim As Unsigned Integer Uptime

Dim As Integer Days, Hours, Minutes, Seconds, Temp



Uptime=GetTickCount



Days=Uptime/Day

Temp=Uptime mod Day

Hours=Temp/Hour

Temp=Temp mod Hour

Minutes=Temp/Minute

Temp=Temp mod Minute

Seconds=Temp/Second



Print "Tage: ", Days

Print "Stunden: ", Hours

Print "Minuten: ", Minutes

Print "Sekunden: ", Seconds

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 09.06.2007 von Mao angelegt.
Die aktuellste Version wurde am 09.06.2007 von Mao gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.