Battery life

[toonpeters]

I have been searching for a script that shows the battery percentage if I press a shortcut. It shows it if I press for example the windows key and if I press the windowskey again it goes away.
I already found this on the internet but I don't know how to modyfy it to the shortcut, probably quite simple .

Code: Select all

; https://autohotkey.com/board/topic/7022-acbattery-status/

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
}

GetBatteryStatus()
{
	VarSetCapacity(powerStatus, 1+1+1+1+4+4)
	success := DllCall("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 := {}
	output.acLineStatus := acLineStatus
	output.batteryFlag := batteryFlag
	output.batteryLifePercent := batteryLifePercent
	output.batteryLifeTime := batteryLifeTime
	output.batteryFullLifeTime := batteryFullLifeTime
	
	Return output
}
#SingleInstance force
#NoTrayIcon


GUI:
	Temp := "--"
	
	Gui, Font, s14 w700, Arial
	Gui, Add, Text, w280 x10 y10 Center vGuiAcLineStatus, %Temp%
	
	Gui, Font, s48 w700, Arial
	Gui, Add, Text, w280 x10 y30 Center vGuiBatteryPercent, %Temp%`%
	
	Gui, Show, Center w300, AHK Battery Percent
	
	Loop
	{
		BatteryStatus := GetBatteryStatus()
		
		If (BatteryStatus.acLineStatus == 0)
		{
			Gui, Font, s14 w700 cRed, Arial
			Temp := "Discharging"
		}
		Else
		{
			Gui, Font,  s14 w700 cGreen, Arial
			Temp := "Charging"
		}
		
		GuiControl, Font, GuiAcLineStatus
		GuiControl, , GuiAcLineStatus, %Temp%
		
		Temp := BatteryStatus.batteryLifePercent
		If (Temp == 255)
		{
			Temp := "?"
		}
		Else
		{
			Temp = %Temp%`%
		}
		
		GuiControl, , GuiBatteryPercent, %Temp%
		
		Sleep, 1000
	}
Return

[carno]

Could this work as a shortcut to Win?:

Code: Select all

#::
GetBatteryStatus()

; https://autohotkey.com/board/topic/7022-acbattery-status/

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
}

GetBatteryStatus()
{
	VarSetCapacity(powerStatus, 1+1+1+1+4+4)
	success := DllCall("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 := {}
	output.acLineStatus := acLineStatus
	output.batteryFlag := batteryFlag
	output.batteryLifePercent := batteryLifePercent
	output.batteryLifeTime := batteryLifeTime
	output.batteryFullLifeTime := batteryFullLifeTime
	
	Return output
}
#SingleInstance force
#NoTrayIcon


GUI:
	Temp := "--"
	
	Gui, Font, s14 w700, Arial
	Gui, Add, Text, w280 x10 y10 Center vGuiAcLineStatus, %Temp%
	
	Gui, Font, s48 w700, Arial
	Gui, Add, Text, w280 x10 y30 Center vGuiBatteryPercent, %Temp%`%
	
	Gui, Show, Center w300, AHK Battery Percent
	
	Loop
	{
		BatteryStatus := GetBatteryStatus()
		
		If (BatteryStatus.acLineStatus == 0)
		{
			Gui, Font, s14 w700 cRed, Arial
			Temp := "Discharging"
		}
		Else
		{
			Gui, Font,  s14 w700 cGreen, Arial
			Temp := "Charging"
		}
		
		GuiControl, Font, GuiAcLineStatus
		GuiControl, , GuiAcLineStatus, %Temp%
		
		Temp := BatteryStatus.batteryLifePercent
		If (Temp == 255)
		{
			Temp := "?"
		}
		Else
		{
			Temp = %Temp%`%
		}
		
		GuiControl, , GuiBatteryPercent, %Temp%
		
		Sleep, 1000
	}
Return

[joomb]

Could this work as a shortcut to Win?:

Code: Select all

#::
GetBatteryStatus()

; https://autohotkey.com/board/topic/7022-acbattery-status/

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
}

GetBatteryStatus()
{
	VarSetCapacity(powerStatus, 1+1+1+1+4+4)
	success := DllCall("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 := {}
	output.acLineStatus := acLineStatus
	output.batteryFlag := batteryFlag
	output.batteryLifePercent := batteryLifePercent
	output.batteryLifeTime := batteryLifeTime
	output.batteryFullLifeTime := batteryFullLifeTime
	
	Return output
}
#SingleInstance force
#NoTrayIcon


GUI:
	Temp := "--"
	
	Gui, Font, s14 w700, Arial
	Gui, Add, Text, w280 x10 y10 Center vGuiAcLineStatus, %Temp%
	
	Gui, Font, s48 w700, Arial
	Gui, Add, Text, w280 x10 y30 Center vGuiBatteryPercent, %Temp%`%
	
	Gui, Show, Center w300, AHK Battery Percent
	
	Loop
	{
		BatteryStatus := GetBatteryStatus()
		
		If (BatteryStatus.acLineStatus == 0)
		{
			Gui, Font, s14 w700 cRed, Arial
			Temp := "Discharging"
		}
		Else
		{
			Gui, Font,  s14 w700 cGreen, Arial
			Temp := "Charging"
		}
		
		GuiControl, Font, GuiAcLineStatus
		GuiControl, , GuiAcLineStatus, %Temp%
		
		Temp := BatteryStatus.batteryLifePercent
		If (Temp == 255)
		{
			Temp := "?"
		}
		Else
		{
			Temp = %Temp%`%
		}
		
		GuiControl, , GuiBatteryPercent, %Temp%
		
		Sleep, 1000
	}
Return

why not use numput() fuction ?

[joomb]

Code: Select all

		VarSetCapacity(SYSTEM_POWER_STATUS, 12, 0)
		DllCall("GetSystemPowerStatus", "UInt", &SYSTEM_POWER_STATUS)
		ACLineStatus := NumGet(SYSTEM_POWER_STATUS, 0, "UChar")
		BatteryFlag := NumGet(SYSTEM_POWER_STATUS, 1, "UChar")
		BatteryLifePercent := NumGet(SYSTEM_POWER_STATUS, 2, "UChar")
		;SystemStatusFlag := NumGet(SYSTEM_POWER_STATUS, 3, "UChar")
		BatteryLifeTime := NumGet(SYSTEM_POWER_STATUS, 4, "UInt")
		BatteryFullLifeTime := NumGet(SYSTEM_POWER_STATUS, 8, "UInt")	

here is the real simple and correct!

[BoBo]

here is the real simple and correct!

Thx

Well, I've pushed your code back into an object

Code: Select all

#SingleInstance, Force
SetBatchLines, -1

VarSetCapacity(SYSTEM_POWER_STATUS, 12, 0)
DllCall("GetSystemPowerStatus", "UInt", &SYSTEM_POWER_STATUS)
power := {"ACLineStatus":NumGet(SYSTEM_POWER_STATUS, 0, "UChar")
         ,"BatteryFlag":NumGet(SYSTEM_POWER_STATUS, 1, "UChar")
         ,"BatteryLifePercent":NumGet(SYSTEM_POWER_STATUS, 2, "UChar")
         ,"SystemStatusFlag":NumGet(SYSTEM_POWER_STATUS, 3, "UChar")
         ,"BatteryLifeTime":NumGet(SYSTEM_POWER_STATUS, 4, "UInt")
         ,"BatteryFullLifeTime":NumGet(SYSTEM_POWER_STATUS, 8, "UInt")}

MsgBox % power.BatteryLifePercent "%"
MsgBox % power.ACLineStatus

[joomb]

nice