☰

バッテリーが完全に充電されたときの警告

tag-icon • tag-icon windows-7 windows laptop battery
バッテリーが完全に充電されたときの警告

ノートパソコンのバッテリーが完全に充電されたときに、アラート（音付き）を受け取りたいです。

どうやってやるの？

答え1

試すノートパソコンのバッテリーモニター:

ラップトップ バッテリー モニターは、インテリジェントなラップトップ バッテリー監視ソフトウェアです。バッテリーが放電または完全に充電されるまでの推定時間を正確に表示します。この情報を時間、分、秒で表示できるので、バッテリーの残量を心配する必要がなくなります。機能には、バッテリーが完全に放電するまでの残り時間の表示 (バッテリーで動作している場合)、バッテリーが完全に充電されるまでの残り時間の表示 (AC 電源からバッテリーを充電している場合)、アプリケーションがシステム トレイで動作し、メモリと画面スペースを最小限に使用し、インジケーターの色をカスタマイズする機能などがあります。充電が開始/停止したとき、バッテリーが完全に充電されたとき、またはバッテリーの充電量が定義済みのパーセンテージを下回ったときにサウンドアラートが鳴り、ノートパソコンの電源を入れると自動的に開始されます。新品、中古を問わず、あらゆるラップトップおよびバッテリー モデルで動作します。

答え2

次のスクリプトは、バッテリーが 96% まで充電されたときと、5% まで低下したときに警告を発します。if bCharging and (iPercent > 95) Then msgbox “Battery is at ” & iPercent & “%”,vbInformation, “Battery monitor” の行を編集し、(iPercent > 95) の値を任意の適切な値に置き換えることができます。以下のスクリプトを Battery.vbs としてスタートアップ フォルダーに保存すると、自動的に実行されます。

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

からこのリンク

関連情報