Merhaba , eğer bilgisayarınızın yeniden başlama süresini öğrenmek istiyorsanız aşağıda kodları ve ekte hazırlanmış uygulamayı çalıştırabilirsiniz. VbScript komut dosyası olarak hazırlanmıştır.
Aşağıda ki kodu not defteri içine yapıştırıp, dosyayı farklı kaydet derken şu şekilde yenidenbaslat.vbs tarzında kaydederseniz hazırdır. İsterseniz linkten indirebilirsiniz.
Kod: Tümünü seç
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 -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
Yeniden başladıktan sonra gelen mesaj ;
Link:
Kod: Tümünü seç
https://www.mediafire.com/file/02f98765gdmstel/reboot.vbs/file
