Aviso quando a bateria está totalmente carregada

3

Eu gostaria de receber um alerta (com som) quando a bateria do meu laptop estiver totalmente carregada.

Como posso fazer isso?

    
por SilverLight 25.05.2012 / 17:22

2 respostas

4

Tente Monitor de bateria do laptop :

Laptop Battery Monitor, is an intelligent laptop battery monitoring software. It accurately displays an estimated time, until your battery will discharge, or fully charge. You no longer have to worry on how much battery power you have left, when you can have this information in hours, minutes and seconds. Features are display remaining time until the battery is fully discharged (when running on batteries), display remaining time until the battery is fully charged (when the battery is charging from the AC power supply), application runs in system tray, using minimum memory, and screen space, custom indicator colors, sound alerts when charging starts/stops, battery is full charged, or battery charge drops under a predefined percentage, automatically starts when you turn on your laptop. Works with any laptop and battery model, new or used.

    
por 25.05.2012 / 17:40
1

O seguinte script avisa quando a bateria é carregada para 96% e quando cai para 5%. Você pode editar a linha se bCharging e (iPercent > 95) Então msgbox “Battery is at” & iPercent & “%”, VbInformation, “Battery monitor” e substitua o valor em (iPercent > 95) pelo valor que lhe agrada. Salve o script abaixo como Battery.vbs na sua pasta de inicialização para que ele seja executado automaticamente.

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

De este link

    
por 14.01.2015 / 00:53