Batarya Azaldı Mesajı

[baydeniro]

Merhaba Arkadaşlar,
wede yaptıpım arşatırmada "Pil Doldu" mesajı veren bir kod buldum. Aşağıdaki kodu notepade yaptırıp uzantısını .VBS olarak kaydedip, Start klasörüne kaydedince pil dolduüunda haber veriyor. Gayet güel çalışıyor ben denedim.
Acaba bu kou "Pil azaldığı" zaman da mesaj verecek şekilde revize etmek mümkün müdür ? Örneğin iPercent < 10

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 > 99) Then msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor"
wscript.sleep 30000 ' 5 minutes
wend

 

[Emir Hüseyin Çoban]

.

Merhaba,
sorunuzu daha önce başka bir başlıkta görmüştün. Vakit biraz geç olduğu için yanıt yazamamıştım. Sonrada unutmuşum...
Arada sorularınızı tazelemek çözüme ulaşmak için iyi olabilir. Ancak yeni konu açmanıza gerek yoktu.

Şu kodları deneyiniz.

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 = FALSE and iPercent < 20 Then msgbox "Sarj Durumu: " & iPercent & "%" & chr(10) & "Cihazı Sarj Edin!..",vbInformation, "Sarj Uyarısı"
wscript.sleep 50000
wend

.