web-dev-qa-db-ja.com

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

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

どうやってやるの?

3
SilverLight

試してください ラップトップバッテリーモニター

ラップトップバッテリーモニターは、インテリジェントなラップトップバッテリー監視ソフトウェアです。バッテリーが放電するまで、または完全に充電されるまでの推定時間を正確に表示します。この情報を数時間、数分、数秒で取得できる場合は、バッテリーの残量を心配する必要はありません。機能は、バッテリーが完全に放電するまでの残り時間を表示する(バッテリーで実行している場合)、バッテリーが完全に充電されるまでの残り時間を表示する(バッテリーがAC電源から充電している場合)、アプリケーションは最小メモリを使用してシステムトレイで実行されます。画面スペース、カスタムインジケーターの色、充電の開始/停止、バッテリーのフル充電、またはバッテリーの充電が事前定義された割合を下回ると、ラップトップの電源を入れると自動的に起動します。新品または中古のラップトップおよびバッテリーモデルで動作します。

4
Diogo

次のスクリプトは、バッテリーが96%に充電されたとき、および5%に低下したときに警告します。 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

から このリンク

1
runningonplants