Mở notepad ra nào, paste toàn bộ code này vào
Mã:
Option ExplicitOn Error Resume NextDim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiffMsgA = "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 = "" thenMsgResult = Msgbox (MsgA, vbOKCancel, AppName)If MsgResult = vbcancel then WScript.QuitWsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"Wsh.RegWrite KeyB, PathFile, "REG_SZ"Wsh.Run "cmd /c Shutdown -r -t 00", false, 0 elseWsh.RegDelete KeyA & "Times"Wsh.RegDelete KeyAWsh.RegDelete KeyBTimeDiff = DateDiff("s",Result,left(Time,8))MsgBox "Your computer restarts in " & TimeDiff & " seconds", VbInformation, AppNameend ifwscript.Quit
Lưu lại bằng tên bất kì có đuôi là .vbs, ví dụ Restarttime.vbsNhấp vào file vừa lưu lại đó, hé hé, máy sẽ khởi động lại, sau khi khởi động xong, nó sẽ hiện thông báo cho bạn là máy khởi động lại mất bao lâu
Nguồn: http://windowsz.net
Mã:
Option ExplicitOn Error Resume NextDim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiffMsgA = "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 = "" thenMsgResult = Msgbox (MsgA, vbOKCancel, AppName)If MsgResult = vbcancel then WScript.QuitWsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"Wsh.RegWrite KeyB, PathFile, "REG_SZ"Wsh.Run "cmd /c Shutdown -r -t 00", false, 0 elseWsh.RegDelete KeyA & "Times"Wsh.RegDelete KeyAWsh.RegDelete KeyBTimeDiff = DateDiff("s",Result,left(Time,8))MsgBox "Your computer restarts in " & TimeDiff & " seconds", VbInformation, AppNameend ifwscript.Quit
Lưu lại bằng tên bất kì có đuôi là .vbs, ví dụ Restarttime.vbsNhấp vào file vừa lưu lại đó, hé hé, máy sẽ khởi động lại, sau khi khởi động xong, nó sẽ hiện thông báo cho bạn là máy khởi động lại mất bao lâu
Nguồn: http://windowsz.net