Chấm điểm tốc độ windows

[thanhthekids]

Sau đây mình xin phép đc tổ chức box này có ý nhằm so sánh tốc độ khởi động lại của chiếc PC của các bạn xem ra sao tốc độ ai là khủng nhất vào đây còn là dị để mình test thử cái pc đánh giá nó nữa đưng cười mình nhé :

Thực Hiện các bước sau;
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\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

Sau đó 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
của mình đây
http://ca9.upanh.com/16.136.20459646.bvu0/gw.png
or:
http://ca6.upanh.com/16.136.20459659.rVc0/nhanh.png

hihi
:d


Copyright © easyvn.net (http://easyvn.net)