หมวดหมู่ : ทิปส์ > ทิปส์ซอฟต์แวร์

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

เมื่อ : 27 ตุลาคม 2553

| ผู้เข้าชม : 7,937

เขียนโดย :

Thaiware

A- A+

แชร์หน้าเว็บนี้ :

เพื่อนๆอยากรู้กันไหมคะว่า เวลา 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 เครื่อง และเมื่อเปิดเครื่องขึ้นมา จะมีหน้าต่างแสดงข้อมูลเวลาในการ Restart เครื่องอขงเราว่าใช้เวลาไปเท่าไหร่

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

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