☰

Предупреждение о полной зарядке аккумулятора

tag-icon • tag-icon windows-7 windows laptop battery
Предупреждение о полной зарядке аккумулятора

Я хотел бы получать оповещение (со звуком), когда аккумулятор моего ноутбука полностью заряжен.

Как мне это сделать?

решение1

ПытатьсяМонитор батареи ноутбука:

Laptop Battery Monitor — это интеллектуальное программное обеспечение для мониторинга батареи ноутбука. Оно точно отображает предполагаемое время, пока ваша батарея не разрядится или полностью не зарядится. Вам больше не нужно беспокоиться о том, сколько заряда батареи осталось, когда вы можете получить эту информацию в часах, минутах и ​​секундах. Функции: отображение оставшегося времени до полной разрядки батареи (при работе от батареи), отображение оставшегося времени до полной зарядки батареи (при зарядке батареи от источника переменного тока), приложение запускается в системном трее, используя минимум памяти и места на экране, настраиваемые цвета индикатора,звуковые оповещения о начале/остановке зарядки, полном заряде аккумулятора или падении уровня заряда аккумулятора ниже заданного процента автоматически включаются при включении ноутбука.Подходит для любых моделей ноутбуков и аккумуляторов, как новых, так и бывших в употреблении.

решение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

Отэта ссылка

Связанный контент