Скрипт отключения программы по времени

@Skalpel_NV · Регистрация: 17.05.2018

Студворк — интернет-сервис помощи студентам

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

С уважением, Тимофей.

======================================== ======================================== ===================

@Skalpel_NV · 04.11.2020, 00:35 **[ТС]**

Пробел есть сейчас проверил 4444.vbs /stop вот так выглядит.
Перезагрузил комп все равно не работает.

FlasherX · 04.11.2020, 00:54

Для меня это уже слишком...
Вернёмся к обсуждению после изучения матчасти: 1, 2.

@Skalpel_NV · 04.11.2020, 01:14 **[ТС]**

Все же сделал по вашему алгоритму.

FlasherX · 04.11.2020, 13:36

Будем честны, вообще мимо того, что я писал.

Сообщение от FlasherX

Можно создать и путём выполнения подобных команд:

Сообщение от FlasherX

Я же дал две команды создания. После выполнения заходим, смотрим на результат, правим под себя.

Добавлять команду создания в аргументы скрипта и сам скрипт делать параметром к самому себе — полный абсурд. Всё, что имело смысл править, — это имеющиеся пути.
Я уж не говорю про несоответствие сказанному:

Сообщение от Skalpel_NV

путь указали к файлу wscript.exe

Почитайте информацию по ссылкам, не ленитесь. И себе и помогающим только на пользу. Берегите своё и чужое время.

Кстати, с nircmd и перечитыванием политик я тогда поспешил. И без того заведётся:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Name = "notepad.exe"
Hive = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun"
With CreateObject("WScript.Shell")
  If wsh.Arguments.Named.Exists("stop") Then
    For Each Pr In GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT Status From Win32_Process Where Name='" & Name & "'")
      Pr.Terminate
    Next
    .RegWrite Hive, 1, "REG_DWORD"
    .RegWrite Hive & "\1", Name, "REG_SZ"
  Else On Error Resume Next: .RegDelete Hive & "\1" End If
End With

@Skalpel_NV · 05.11.2020, 00:04 **[ТС]**

Читал но не могу понять, это вам легко понять вы с этим каждый день работаете. Все равно не могу разобраться, изменил скрипт по вашему шаблону, но не сработало, у вас по такой схеме сработало, может у меня что-то с операционной системой? WIN8.

@Skalpel_NV · 05.11.2020, 00:10 **[ТС]**

Вот так правильно?

@Skalpel_NV · 05.11.2020, 00:15 **[ТС]**

Вот так

FlasherX · 05.11.2020, 05:51

Сообщение от Skalpel_NV

Читал но не могу понять

По второй ссылке? Не верю...

Утилита schtasks.exe является стандартным средством управления планировщиком и позволяет создавать, удалять, изменять и опрашивать запланированные задачи на локальном или удаленном компьютере.

Как по этому описанию можно додуматься вставлять команду с её выполнением прямо в Планировщик? Ума не приложу...
Я писал о выполнении указанных команд с schtasks из комстроки/консоли! Неужели это надо ещё раз повторить?
В планировщике уже появятся задания NoAllowProgramRun и AllowProgramRun. Всё, что в них надо поправить, это путь к скрипту в параметрах к wscript.exe и время вызова во втором задании. Всё!

@Skalpel_NV · 06.11.2020, 14:20 **[ТС]**

Приветствую, сегодня пригласил программиста 1С он что то пытался сделать но тоже нечего сделал, говорит не будет работать этот скрипт, он открыл блокнот говорит видите скрипт этот создан на примере программы которую надо закрыть блокнот, и пытался править сам скрипт в 5 строку Name='" & Name & "'" дописал путь к ней. Но в итоге воз и ныне там. Не смог нечего сделать.

@Skalpel_NV · 06.11.2020, 14:41 **[ТС]**

Вот что за окно выскакивает.

FlasherX · 06.11.2020, 14:51

Сообщение от Skalpel_NV

Приветствую, сегодня пригласил программиста 1С
и пытался править сам скрипт в 5 строку Name='" & Name & "'" дописал путь к ней

И этот программист не увидел, что имя файла программы и так задаётся первой строкой? Вот такой вот программист, однако ж...

@Skalpel_NV · 06.11.2020, 15:04 **[ТС]**

говорит возможно кто писал скрипт допустил ошибку поэтому он исправил, но скрипт все равно не сработал. Сейчас я ему написал он ответил что увы не смог разобраться. Предложил спросить на форуме https://www.cyberforum.ru/

FlasherX · 06.11.2020, 15:17

