☰

Aviso quando a bateria está totalmente carregada

tag-icon • tag-icon windows-7 windows laptop battery
Aviso quando a bateria está totalmente carregada

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

Como eu posso fazer isso?

Responder1

TentarMonitor de bateria de laptop:

Laptop Battery Monitor é um software inteligente de monitoramento de bateria de laptop. Ele exibe com precisão um tempo estimado até a bateria descarregar ou carregar totalmente. Você não precisa mais se preocupar com a quantidade de bateria restante, pois pode ter essas informações em horas, minutos e segundos. Os recursos são exibir o tempo restante até que a bateria esteja totalmente descarregada (quando estiver funcionando com baterias), exibir o tempo restante até que a bateria esteja totalmente carregada (quando a bateria estiver carregando da fonte de alimentação CA), o aplicativo é executado na bandeja do sistema, usando o mínimo de memória, e espaço na tela, cores de indicadores personalizados,alertas sonoros quando o carregamento inicia/para, a bateria está totalmente carregada ou a carga da bateria cai abaixo de uma porcentagem predefinida, inicia automaticamente quando você liga seu laptop.Funciona com qualquer modelo de laptop e bateria, novo ou usado.

Responder2

O script a seguir alerta quando a bateria está carregada até 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 substituir o valor em (iPercent > 95) pelo valor que mais lhe convier. 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

Deesse link

informação relacionada