查看: 581  |  回复: 0
  VB6 测定手提式电脑是否在使用电池运行,并且测试出它的剩于电池量
楼主
发表于 2023年5月6日 19:09

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
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 Sub Command1_Click()
    Dim SysStatus As SYSTEM_POWER_STATUS, LifeTime As Double
    GetSystemPowerStatus SysStatus
    LifeTime = SysStatus.BatteryLifeTime
    If LifeTime = -1 Then
        MsgBox "Using AC Power"
    Else
        MsgBox LifeTime / 3600 & " hours remaining"
    End If
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com