☰

Advertencia cuando la batería está completamente cargada

tag-icon • tag-icon windows-7 windows laptop battery
Advertencia cuando la batería está completamente cargada

Me gustaría recibir una alerta (con sonido) cuando la batería de mi computadora portátil esté completamente cargada.

¿Cómo puedo hacer eso?

Respuesta1

IntentarMonitor de batería del ordenador portátil:

Laptop Battery Monitor, es un software inteligente de monitoreo de batería de portátiles. Muestra con precisión un tiempo estimado hasta que la batería se descargue o se cargue por completo. Ya no tendrás que preocuparte por cuánta batería te queda, cuando podrás tener esta información en horas, minutos y segundos. Las características son mostrar el tiempo restante hasta que la batería esté completamente descargada (cuando funciona con baterías), mostrar el tiempo restante hasta que la batería esté completamente cargada (cuando la batería se está cargando desde la fuente de alimentación de CA), la aplicación se ejecuta en la bandeja del sistema, usando memoria mínima, y espacio de pantalla, colores de indicadores personalizados,Alertas sonoras cuando la carga comienza o se detiene, la batería está completamente cargada o la carga de la batería cae por debajo de un porcentaje predefinido, se inicia automáticamente cuando enciende su computadora portátil.Funciona con cualquier modelo de computadora portátil y batería, nueva o usada.

Respuesta2

El siguiente script le avisa cuando la batería se ha cargado al 96 % y cuando cae al 5 %. Puede editar la línea si bCharging y (iPercent > 95) Luego msgbox "La batería está en" & iPercent & "%", vbInformation, "Monitor de batería" y reemplazar el valor en (iPercent > 95) por el valor que más le convenga. Guarde el siguiente script como Battery.vbs en su carpeta de Inicio para que se ejecute automáticamente.

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

Deeste enlace

información relacionada