سلام

این برنامه وضعیت باطری سیستم رو نشون می ده

فقط کافی یه فرم درست کنید و دوتا لیبل توش بذارید و کد زیرو توی اون بنویسید می دونید کجا دیگه

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" (lpSystemPowerStaus As SYSTEM_POWER_STATUS) As Long

Private Sub Form_Load()

Dim s As SYSTEM_POWER_STATUS

GetSystemPowerStatus s

Select Case s.ACLineStatus

Case 0

Label1.Caption = "AC Power:Offline"

Case 1

Label1.Caption = "AC Power:OnLine"

End Select

Select Case s.BatteryFlag

Case 1

Label2.Caption = "Batery Charge State: Hight"

Case 2

Label2.Caption = "Battery Charge State: Low"

Case 2

Label2.Caption = "Battery Charge State: Critical"

Case 8

Label2.Caption = "Battery Charge State: Charging"

Case 128

Label2.Caption = "Battery Charge State: No System Battery"

Case 255

Label2.Caption = "Battery Charge State: Unknown Status"

End Select

End Sub

دوستای عزیز نظر  یادتون نره