web-dev-qa-db-ja.com

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

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

どうやってやるの？

windows-7windowslaptopbattery
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