Subscribe Us

มาเช็คกันว่า Windows 7 ของท่าน ใช้เวลาในการ Restart นานแค่ไหน

เปิด 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_USER\Software\RestartTime\”
KeyB = “HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr  entVersion\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
            wscript.Quit
เซฟเป็นชื่อไรก็ได้ แต่นามสกุลต้องเป็น XXX.VBS
XXX นี่คือชื่อที่คุณตั้ง
คลิกเข้าไป แล้วกด OK

แสดงความคิดเห็น

0 ความคิดเห็น