Máy mọi người khởi động lại (restart) mất bao lâu !?!

4/23/2010, 21:33

[Thành viên] - BmSyQ
Junior Member

Tổng số bài gửi : 35
Points : 56
Thanked : 6
Join date : 08/04/2010
Age : 36
Đến từ : hanoi

Tiêu đề: Máy mọi người khởi động lại (restart) mất bao lâu !?!


	Mở notepad ra nào, paste toàn bộ code này vào Mã: 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 wscript.Quit Lưu lại bằng tên bất kì có đuôi là .vbs, ví dụ Restarttime.vbs Nhấ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

Máy mọi người khởi động lại (restart) mất bao lâu !?!

Trang 1 trong tổng số 1 trang

* Viết tiếng Việt có dấu là tôn trọng người đọc.
* Hãy cảm ơn người viết để nút Thanks có ý nghĩa .

Permissions in this forum:

Bạn không có quyền trả lời bài viết