Reboot.vbs - Bilgisayar Yeniden Başlangıç Süresi Hesaplatma

.Net dilleri hakkında bilgiler, kaynaklar, dökümanlar ve örneklerin bulunduğu bölümümüz.
Cevapla
Kullanıcı avatarı
admin
Sistem Geliştiricisi
Sistem Geliştiricisi
Mesajlar: 957
Kayıt: 28 Ağu 2022 04:38
Konum: Database
Meslek: Teknisyen
Teşekkür etti: 516 kez
Teşekkür edildi: 357 kez
İletişim:

Reboot.vbs - Bilgisayar Yeniden Başlangıç Süresi Hesaplatma

Mesaj gönderen admin »

Resim

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
Resim

Resim

Yeniden başladıktan sonra gelen mesaj ;
Resim

Link:

Kod: Tümünü seç

https://www.mediafire.com/file/02f98765gdmstel/reboot.vbs/file
Daha zeki olmanın tek yolu, daha zeki bir rakiple oynamaktır.

Etiketler:
Vuplay
ARGE Ekip Üyesi
ARGE Ekip Üyesi
Mesajlar: 30
Kayıt: 25 Eyl 2023 09:29
Teşekkür etti: 5 kez
Teşekkür edildi: 17 kez

Okey Re: Reboot.vbs - Bilgisayar Yeniden Başlangıç Süresi Hesaplatma

Mesaj gönderen Vuplay »

Elinize sağlık adminim.
BY VUPLAY
Cevapla

“Visual Basic & .NET Framework” sayfasına dön