oveco
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| Самое простое, это скачать по ссылке из шапки Закладки и портативный редактор реестра Registrar Registry Manager |
Спасибо за дополнения! Предвидя ответ ночью скачал Registrar Registry Manager - буду пробовать...
Цитата: KLASS
Каким инструментом измерял время загрузки? |
restart time:
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 -f -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 takes " & TimeDiff & " seconds to completely restart.", VbInformation, AppName
end if
wscript.Quit
Создаем vbs и пользуемся... |
Всего записей: 191 | Зарегистр. 15-11-2015 | Отправлено: 09:43 02-06-2018 | Исправлено: oveco, 09:46 02-06-2018 |
|
