Если по какой-либо причине вы хотите получать уведомление, когда батарея вашего ноутбука будет полностью заряжена, ОС Windows не сможет вам как таковая помочь. Вы можете изменить «Критическое и низкоуровневое действие батареи», а также «Уведомления о низком уровне заряда батареи», но просто нет доступных настроек, которые сообщали бы, когда батарея вашего ноутбука была полностью заряжена. В этом посте мы увидим, как создать уведомление о полной зарядке батареи, предупреждение или тревогу для вашего ноутбука с Windows 10/8/7 без использования какого-либо программного обеспечения.
Создать уведомление о полной зарядке аккумулятора ноутбука
Откройте Блокнот на рабочем столе Windows и скопируйте в него следующий код.
set oLocator = CreateObject ("WbemScripting.SWbemLocator") set oServices = oLocator.ConnectServer (".", "root \ wmi") set oResults = oServices.ExecQuery («выбрать * из полной зарядки аккумулятора») за каждый результат в результатах iFull = oResult.FullChargedCapacity следующий пока (1) set oResults = oServices.ExecQuery ("выбрать * из состояния батареи") за каждый результат в результатах iRemaining = oResult.RemainingCapacity bCharging = oResult.Charging следующий iPercent = ((iRemaining/iFull) * 100) мод 100 если bCharging и (iPercent> 95), то msgbox «Батарея в» и iPercent & «%», vbInformation, «Монитор батареи» wscript.sleep 30000 '5 минут Венд
В меню «Файл блокнота» выберите «Сохранить как», а затем в диалоговом окне «Сохранить как», которое в разделе «Тип файла» выберите «Все файлы».
Затем дайте файлу любое имя вместе с расширением .vbs. Например, вы можете назвать файл как FullBat.vbs. Нажмите Сохранить, чтобы сохранить сценарий VBS на рабочем столе или в любом другом месте по вашему выбору.
Вы также можете щелкнуть по нему правой кнопкой мыши и выбрать «Создать ярлык». После этого переместите ярлык в папку автозагрузки Windows 10, расположенную по адресу:
C: \ ProgramData \ Microsoft \ Windows \ Пуск \ Меню \ Программы \ Автозагрузка
Таким образом, каждый раз, когда загружается ваш ноутбук, скрипт начинает мониторинг. Это все, что вам нужно сделать.
Вы также можете сразу щелкнуть по нему, чтобы сразу запустить скрипт. Как только он запустится, он начнет контролировать состояние батареи.
Когда заряд аккумулятора превысит 95%, вы услышите сигнал тревоги и увидите следующее всплывающее уведомление.
Скрипт устанавливает уведомление, чтобы оно появлялось, когда оно пересекает 95%. При желании вы можете изменить его на 99%.
Это сработало для меня. Дайте нам знать, если это сработало и для вас.
Чтобы удалить его, вы должны удалить его из папки Programs \ StartUp , в которую вы его поместили.
Сигнализация батареи и монитор батареи ноутбука являются хорошими бесплатными программами, которые сообщат вам, когда ваша батарея полностью зарядится. Взгляни на них тоже. BATExpert – еще один хороший инструмент, который может вас заинтересовать, поскольку он показывает текущее состояние батареи, установленной в вашем ноутбуке, а также предоставляет другую подробную информацию о ней, такую как тип батареи, производитель, напряжение и температура и т. Д.
Источник: TechNet.
Добрый день!
Спасибо за интересную статью, однако скрипт не работает.
При попытке запуска постоянно пишет что ошибка в строке где есть русские слова.
Возможно нужно сохранить файл ещё в Блокноте ещё и с определённой кодировкой?…
Помогите, пожалуйста, решить проблему.
Скрипт очень нужен, так как жена частенько когда аккум ноута уже заряжен на 100% оставляет его на подзарядке ещё более часа и мне постоянно приходится это проверять.
Спасибо!
Правильный скрипт (значение 98 – проценты, меняйте для себя!)
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 > 98) Then msgbox “Battery is fully charged”
wscript.sleep 30000 ‘ 5 minutes
wend
К сожалению не работает. Ошибка в строке 1 в 29 символе
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 > 94) Then msgbox “Battery is fully charged”
wscript.sleep 30000 ‘ 5 minutes
wend
замени кавычки
Поменяйте все кавычки “ на “. (То есть сотрите скопированные кавычки и напишите вручную). На всякий случай, таким же образом поменяйте апостроф в предпоследней строке