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:     [ Jetzt bewerten ]	Views:  14.513
www.visual-basic5.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 19 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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