AutoHotkey Community

VarSetCapacity(powerstatus, 1+1+1+1+4+4)
success := DllCall("kernel32.dll\GetSystemPowerStatus", "uint", &powerstatus)

acLineStatus:=ReadInteger(&powerstatus,0,1,false)
batteryFlag:=ReadInteger(&powerstatus,1,1,false)
batteryLifePercent:=ReadInteger(&powerstatus,2,1,false)
batteryLifeTime:=ReadInteger(&powerstatus,4,4,false)
batteryFullLifeTime:=ReadInteger(&powerstatus,8,4,false)

output=AC Status: %acLineStatus%`nBattery Flag: %batteryFlag%`nBattery Life (percent): %batteryLifePercent%`nBattery Life (time): %batteryLifeTime%`nBattery Life (full time): %batteryFullLifeTime%
MsgBox, %output%


ReadInteger( p_address, p_offset, p_size, p_hex=true )
{
  value = 0
  old_FormatInteger := a_FormatInteger
  if ( p_hex )
    SetFormat, integer, hex
  else
    SetFormat, integer, dec
  loop, %p_size%
    value := value+( *( ( p_address+p_offset )+( a_Index-1 ) ) << ( 8* ( a_Index-1 ) ) )
  SetFormat, integer, %old_FormatInteger%
  return, value
}

output=
  (LTrim
    AC Status: %acLineStatus%
    Battery Flag: %batteryFlag%
    Battery Life (percent): %batteryLifePercent%
    Battery Life (time): %batteryLifeTime%
    Battery Life (full time): %batteryFullLifeTime%
  )

AC Status: 0
Battery Flag: 0
Battery Life (percent): 42
Battery Life (time): 5572
Battery Life (full time): 4294967295

typedef struct _SYSTEM_POWER_STATUS {
  BYTE ACLineStatus;
  BYTE BatteryFlag;
  BYTE BatteryLifePercent;
  BYTE Reserved1;
  DWORD BatteryLifeTime;
  DWORD BatteryFullLifeTime;
} SYSTEM_POWER_STATUS,
 *LPSYSTEM_POWER_STATUS;

;~ Goto Test

VarSetCapacity(powerStatus, 1+1+1+1+4+4)
success := DllCall("GetSystemPowerStatus", "UInt", &powerStatus)
If (ErrorLevel != 0 OR success = 0)
{
   MsgBox 16, Power Status, Can't get the power status...
   ExitApp
}
acLineStatus := GetInteger(powerStatus, 0, false, 1)
batteryFlag := GetInteger(powerStatus, 1, false, 1)
batteryLifePercent := GetInteger(powerStatus, 2, false, 1)
batteryLifeTime := GetInteger(powerStatus, 4, true)
batteryFullLifeTime := GetInteger(powerStatus, 8, true)

If acLineStatus = 0
   acLineStatus = Offline
Else If acLineStatus = 1
   acLineStatus = Online
Else If acLineStatus = 255
   acLineStatus = Unknown

If batteryFlag = 0
   batteryFlag = Not being charged - Between 33 and 66 percent
Else If batteryFlag = 1
   batteryFlag =  High - More than 66 percent
Else If batteryFlag = 2
   batteryFlag = Low - Less than 33 percent
Else If batteryFlag = 4
   batteryFlag = Critical - Less than 5 percent
Else If batteryFlag = 8
   batteryFlag = Charging
Else If batteryFlag = 128
   batteryFlag = No system battery
Else If batteryFlag = 255
   batteryFlag = Unknown

If batteryLifePercent = 255
   batteryLifePercent = Unknown
Else
   batteryLifePercent = %batteryLifePercent%`%

If batteryLifeTime = -1
   batteryLifeTime = Unknown
Else
   batteryLifeTime := GetFormatedTime(batteryLifeTime)

If batteryFullLifeTime = -1
   batteryFullLifeTime = Unknown
Else
   batteryFullLifeTime := GetFormatedTime(batteryFullLifeTime)

output =
(
AC Status: %acLineStatus%
Battery state and capacity: %batteryFlag%
Battery Life: %batteryLifePercent%
Remaining Battery Life: %batteryLifeTime%
Full Battery Life: %batteryFullLifeTime%
)
MsgBox 64, Power Status, %output%

Return

GetInteger(ByRef @source, _offset = 0, _bIsSigned = false, _size = 4)
{
   local result

   Loop %_size%  ; Build the integer by adding up its bytes.
   {
      result += *(&@source + _offset + A_Index-1) << 8*(A_Index-1)
   }
   If (!_bIsSigned OR _size > 4 OR result < 0x80000000)
      Return result  ; Signed vs. unsigned doesn't matter in these cases.
   ; Otherwise, convert the value (now known to be 32-bit & negative) to its signed counterpart:
   return -(0xFFFFFFFF - result + 1)
}

GetFormatedTime(_seconds)
{
   local h, m, s, t

   h := _seconds // 3600
   _seconds -= h * 3600
   m := _seconds // 60
   s := _seconds - m * 60
   If (h > 1)
      t := h . " hours"
   Else IF (h = 1)
      t := "1 hour"
   If (t != "" and m + s > 0)
      t := t . " "
   If (m > 1)
      t := t . m . " minutes"
   Else If (m = 1)
      t := t . "1 minute"
   If (t != "" and s > 0)
      t := t . " "
   If (s > 1)
      t := t . s . " seconds"
   Else If (s = 1)
      t := t . "1 second"
   Else If (t = "")
      t := "0 seconds"

   Return t
}

Test:

MsgBox %
( Join
 GetFormatedTime(10000) . "`n" .
 GetFormatedTime(3661) . "`n" .
 GetFormatedTime(1000) . "`n" .
 GetFormatedTime(100) . "`n" .
 GetFormatedTime(10) . "`n" .
 GetFormatedTime(1) . "`n" .
 GetFormatedTime(0) . "`n" .
 ""
)

SetTimer, GetPowerSource, 2000
return ; End of main program

GetPowerSource:
   VarSetCapacity(powerStatus, 1+1+1+1+4+4)
   success := DllCall("GetSystemPowerStatus", "UInt", &powerStatus)
   If (ErrorLevel != 0 OR success = 0)
   {
      MsgBox 16, Power Status, Can't get the power status...
      ExitApp
   }
   acLineStatus := GetInteger(powerStatus, 0, false, 1)

   If acLineStatus = 0
      acLineStatus = Offline
   
   MsgBox 64, Power Source, Power Source: %acLineStatus%
Return