通过VB.NET检查我的笔记本电脑电池寿命

Question

在我的带有框架2.0的VB.Net项目中,我需要通过编码获得笔记本电脑或笔记本电脑的当前黄油寿命.

有可能获得当前的电池状态信息吗？

Answer 1

您可以尝试此代码

Dim power As SystemInformation.PowerStatus = SystemInformation.PowerStatus
Dim percent As Single = power.BatteryLifePercent
MsgBox("Percent battery life remaining: " & percent * 100)

Answer 2

查看SystemInformation类,更具体地说,PowerStatus属性(返回PowerStatus类的实例).

以下代码将为您提供当前的电池信息:

Dim powerstatus As PowerStatus = SystemInformation.PowerStatus

' Gets the current battery charge status.
MessageBox.Show("BatteryChargeStatus : " & powerstatus.BatteryChargeStatus)

' Gets the reported full charge lifetime of the primary battery power source in seconds.
MessageBox.Show("BatteryFullLifetime : " & powerstatus.BatteryFullLifetime)

' Gets the approximate amount of full battery charge remaining.
MessageBox.Show("BatteryLifePercent : " & powerstatus.BatteryLifePercent)

' Gets the approximate number of seconds of battery time remaining.
MessageBox.Show("BatteryLifeRemaining : " & powerstatus.BatteryLifeRemaining)

' Gets the current system power status.
MessageBox.Show("PowerLineStatus : " & powerstatus.PowerLineStatus)