كيف أستطيع أن أعرف إذا كانت بطارية اللابتوب ممتلئة أم لا

Option Explicit
Private Type SYSTEM_POWER_STATUS
	ACLineStatus As Byte
	BatteryFlag As Byte
	BatteryLifePercent As Byte
	Reserved1 As Byte
	BatteryLifeTime As Long
	BatteryFullLifeTime As Long
End Type

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

Private Sub Form_Load()
Dim sysPower As SYSTEM_POWER_STATUS
GetSystemPowerStatus sysPower

Select Case sysPower.BatteryFlag
	Case 1
		MsgBox "High—the battery capacity is at more than 66 percent"
	Case 2
		MsgBox "Low—the battery capacity is at less than 33 percent"
	Case 4
		MsgBox "Critical—the battery capacity is at less than five percent"
	Case 8
		MsgBox "Charging"
	Case 128
		MsgBox "No system battery"
	Case 255
		MsgBox "Unknown status—unable to read the battery flag information"
End Select
End Sub

بس جربه أنت لأن معنديش Laptop

I

Win32 APIs

السلام عليكم

الله يجزاك ألف خير