Yeniden Başlama Zamanını Ölçme
Yeniden Başlama Zamanını Ölçme
Yeniden Başlama Zamanını Ölçme
Yeniden Başlama Zamanını Ölçme - wındows 7de Yeniden Başlama Zamanını Ölçme
http://2.bp.blogspot.com/_BXwcUicKMGc/S3B-ONYfh7I/AAAAAAAAAKY/DWuqN7aepw4/s320/live_optimizer_128x128.png
http://3.bp.blogspot.com/_BXwcUicKMGc/S3lURkxF-ZI/AAAAAAAAAhg/pE4oqObXEag/s320/RedScriptAlt-128.png
1- Masaüstüne yeni bir "Metin Belgesi" açın ve aşağıda ki kodları kopyalayıp yapıştırın.
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_USERSoftwareRestartTime"
KeyB = "HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionRunRestartTime"
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 -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
2- "Metin Belgesi"nde ki dosya kısmına tıklayıp "Farklı Kaydet" yoluyla "reboot.vbs" adıyla metni masaüstüne kaydedin. "reboot" kısmına istediğiniz herhangi bir adı verebilirsiniz fakat sonu ".vbs" ile bitmeli. Şimdi masaüstünüzde "reboot" adında bir dosya belirecek.
3- Bu dosyaya çift tıklayın çıkan dialog kutusuna "Tamam" demeden önce bütün açık programlarınızı kapatın -aksi takdirde süre uzayacaktır- ve "Tamam" deyin.
Artık bilgisayarınız tekrar başlatılacak ve açıldığında süre size bu şekilde gösterilecektir.
http://img200.imageshack.us/img200/268/1272172009630115046.jpg
* Bu script kayıt defterine iki anahtar ekleyerek çalışıyor fakat işi bittiğinde bu anahtarları otomatik olarak siliyor.Yani pc de herhangi bir artık bırakmıyor bu yüzden içiniz rahat olabilir
* Xp dede çalışıyor.
Yeniden Başlama Zamanını Ölçme
Yeniden Başlama Zamanını Ölçme - wındows 7de Yeniden Başlama Zamanını Ölçme
http://2.bp.blogspot.com/_BXwcUicKMGc/S3B-ONYfh7I/AAAAAAAAAKY/DWuqN7aepw4/s320/live_optimizer_128x128.png
http://3.bp.blogspot.com/_BXwcUicKMGc/S3lURkxF-ZI/AAAAAAAAAhg/pE4oqObXEag/s320/RedScriptAlt-128.png
1- Masaüstüne yeni bir "Metin Belgesi" açın ve aşağıda ki kodları kopyalayıp yapıştırın.
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_USERSoftwareRestartTime"
KeyB = "HKEY_CURRENT_USERSoftwareMicrosoftWindows Curr entVersionRunRestartTime"
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 -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
2- "Metin Belgesi"nde ki dosya kısmına tıklayıp "Farklı Kaydet" yoluyla "reboot.vbs" adıyla metni masaüstüne kaydedin. "reboot" kısmına istediğiniz herhangi bir adı verebilirsiniz fakat sonu ".vbs" ile bitmeli. Şimdi masaüstünüzde "reboot" adında bir dosya belirecek.
3- Bu dosyaya çift tıklayın çıkan dialog kutusuna "Tamam" demeden önce bütün açık programlarınızı kapatın -aksi takdirde süre uzayacaktır- ve "Tamam" deyin.
Artık bilgisayarınız tekrar başlatılacak ve açıldığında süre size bu şekilde gösterilecektir.
http://img200.imageshack.us/img200/268/1272172009630115046.jpg
* Bu script kayıt defterine iki anahtar ekleyerek çalışıyor fakat işi bittiğinde bu anahtarları otomatik olarak siliyor.Yani pc de herhangi bir artık bırakmıyor bu yüzden içiniz rahat olabilir
* Xp dede çalışıyor.