Бывает так, что нужно выключить компьютер в определенное время без участия человека. Например, оставили качаться объемный файл и ушли на работу. Или мой случай - включаю перед сном кино онлайн и на середине благополучно засыпаю. Что же делать? Можно воспользоваться планировщиком задач. Но это неудобно, если выключение нужно производить нерегулярно или каждый раз в разное время. Можно скачать программу для этих целей. Но этот случай не для нас. Я предлагаю нацарапать программку своими силами в блокноте. В этот раз будем использовать язык VBScript. Что это такое? В Windows есть встроенный компонент Windows Scripting Host, предназначеный для запуска программ на скриптовых языках VBScript и JScript. Эти языки являются интерпретируемыми и не требуют каких-либо дополнительных программ для компиляции, т.е. хранятся в том виде, в котором написаны. Открываем блокнот и пишем (красным цветом выделены комментарии, их набирать не обязательно): Dim v, m, c 'объявляем переменные Set c = WScript.CreateObject("WScript.Shell") 'создаем объект v=inputbox ("Через сколько минут отключить компьютер?","Время") 'Просим пользователя ввести время if IsNumeric(v) then 'Проверяем числовое ли значение введено If v>0 Then 'Проверяем больше ли нуля введенное значение m=v*60000 ' переводим минуты в миллисекунды msgbox "Через "& v & " мин. компьютер будет отключен",0,"" 'Выводим сообщение WScript.sleep m 'Ждем заданное время c.run("shutdown.exe -s -t 2") ' Запускаем shutdown.exe else msgbox "меньше 1 мин" , 0 , "Ошибка" 'Выводим сообщение об ошибке End If else msgbox "Введена не цифра", 0, "Ошибка" 'Выводим сообщение об ошибке end if set c = nothing 'уничтожаем объект Сохраняем файл с расширением *.vbs и запускаем. Теперь мы можем выключить компьютер через заданное количество минут.
А тут можно взять готовый файл. |