Yeni laptop aldım, alalı 1-2 ay oldu ama ultrabook olduğu için şarja çok özen gösteriyorum. Sürekli Şarjda tutmuyorum, ve %100 olunca şarjdan hemen çıkarıyorum. Bunun için program bulamadım ancak vbs dosyası ile bunu hallettim.

Kodlar tamamen yabancı forumdan alıntıdır.

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 "Batarya Tamamen Doldu! " & iPercent & "%",vbInformation, "Batarya Uyarıcı"
  wscript.sleep 30000 ' 5 minutes
wend

nodepad++ ile kodlamayı ansi yapın ve full.vbs olarak kaydedin.

sonra full.vbs dosyamızı, c klasörünün içine atıyoruz. sağ tıklayıp masaüstüne kısayol olarak yolluyoruz.

masaüstündeki kısayolu

C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp

buraya atıyoruz ve 1 kere yeniden başlatıyoruz. Böylece şarj %100 olduğunda ekrana uyarı basacak ve şarjdan çıkaracağız.