(مسابقة اسرع حاسوب) اعرف المدة التي يستغرقها حاسوبك في اعادة التشغيل

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]



نفتح demarrer / start ثم نافذة الأوامر run / executer

الآن نكتب الأمر notepad ونضغط على ok

فتظهر لنا النافذة

قم بنسخ مايلي وألصقه في تلك النافذة

Option Explicit
On Error Resume Next

Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff

MsgA = "Pour chronométrer le redémarrage, veuillez fermer toutes les applications en cours et cliquer 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,, "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,)
MsgBox "PC redémarré en " & TimeDiff & " secondes", VbInformation, AppName
end if

w--SS--.Quit

الآن جاء وقت حفظ الملف

نحفظ الملف بالصيغة vbs.

ثم اضغط عليه

ثم بعد اعادة التشغيل


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

ثم تظهر المدة التي قضاها في اعادة التشغيل

انتم ايضا اكتبوا المدة لكي نعلن على الحاسوب الاسرع

مع تحياتي