الحصول على تنبيه عند اكتمال شحن بطارية اللاب توب بدون برامج

الحصول على تنبيه عند اكتمال شحن بطارية اللاب توب بدون برامج

الحصول على تنبيه عند اكتمال شحن بطارية اللاب توب بدون برامج



عند وصول شحن بطارية اللابتوب الى 20% يقوم النظام بشكل افتراضي باصدار اشعار لكن النظام مع الاسف لا يقوم بهذه الخطوة عند وصول شحن البطارية الى 100 %وهنا يحدث أننا ننسى الشاحن موصل باللاب توب لفترة كبيرة مما يؤدى إلى نقص عمر البطارية وفى بعض الأحيان يكون سبب من أسباب أرتفاع درجة حرارة اللاب توب , في هذا الموضوع اليك طريقة و بدون برامج او ادوات خارجية تسهل عليك الحصول على اشعار و تنبيه عند اكتمال شحن بطارية اللابتوب و سنستعين فقط بالمفكرة النوت باد .

مواضيع مشابهة :

1 - افتح النوت باد و ضع داخلها هذا الكود
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 > 100) Then msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor"
  wscript.sleep 30000 ' 5 minutes
wend

2 - بعد لصق الكود ابحث عن رقم 100 
- بدل هذا الرقم ضع الرقم الذي يناسبك هذا الرقم سيكون النسبة التي سيظهر إشعار التنبيه عند وصول شحن البطارية إليها
- مثلا لو قمت بكتابة و تحديد رقم 70 
- سوف تحصل على إشعار عند وصول البطارية إلى

  
3 - بعد تعديل و كتابة الرقم اللي يناسبك داخل الكود 
- قم بحفظ الملف لكن بشرط الحفظ بامتداد vbs 
- ( تابع الصور اسفله )
- اخيرا عند انشاء الملف  عند اكتمال شحن البطارية فى جهازك، وهنا سيكون عليك النقر عليه مرتين بزر الماوس أو دبل كليك لتشغيله فى الخلفية وإشعارك عند وصول شحن البطارية إلى النسبة التى قمت بتحديدها

انتهى الشرح بالتوفيق للجميع
مواضيع مشابهة :



جميع الحقوق محفوظة ل دنيا الكمبيوتر 2017