قس سرعة بدء تشغيل الكمبيوتر

أول شيء و هو فتح Démarrer


ثاني شيء و هو فتح الحافظة (Bloc-notes)

وذلك بعد المرور على كل من

Tous les programmes / Accessoires

عند فتح البلوك نوت

نقوم بنسخ مايلي حرفا حرفا وكمت هو مبين

ينصح النسخ من هنا

الكود:

Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff

MsgA = "Fermez toutes les applications en cours et cliquez sur OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "Restart-Time"
Set Wsh = CreateObject("W--SS--.Shell")
PathFile = """" & W--SS--.--SS--FullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then W--SS--.Quit
Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 00", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "PC redémarré en " & TimeDiff & " secondes", VbInformation, AppName
end if
w--SS--.Quit

كما هو ظاهـــر امامكم:

ثم نقوم بالحفظ بالذهاب الى إطار الخيارات



Fichier / Enregistrer-sous.

كمـــا هو موضح

إسحب السهم أسفل القائمة وحدد نوع Type
إلى كافة الملفات Tous les fichiers .
ثم الحفظ في سطح المكتب لتسهيل عناء البحث عن الملف
كما هو ضاهر في الصورة التالية:

قم بتسميته: Restart-Time.vbs

ثم حفظ (Enregistrer)

نقوم بغلق البلـــوك نوت
ستظهر لكم هذه الايقونة أو بمعنى آخــــر برنامج
نقوم بالنقر عليه مرتين لتشغيله.

سيطلب منا إغلاق كافة البرامج المشغلة
نقوم بذلك ثم نقوم بالضغط على ok

سيعيد الجهاز التشغيل ثم أول نافذة ستظهر
هي هذه النافذة التي تعطينا كم استغرق الكمبيوتر من ثوان (وقت)
في الأخير كلنا يرغب في تسريع بدء تشغيل الكمبيوترات

لذا أنصح بالبحث عن الملفات التي لا فائدة منهاو حذفها لتسريع

الأجهزة

فهذه الطريقة التي قدمتها اليكم ماهي إلا لقياس

سرعة تشغيل (ديماراج) الاجهزة