عند وصول شحن بطارية اللابتوب الى 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
- ( تابع الصور اسفله )
اخيرا عند انشاء الملف عند اكتمال شحن البطارية فى جهازك، وهنا سيكون عليك النقر عليه مرتين بزر الماوس أو دبل كليك لتشغيله فى الخلفية وإشعارك عند وصول شحن البطارية إلى النسبة التى قمت بتحديدها
انتهى الشرح بالتوفيق للجميع
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
- ( تابع الصور اسفله )
اخيرا عند انشاء الملف عند اكتمال شحن البطارية فى جهازك، وهنا سيكون عليك النقر عليه مرتين بزر الماوس أو دبل كليك لتشغيله فى الخلفية وإشعارك عند وصول شحن البطارية إلى النسبة التى قمت بتحديدها
انتهى الشرح بالتوفيق للجميع
مواضيع مشابهة :