通过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 class的实例）。

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

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)