View Single Post
Staro 22.04.2010., 10:58   #1
Astra
Premium
 
Datum registracije: Jun 2007
Lokacija: Earth
Postovi: 538
Testirajte brzinu restarta vašeg računala

Evo jedna zanimljiva stvar na koju sam naletio,
koliko je potrebno vašem računalu da se restarta.
Skinite sljedeću skriptu:

http://forum.pcekspert.com/attachmen...1&d=1271926594


Ili možete ručno sljedeći tekst:

Code:
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
spremite kao restart.vbs i to je to.

a evo moj score:

http://img85.imageshack.us/img85/7622/52606939.jpg

Athlon 2350 BE
2 Gb RAM

Svi procesi uključeni.
Attached Files
File Type: rar restart.rar‎ (608 byte, 485 views)
Astra je offline   Reply With Quote