ИнтеллигенцияX

Как узнать уровень заряда батареи на ноутбуке? Да, довольно просто!

На помощь приходит API функция - GetSystemPowerStatus

С помощью данной функции, можно определить:

• уровень заряда аккумулятора (батареи в ноутбуке или ИБП)
• подключен ли к сети:
  • 0 - не подключен к сети
  • 1 - подключен к сети
  • 255 - неизвестно
• заряд батареи (высокий, нормальный, низкий и т.д)
• время работы от батареи
• максимальное время работы от батареи

На форму, киньте только ListBox.

Public Class Form1
    WithEvents Tmr As Timer = New Timer
    Dim SPSInfo As SYSTEM_POWER_STATUS
    Public Sub New()
        ' Этот вызов необходим конструктору форм Windows.
        InitializeComponent()
        Tmr.Interval = 1000 ' интервал 1 секунда
        AddHandler Tmr.Tick, AddressOf Tmr_Tick ' добавляем обработчик события
        Tmr.Start()
    End Sub
    Private Declare Auto Function GetSystemPowerStatus Lib "kernel32.dll" ( _
          ByRef lpSystemPowerStatus As SYSTEM_POWER_STATUS) _
      As Integer
    Public Structure SYSTEM_POWER_STATUS
        Public ACLineStatus As Byte ' подключение к сети
        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
        Высокий = 1
        Нормальный = 0
        Низкий = 2
        Критический = 4
        Заряжается = 8 ' иногда проскакивают и другие значения
        БатареяОтсутствует = 128
        Неизвестно = 255
    End Enum
    Sub Tmr_Tick()
        ListBox1.Items.Clear() ' очищаем
        GetSystemPowerStatus(SPSInfo)
        ' питание
        If SPSInfo.ACLineStatus Then
            ListBox1.Items.Add("Питание от сети")
        ElseIf SPSInfo.ACLineStatus = 0 Then
            ListBox1.Items.Add("Питание от батареи")
        Else
            ListBox1.Items.Add("Питание: неизвестно")
        End If
        ListBox1.Items.Add("Уровень заряда: " & SPSInfo.BatteryLifePercent & "%") ' уровень заряда
        ListBox1.Items.Add("Заряд батареи: " & SPSInfo.BatteryFlag.ToString) ' заряд батареи
        ' оставшиеся время работы от батареи [timespan в помощь.] 
        Dim h As Integer, m As Integer
        m = SPSInfo.BatteryLifeTime / 60 ' min
        If m < 60 Then
            ListBox1.Items.Add("Осталось " & m & " мин")
        Else
            h = Math.Round(m / 60) ' hours
            m = m - (h * 60) ' min 
            ListBox1.Items.Add("Осталось " & h & " ч. " & m & " мин")
        End If
    End Sub
End Class

Так выглядит информация, когда ноутбук заряжается от БП:

при зарядке, время не показывается.

Загрузить проект

Скоро напишу данный пример на C# ! Ждите :]