Skalpel_NV, никакой ошибки в моём коде нет.
Может, кто-то просто код скопировал без первой строки или убрал её случайно/нарочно?

@Skalpel_NV · 06.11.2020, 15:22 **[ТС]**

Нет скопировал все как вы прислали.

FlasherX · 06.11.2020, 15:26

Сообщение от Skalpel_NV

говорит не будет работать этот скрипт

А ему было сообщено?:

Сообщение от FlasherX

наличие в параметрах ключа /stop завершает программу с запретом, иначе разрешает

Сообщение от FlasherX

Для теста же никто не мешает запустить скрипт с параметром из любой комстроки.

Отсюда по schtasks и создаются задачи NoAllowProgramRun (с ключом /stop) и AllowProgramRun (без оного). Что тут может быть неясно?

@Skalpel_NV · 06.11.2020, 15:30 **[ТС]**

Сейчас перезагрузил комп, теперь другую ошибку бросает.

@Skalpel_NV · 06.11.2020, 15:32 **[ТС]**

что за засада такая.

FlasherX · 06.11.2020, 15:37

Перезагрузка для теста не требуется. Задачу можно выполнить простой командой: schtasks /run /tn NoAllowProgramRun.
А если просто запустить <path to>.vbs /stop из окна Выполнить (Win+R), будет эта ошибка?

@Skalpel_NV · 06.11.2020, 15:41 **[ТС]**

Сообщение от FlasherX

из окна Выполнить (Win+R), будет эта ошибка?

Да, снова ошибка.

FlasherX · 06.11.2020, 16:13

Закрыт доступ к правке реестра. См. статью.

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58

	Скрипт отключения программы по времени 27.05.2019, 19:55. Показов 9412. Ответов 78 Метки schtasks, vbs (Все метки) Приветствую уважаемые господа профессионалы своего дела! Подскажите как мне с помощью планировщика заданий, отключать по времени программу и не давать возможности ее дальнейшего включения, до определенного времени затем также по времени разрешить ее включение? С уважением, Тимофей. ======================================== ======================================== =================== 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	04.11.2020, 00:35 [ТС]
	Пробел есть сейчас проверил 4444.vbs /stop вот так выглядит. Перезагрузил комп все равно не работает. Миниатюры 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	04.11.2020, 00:54
	Для меня это уже слишком... Вернёмся к обсуждению после изучения матчасти: 1, 2. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	04.11.2020, 01:14 [ТС]
	Все же сделал по вашему алгоритму. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	05.11.2020, 00:04 [ТС]
	Читал но не могу понять, это вам легко понять вы с этим каждый день работаете. Все равно не могу разобраться, изменил скрипт по вашему шаблону, но не сработало, у вас по такой схеме сработало, может у меня что-то с операционной системой? WIN8. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	05.11.2020, 00:10 [ТС]
	Вот так правильно? Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	05.11.2020, 00:15 [ТС]
	Вот так Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 14:20 [ТС]
	Приветствую, сегодня пригласил программиста 1С он что то пытался сделать но тоже нечего сделал, говорит не будет работать этот скрипт, он открыл блокнот говорит видите скрипт этот создан на примере программы которую надо закрыть блокнот, и пытался править сам скрипт в 5 строку Name='" & Name & "'" дописал путь к ней. Но в итоге воз и ныне там. Не смог нечего сделать. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 14:41 [ТС]
	Вот что за окно выскакивает. Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:04 [ТС]
	говорит возможно кто писал скрипт допустил ошибку поэтому он исправил, но скрипт все равно не сработал. Сейчас я ему написал он ответил что увы не смог разобраться. Предложил спросить на форуме https://www.cyberforum.ru/ 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	06.11.2020, 15:17
	Skalpel_NV, никакой ошибки в моём коде нет. Может, кто-то просто код скопировал без первой строки или убрал её случайно/нарочно? 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:22 [ТС]
	Нет скопировал все как вы прислали. 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:30 [ТС]
	Сейчас перезагрузил комп, теперь другую ошибку бросает. Миниатюры 0

@Skalpel_NV 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 58
	06.11.2020, 15:32 [ТС]
	что за засада такая. 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	06.11.2020, 15:37
	Перезагрузка для теста не требуется. Задачу можно выполнить простой командой: `schtasks /run /tn NoAllowProgramRun`. А если просто запустить `<path to>.vbs /stop` из окна Выполнить (Win+R), будет эта ошибка? 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	06.11.2020, 16:13
	Закрыт доступ к правке реестра. См. статью. 0