System-Laufzeit ermitteln (.NET) Mit dieser .NET Klasse lässt sich die Laufzeit des Systems seit dem letzten Windows-Start ermitteln.
Autor:   Heinz Prelle	Bewertung:	Views:  13.934
www.visual-basic5.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit dieser .NET Klasse lässt sich die Laufzeit des Systems seit dem letzten Windows-Start ermitteln:

Public Class CalculateSystemRuntime
 
  ''' <summary>
  ''' Ermittelt die Systemlaufzeit und gibt diese als TimeSpan-Objekt zurück
  ''' </summary>
  Public Shared ReadOnly Property ReturnRuntime() As TimeSpan
    Get
      Return GetSystemRuntime()
    End Get
  End Property
 
  Private Shared Function GetSystemRuntime() As TimeSpan
    Dim pc As PerformanceCounter
    Dim ts As TimeSpan
    Const Indicator As String = "System Up Time"
    Const IndicatorCategory As String = "System"
 
    Try
      pc = New PerformanceCounter(IndicatorCategory, Indicator)
      pc.NextValue()
      ts = TimeSpan.FromSeconds(pc.NextValue())
 
    Catch ex As Exception
      Throw New Exception(ex.Message.ToString())
    End Try
 
    Return ts
  End Function
 
End Class

Aufruf-Beispiel:

Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  Try
    ' Systemlaufzeit als TimeSpan-Objekt
    Me.Cursor = Cursors.WaitCursor
    Dim ts As TimeSpan = CalculateSystemRuntime.ReturnRuntime()
 
    ' TimeSpan formatiert ausgeben
    Dim SystemRunSince As String = _
      Format(ts.Days, "0") & " Tage, " & _
      Format(ts.Hours, "00") & ":" & _
      Format(ts.Minutes, "00") & ":" & _
      Format(ts.Seconds, "00") & " Stunden"
 
    Me.Cursor = Cursors.Default
    MessageBox.Show(SystemRunSince, "Info")
  Catch ex As Exception
    Me.Cursor = Cursors.Default
    MessageBox.Show(ex.Message.ToString(), "Info")
  End Try
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows 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.