vb@rchiv · Tipps & Tricks · Batteriestatus mit dem SysInfo-Control abfragen

Rubrik: System/Windows · Sonstiges | VB-Versionen: VB5, VB6

19.04.06

Batteriestatus mit dem SysInfo-Control abfragen Mit dem Microsoft SysInfo-Control lässt sich u.a. auch der Batteriestatus von Notebooks abfragen.
Autor: Dieter Otter	Bewertung:	Views: 12.896
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit dem Microsoft SysInfo-Control lässt sich u.a. auch der Batteriestatus von Notebooks abfragen und auch die Info, ob das Notebook aktuell mit einem Netzteil betrieben wird.

Prüfen, ob Notebook mit Akku oder Netzteil läuft

Select Case SysInfo1.ACStatus
  Case 0
    MsgBox "kein Netzteil - Notebook wird mit Akku-Batterie betrieben"
  Case 1
    MsgBox "Notebook wird mit externem Netzteil betrieben"
  Case 255
    MsgBox "unbekannter AC Power-Status"
End Select

Batteriestatus abfragen

Select Case SysInfo1.BatteryStatus
  Case 1
    MsgBox "Voll"
  Case 2
    MsgBox "Niedrig"
  Case 4
    MsgBox "Kritisch"
  Case 8
    MsgBox "Lädt"
  Case 128
    MsgBox "Keine Batterien"
  Case Else
    MsgBox "unbekannt"
End Select

Restlaufzeit in Prozent

If SysInfo1.BatteryLifePercent <> 255 Then
  MsgBox "Restlaufzeit " & CStr(SysInfo1.BatteryLifePercent) & "%"
Else
  MsgBox "Restlaufzeit unbekannt"
End If

Restlaufzeit in Stunden:

If SysInfo1.BatteryLifeTime <> &HFFFFFFFF Then
  MsgBox "Restlaufzeit: " & Format$(TimeSerial(0, 0, SysInfo1.BatteryLifeTime), "h:mm")
Else
  MsgBox "Restlaufzeit unbekannt"
End If

Akku-Gesamtlaufzeit

With SysInfo1
  If .BatteryFullTime = -1 Then
    If .BatteryLifePercent > 0 And .BatteryLifeTime > 0 Then
      MsgBox "Gesamtlaufzeit: " & Format$(TimeSerial(0, 0, .BatteryLifeTime / .BatteryLifePercent * 100), "h:mm")
    Else
      MsgBox "Gesamtlaufzeit unbekannt"
    End If
  Else
    MsgBox "Gesamtlaufzeit: " & Format$(TimeSerial(0, 0, .BatteryFullTime), "h:mm")
  End If
End With