Question

我需要 VBA 程序来检索系统的当前电池充电水平和充电状态。

我很惊讶没有在Stack Overflow上找到任何东西，我最终想出来了，所以我将在这里分享代码作为Q + A.

Answer 1

Option Explicit

Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long

Private Type SYSTEM_POWER_STATUS
    ACLineStatus As Byte
    BatteryFlag As Byte
    BatteryLifePercent As Byte
    SystemStatusFlag As Byte
    BatteryLifeTime As Long
    BatteryFullLifeTime As Long
End Type


Public Sub getBatteryStatus()
'prints current battery status to immediate window

    Dim SPS As SYSTEM_POWER_STATUS
    GetSystemPowerStatus SPS 'get system battery power status

    With SPS
        Debug.Print "Battery Life:  ", ;
        Select Case .BatteryLifePercent
            Case 255:   Debug.Print "Unknown"
            Case Else:  Debug.Print .BatteryLifePercent & "%"
        End Select

        Debug.Print "Battery Life Time: ", ;
        Select Case .BatteryLifeTime
            Case -1:    Debug.Print "Charging"
            Case Else
                Debug.Print Int(.BatteryLifeTime / 60) & "min / ";
                Select Case .BatteryFullLifeTime
                    Case -1
                        If .BatteryLifePercent = 0 Then
                            Debug.Print "Unknown"
                        Else 'estimate FullLifeTime:
                            Debug.Print "~" & Int(.BatteryLifeTime / .BatteryLifePercent * 5 / 3) & "min"
                        End If
                    Case Else
                        Debug.Print .BatteryFullLifeTime & "sec"
                End Select
        End Select

        Debug.Print "AC power status: ", ;
        Select Case .ACLineStatus 'show some information
            Case 0:     Debug.Print "Offline"
            Case 1:     Debug.Print "OnLine"
            Case Else:  Debug.Print "Unknown"
        End Select

        Debug.Print "Battery charge status: ", ;
        Select Case .BatteryFlag
            Case 0:     Debug.Print "Not Charging (33-66%)"
            Case 1:     Debug.Print "High (>66%)"
            Case 2:     Debug.Print "Low (<33%)"
            Case 4:     Debug.Print "Critical (<5%)"
            Case 8:     Debug.Print "Charging"
            Case 1 + 8: Debug.Print "High (>66%)- Charging"
            Case 2 + 8: Debug.Print "Low (<33%) - Charging"
            Case 4 + 8: Debug.Print "Critical (<5%) - Charging"
            Case 128:   Debug.Print "No System Battery"
            Case 255:   Debug.Print "Unknown Status"
        End Select

        Debug.Print "Battery saver: ", ;
        Select Case .SystemStatusFlag
            Case 0:     Debug.Print "Off"
            Case 1:     Debug.Print "On (Save energy where possible)" 'Windows 10 only
        End Select

    End With
End Sub

检索计算机的充电状态和当前电池电量

1 个答案:

更多信息：