Windows-10电池指示灯Visual Basic脚本
Windows-10电池指示灯Visual Basic脚本
提问于 2019-09-02 18:07:42
我从网上拿到了一些警告指示器的代码。我用它来警告我，当电池正在充电，电池电量超过80%。
但我也想用它在电池电量低于20%时提醒我。我已经为这个20%的警告添加了一行，但它不起作用。当电池电量超过80%时，它可以工作，但当电池电量低于20%时，它就不起作用了。
我认为代码是用Visual Basic Script (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 > 80) Then msgbox "Battery is charged now more than 80%. Please stop charging for optimal battery life."
if bCharging and (iPercent < 20) Then msgbox "Battery is discharging and is below 20%. Please switch on charging immediately."
wscript.sleep 30000 ' 5 minutes
wend回答 1
Stack Overflow用户
发布于 2021-09-27 10:25:59
将- if bCharging and (iPercent < 20)更改为if iRemaining and (iPercent < 20)，因为插入电源时为bCharging，使用电池时为iRemaining
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/57755063
复制相关文章
相似问题
腾讯云开发者
