تست سرعت ریستارت شدن در لپ تاپ های مختلف
این تست برای اینه که سرعت ریستارت شدن سیستم های مختلف رو نشون بده. نتیجه ی این تست به سرعت هارد, سرویس های در حال اجرا, رم و حتی سی پی یو ربط داره. پس برای اینکه سرعت بوت شدن ویندوز رو در لپ تاپ های مختلف مقایسه بکنید, میتونید در این تست شرکت کنید و نتیجه رو اعلام کنید تا بقیه هم استفاده کنند.
نحوه انجام تست:
1. فایل Restart-Time.zip را از لینک زیر دانلود کنید.
کد:
http://shahabf.persiangig.com/software/Restart-Time.vbs
کد:
http://www.sevenforums.com/attachments/tutorials/1099d1227815166-restart-time-restart-time.zip
2. فایل Restart-Time.zip را بعد از دانلود کردن از zip خارج کنید تا فایل Restart-Time.vbs داخل یک فولدر قرار بگیره.
نکته: برای کسانی که میخواهند بدونند داخل این فایل VBS چه کدهایی وجود داره میتونند این کدها را در زیر مشاهده کنند.
کد:
Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Please close all running applications and click on OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "Restart-Time"
Set Wsh = CreateObject("WScript.Shell")
PathFile = """" & WScript.ScriptFullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.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 "Your computer restarts in " & TimeDiff & " seconds", VbInformation, AppName
end if
