Я хотел бы получить оповещение (со звуком), когда батарея моего ноутбука полностью заряжена.
Как я могу это сделать?
2 ответа
4
Попробуйте монитор батареи ноутбука:
Портативный монитор батареи, это интеллектуальное программное обеспечение для мониторинга батареи ноутбука. Он точно отображает приблизительное время, пока ваша батарея не разрядится или полностью не зарядится. Вам больше не нужно беспокоиться о том, сколько заряда батареи у вас осталось, когда вы можете получить эту информацию в часах, минутах и секундах. К функциям относятся отображение оставшегося времени до полной разрядки батареи (при работе от батарей), отображение оставшегося времени до полной зарядки батареи (когда батарея заряжается от источника питания переменного тока), приложение запускается в системном трее с использованием минимального объема памяти, и место на экране, пользовательские цвета индикаторов, звуковые оповещения, когда зарядка начинается / останавливается, аккумулятор полностью заряжен или заряд аккумулятора падает ниже предопределенного процента, автоматически запускается при включении ноутбука. Работает с любой моделью ноутбука или батареи, новой или подержанной.
1
Следующий скрипт предупреждает вас, когда батарея заряжается до 96%, а когда она падает до 5%. Вы можете отредактировать строку, если bCharging и (iPercent> 95), затем 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
По этой ссылке