[решено] Выключение ПК с возможностью отмены

[okshef]

Blast, а можно счетчик секунд до выключения добавить?

[DemchaAV]

Спасибо огромное
У меня почему то всё написано вот такhttp://s1.hostingkartinok.com/uploads/images/2015/03/a0fdf5daa1d8fbebd8efcb746b3fe685.png

[Blast]

У меня почему то всё написано вот так »
Кодировка. Возьмите готовый файл во вложении.

okshef, насколько я знаю, в vbs не получится этого сделать, ну то есть можно эхо выводить каждую секунду и эмулировать нажатие enter, но это как-то дико :)
Могу и ошибаться, возможно коллеги подскажут.

[Vadikan]

Было
[решено] Подтверждение при нажатии кнопок "Завершение работы" и "Перезагрузка" (http://forum.oszone.net/showthread.php?t=229026&highlight=shutdown)

[DemchaAV]

видел но это не то

[Blast]

Vadikan, да, я и забыл уже, хотя и фильтровал.. старею :)

DemchaAV, все то, просто автовыбор Да добавился.

okshef, твоя хотелка во вложении, правда на hta вместо vbs, но зато с бонусом :)

http://tattooink.me/imagehost/di/307A/shutdown-hta.png

[DemchaAV]

В принципе вариант VBS меня устраивает, а можно ли ещё добавить звуковое уведомление при появлению данного окна с выбором, и что мне делать с кодировкой пробовал абракадабра киллер не помогло

[Blast]

что мне делать с кодировкой пробовал абракадабра киллер не помогло »
Зачем вам киллер какой-то? Используйте файл из сообщения #5 (http://forum.oszone.net/post-2477365-5.html)
а можно ли ещё добавить звуковое уведомление »
Option Explicit

Dim oShell, retCode, WshShell
Set oShell = WScript.CreateObject("WScript.Shell")

oShell.Run "wmplayer """ & "C:\Windows\Media\tada.wav" & """",0,True

retCode = oShell.Popup("Выключить компьютер?", 60, "Подтверждение выключения", 4 + 32)

Select Case retCode
case 6, -1
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\WINDOWS\system32\shutdown.exe -s"
case 7
WScript.quit(1)
End Select
Но это пожалуй последнее, а то через пять минут вы захотите чтоб оно еще кофе варило.

[DemchaAV]

Но это пожалуй последнее, а то через пять минут вы захотите чтоб оно еще кофе варило. »
Спасибо большое, да просто если выскочит я не увижу а так услышу, на том выключение был звук и это удобно а тут нету
ну это пожалу не то что нужно было, ну да ладно, хотел звук уведомления как ошибки подключения устройств...

[KaSpieC 666]

DemchaAV,
Если не нужен скрипт, есть простая программа - вот эта например (******)

[Blast]

KaSpieC 666, будете раздавать ссылки на варезные сайты - будем прощаться. Достаточно названия программы.

хотел звук уведомления как ошибки подключения устройств... »
Ну так посмотрите какой файл с этим звуком и отредактируйте на нужный. Я же вам выделил в коде красным что менять. То есть уже и пережевано и в рот положено, но вот глотательный рефлекс я не умею вызывать :)

А вообще, действительно, возьмите готовое стороннее решение, которое рекомендовал KaSpieC 666. Название Auto PowerOFF (гугл знает где ее брать), отвечает всем вашим хотелкам - и кнопки Да/Нет и звук и расписание. Или выбирайте из десятков аналогов, например PowerOff (http://www.videozona.ru/software/PowerOff/PowerOff.asp).

[okshef]

Blast, спасибо, бонус оценил :) Только кракозябры везде...

[Blast]

Только кракозябры везде... »
Не знаю, у меня норм

http://tattooink.me/imagehost/di/307A/shutdown-hta.png

По сути это же html с vbs, можешь попробовать в head добавить что-то типа <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

[okshef]

Blast, сработало.

[KaSpieC 666]

KaSpieC 666, будете раздавать ссылки на варезные сайты - будем прощаться. Достаточно названия программы. »
Я извиняюсь, просто у автора нету сайта....
Но впредь буду иметь ввиду!

[Blast]

Я извиняюсь, просто у автора нету сайта.... »
Да, я только потом увидел это. Но в таких случаях давайте ссылку на поисковый запрос максимум. Спасибо.

[okshef]

Blast, еще одна хотелка. А можно, чтобы перед выключением не появлялось окно командной строки?
Вот интересная вещь: запускаешь shutdown из планировщика, окно командной строки не появляется, а из скрипта - появляется

[Blast]

okshef, замени строку #86 с этого Return = WshShell.Run("shutdown.exe -s") ' Команда выключения На это Return = WshShell.Run("shutdown.exe -s", 0, FALSE) ' Команда выключения

[okshef]

Blast, если создать задание в планировщике на запуск *.hta, оно не выполняется в заблокированном состоянии. Как решить?

[Blast]

okshef, не пробовал, но можешь попробовать запускать в планировщике так: cmd /c start X:\Folder\shutdown.hta
А в свойствах задания установлено Выполнять для всех пользователей?