มาเช็คเวลา Restart เครื่องอคมพิวเตอร์ของเรากันดูคะว่า ใช้เวลาไปเท่าไหร่

เพื่อนๆอยากรู้กันไหมคะว่า เวลา Restart เครื่องแต่ละครั้งนั้นใช้เวลาไปเท่าไหร่กัน

โดยเพื่อนๆๆ copy code นี้ไปแปะไว้ที่ Notepad คะ
 
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_USERSoftwareRestartTime"
KeyB = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRunRestartTime"
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
wscript.Quit

แล้วเซฟ ไฟล์ชื่อ Start_Time.VBS  เอาไว้หน้า Desktop  icon จะเป็นแบบนี้คะ




และเมื่อดับเบิลคลิกแล้ว โปรแกรมจะถามว่าเราจะ Restart  หรือไม่หากเรากดไปที่ใช่ เครื่องจะทำการ Restart เครื่อง และเมื่อเปิดเครื่องขึ้นมา จะมีหน้าต่างแสดงข้อมูลเวลาในการ Restart เครื่องอขงเราว่าใช้เวลาไปเท่าไหร่



นี้เป็นหน้าต่างแสดงเวลาเครื่องของเหม่ยลี่คะ  ใช้เวลาไป 90 วินาที ซึ่งก็ช้าเอาการอยู่