Отключить полное уведомление о платной зарядке в ноутбуке с Windows 10 - PullRequest
Новая
       35

Отключить полное уведомление о платной зарядке в ноутбуке с Windows 10

0 голосов
/ 27 января 2019

Следующий скрипт предупреждает вас, когда батарея заряжается до 96%, а когда она падает до 5%.

Я хочу отключить это предупреждение.Итак, есть ли какой-либо сценарий или способ его отключить? 

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
...