☰

Warnung, wenn der Akku vollständig geladen ist

tag-icon • tag-icon windows-7 windows laptop battery
Warnung, wenn der Akku vollständig geladen ist

Ich möchte eine Warnung (mit Ton) erhalten, wenn der Akku meines Laptops vollständig aufgeladen ist.

Wie kann ich das machen?

Antwort1

VersuchenLaptop-Batterie-Monitor:

Laptop Battery Monitor ist eine intelligente Überwachungssoftware für Laptop-Akkus. Sie zeigt die geschätzte Zeit bis zur Entladung oder vollständigen Aufladung Ihres Akkus genau an. Sie müssen sich keine Gedanken mehr darüber machen, wie viel Akkuleistung noch übrig ist, denn diese Informationen können Sie in Stunden, Minuten und Sekunden abrufen. Zu den Funktionen gehören die Anzeige der verbleibenden Zeit bis zur vollständigen Entladung des Akkus (bei Batteriebetrieb), die Anzeige der verbleibenden Zeit bis zur vollständigen Aufladung des Akkus (bei Aufladung über das Netzteil), die Ausführung der Anwendung in der Taskleiste mit minimalem Speicher- und Bildschirmplatzbedarf sowie benutzerdefinierte Anzeigefarben.Akustische Warnungen, wenn der Ladevorgang startet/stoppt, der Akku voll geladen ist oder der Akkuladestand unter einen vordefinierten Prozentsatz fällt, werden automatisch ausgelöst, wenn Sie Ihren Laptop einschalten.Funktioniert mit jedem Laptop und Batteriemodell, neu oder gebraucht.

Antwort2

Das folgende Skript benachrichtigt Sie, wenn der Akku auf 96 % geladen ist und wenn er auf 5 % fällt. Sie können die Zeile if bCharging and (iPercent > 95) Then msgbox „Battery is at ” & iPercent & „%”,vbInformation, „Battery monitor” bearbeiten und den Wert in (iPercent > 95) durch einen beliebigen Wert ersetzen. Speichern Sie das folgende Skript als Battery.vbs in Ihrem Startordner, damit es automatisch ausgeführt wird.

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

Ausdieser Link

verwandte Informationen