[Vadikan]

Интервал запуска после простоя прекрасно задается в планировщике заданий на вкладке Условия. Остальное - примитивные скрипты psshutdown.

[Iska]

Дополню предыдущее сообщение: в старых ОС — на вкладке «Расписание».

[PlagIaT]

Прошу прощения, но тема осталась ещё актуальной!
1. Мб. у меня не та версия "PowerOff".
Всё проверял много раз.
При входе в программу PowerOff я выставляю параметры срабатывания (через 1 мин простоя выйти из системы), заранее удаляя фаил PowerOff[Пользователь].ini - что бы программа сохранила с новыми условиями. Закрыл прогу, в файле PowerOff[Пользователь].ini строка действительно "CheckBox31=1", НО после выполнения условий срабатывания - фаил PowerOff[Пользователь].ini так же изменяется и строка выглядит так"CheckBox31=0".

Попробовал ВСЁ что есть в программе- галочки "сохранить настройки..." безрезультатно.



2. По поводу планировщика.
Винд 7. Думаю параметры железа не важны.
Сделал скрипт который выдаёт сообщение в VBS - вот его тело
"Set a = CreateObject("WScript.Shell")
b = a.Popup ("Выключить ПК?",7200,"Windows",36)
If b= vbYes then
C= MsgBox ("СЕРЬЁЗНО?",+vbYesNo+16,"Windows")
If C= 6 then msgBox "1"
If C= 7 then msgBox "2"
end if
If b= vbNo then msgBox "1""

, хотел его использовать в планировщике чтобы при простои или интервале времени (в 2 часа ) ПК запускал этот фаил.
Вообщем при ручном запуске срабатывает, а при выставлении триггеров - не срабатывает .Статут пишет "Экземпляр этой задачи уже выполняется". Вообщем думал, что интереснее и полезнее будет скрипт написать на это всё...

Vadikan, если есть способ мне помочь. Прошу подробнее.
В планировщике настраиваю всё логично, но автоматического запуска не происходит....Опят же перепробовал много комбинаций....

[Vadikan]

Прошу подробнее. »

Возвращаю вам цитату. Подумайте, какой информации не хватает для удаленной диагностики.

[Iska]

При входе в программу PowerOff я выставляю параметры срабатывания (через 1 мин простоя выйти из системы), заранее удаляя фаил PowerOff[Пользователь].ini - что бы программа сохранила с новыми условиями. Закрыл прогу, в файле PowerOff[Пользователь].ini строка действительно "CheckBox31=1", НО после выполнения условий срабатывания - фаил PowerOff[Пользователь].ini так же изменяется и строка выглядит так"CheckBox31=0". »

PlagIaT, что мешает создать копию ini-файла с потребными настройками и копировать его перед запуском приложения в папку приложения?

Но лучше воспользуйтесь имеющимися средствами.

[PlagIaT]

Программа PowerOff не позволяет сохранить настройки.После срабатывания условий, необходимо настраивать заново.
Есть мысль как это решить.
Средством VBS написал такое тело:
Set a = CreateObject("WScript.Shell")
b = a.Popup ("Выключить ПК?",10,"Windows",36)
If b= vbYes then
C= MsgBox ("СЕРЬЁЗНО1",+vbYesNo+16,"Windows")
If C= vbYes then MsgBox "СЕРЬЁЗНО2",+vbYesNo+16,"Windows"
If C= vbYes then MsgBox "shudown.exe -s -t 1"
If C= vbno then msgBox "не выключу"

end if
If b= vbNo then msgBox "Конец программы"

В планировщике он начал запускаться через 2-3 дня.

Вопрос)
Что необходимо сделать (или дописать), что бы если пользователь не нажимает кнопки (не "да" ни "нет)- программа выключила ПК?

[Iska]

Что необходимо сделать (или дописать), что бы если пользователь не нажимает кнопки (не "да" ни "нет)- программа выключила ПК? »

Код:

Option Explicit

Select Case WScript.CreateObject("WScript.Shell").Popup("Shutdown this PC (automatically reply «Yes» after 15 seconds delay)?", 15, "Shutdown this PC", vbYesNoCancel + vbQuestion)
	Case vbYes, -1
		' Place here shutdown code
	Case Else
		' Nothing to do
End Select

WScript.Quit 0

[PlagIaT]

Iska, не соображу как это связать.
Через VBS пробовал запустить. Работает)))
Я юсер в VBS ( можно подробнее?Как, что работает и где,что прописать?
Ваша программа позволяет вывести 3 кнопки и автоматическое закрытие через 15 секунд.
Не понимаю где цикл того, чтобы через n-ое количество секунд, если не нажать "отмена" Пк. выключился бы?


Дописал :
Set a = CreateObject("WScript.Shell")
b = a.Popup ("Выключить ПК?",10,"Windows",36) 'это секунды "жизни" программы. Как по истечению этого времени выключить программно пк?

If b= 6 then
C= MsgBox ("СЕРЬЁЗНО1",+vbYesNo+16,"Windows")
If C= 6 then
e= MsgBox ("СЕРЬЁЗНО2",+vbYesNo+16,"Windows")
If e= 6 then MsgBox "shudown.exe -s -t 1"
If e= 7 then msgBox "не выключу"
end if
end if
If b= 7 then msgBox "Конец программы"

[Iska]

если не нажать "отмена" Пк. выключился бы? »

Вместо этого:

Код: ' Place here shutdown code »

дописывайте.

[PlagIaT]

Доброе утро!

Всё решилось гораздо проще.....

Set a = CreateObject("WScript.Shell")
a.run "shutdown.exe -s -t 7200"
msgbox ("НАЖМИ ОК ЧТОБЫ НЕ ВЫКЛЮЧИТЬ ПК")
a.run "shutdown -a"

Если пользователь не нажмёт кнопку ок, то ПК выключится....
Всем спс!