Windows 8'de Yeniden Başlama Zamanını Ölçme

I YOL:

Yeniden Başlat.vbs ,s,ml dosyayı şuradan çekin.

[url]https://hotfile.com/dl/195127281/c92fff2/Yeniden_Balat.rar.html[/url] 

 rardan çıkardığınızda rardan yenidenbaslat.vbs isimli bir dosya çıkacaktır.


II. YOL:

yenidenbaslat.vbs isimli dosyayı kendiniz oluşturarak başlangıç zamanını ölçebilirsiniz işte kodları

yenidenbaslat.vbs kod

masaüstünüze yeni metin belgesi açıp kodları yapıştırın uzantı .vbs olmalıdır



[code]

Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Lütfen bütün açık uygulamaları kapatın ve TAMAM deyin."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "Yeniden başlama zamanını ölç"
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 -f -t 00", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "Bilgisayarınızın yeniden baslatılması " & TimeDiff & " saniye surdu", VbInformation, AppName
end if
wscript.Quit  

[/code]

 
Bu oluşan scripte çift tıklyıp başlanhıç zamanını ölçebilirsiniz .

Not: Bu script dosaysını silinmeyecek bir yere taşıyınız .

enpedi den alıntıdır.