Reply to thread

Message

[QUOTE="MattP, post: 122478, member: 16051"]
Here's an example using Enums to get the status back so you don't have Select Case statements all over the place.

[CODE]Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sps As BatteryStatus.SYSTEM_POWER_STATUS = BatteryStatus.GetStatus

MessageBox.Show(String.Concat("AC power status: ", [Enum].GetName(GetType(BatteryStatus.ACLineStatus), sps.ACLineStatus)))

Select Case sps.ACLineStatus
            Case 0
                MessageBox.Show("AC power status: Offline")
            Case 1
                MessageBox.Show("AC power status: Online")
            Case 255
                MessageBox.Show("AC power status: Unknown")
        End Select

MessageBox.Show(String.Concat("Battery charge status: ", [Enum].GetName(GetType(BatteryStatus.BatteryFlag), sps.BatteryFlag)))

Select Case sps.BatteryFlag
            Case 1
                MessageBox.Show("Battery charge status: High")
            Case 2
                MessageBox.Show("Battery charge status: Low")
            Case 4
                MessageBox.Show("Battery charge status: Critical")
            Case 8
                MessageBox.Show("Battery charge status: Charging")
            Case 128
                MessageBox.Show("Battery charge status: No system battery")
            Case 255
                MessageBox.Show("Battery charge status: Unknown Status")
        End Select

MessageBox.Show(String.Concat("Battery LifeTime ", sps.BatteryLifeTime))
    End Sub
End Class

Public Class BatteryStatus
    Private Declare Auto Function GetSystemPowerStatus Lib "kernel32.dll" ( _
        ByRef lpSystemPowerStatus As SYSTEM_POWER_STATUS) _
    As Integer

Public Structure SYSTEM_POWER_STATUS
        Public ACLineStatus As ACLineStatus
        Public BatteryFlag As BatteryFlag
        Public BatteryLifePercent As Byte
        Public Reserved1 As Byte
        Public BatteryLifeTime As Integer
        Public BatteryFullLifeTime As Integer
    End Structure

Public Enum BatteryFlag As Byte
        High = 1
        Low = 2
        Critical = 4
        Charging = 8
        NoSystemBattery = 128
        Unknown = 255
    End Enum

Public Enum ACLineStatus As Byte
        Offline = 0
        Online = 1
        Unknown = 255
    End Enum

Public Shared Function GetStatus() As SYSTEM_POWER_STATUS
        Dim SPS As New SYSTEM_POWER_STATUS
        GetSystemPowerStatus(SPS)
        Return SPS
    End Function
End Class[/CODE]
[/QUOTE]

Verification