☰

电池充满电时发出警告

tag-icon • tag-icon windows-7 windows laptop battery
电池充满电时发出警告

当我的笔记本电脑电池充满电时，我想收到警报（带有声音）。

我怎样才能做到这一点？

答案1

尝试笔记本电脑电池监视器：

笔记本电脑电池监视器是一款智能笔记本电脑电池监视软件。它准确地显示电池放电或完全充电的估计时间。您不再需要担心电池剩余电量，因为您可以获得以小时、分钟和秒为单位的信息。功能包括显示电池完全放电的剩余时间（使用电池供电时）、显示电池完全充电的剩余时间（使用交流电源为电池充电时）、应用程序在系统托盘中运行、使用最少的内存和屏幕空间、自定义指示器颜色，当充电开始/停止、电池充满电或电池电量降至预定义的百分比以下时会发出声音警报，并在您打开笔记本电脑时自动启动。适用于任何笔记本电脑和电池型号，无论是新的还是二手的。

答案2

以下脚本会在电池充电至 96% 和充电至 5% 时提醒您。您可以编辑行 if bCharging and (iPercent > 95) Then msgbox “Battery is at ” & iPercent & “%”,vbInformation, “Battery monitor”，并将 (iPercent > 95) 中的值替换为您所需的任何值。将以下脚本保存为启动文件夹中的 Battery.vbs，使其自动运行。

set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oServices = oLocator.ConnectServer(".","root\wmi")
set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")
for each oResult in oResults
iFull = oResult.FullChargedCapacity
next

while (1)
set oResults = oServices.ExecQuery("select * from batterystatus")
for each oResult in oResults
iRemaining = oResult.RemainingCapacity
bCharging = oResult.Charging
next
iPercent = ((iRemaining / iFull) * 100) mod 100
if bCharging and (iPercent > 95) Then msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor"
wscript.sleep 30000 ' 5 minutes
wend

从此链接

相关内容