VBS/WSH/JS - Помогите создать скрипт для завершения программы в Диспетчере задач

[BKPB]

В Wndows 10 после закрытия многих программ, они остаются висеть в процессах. Из за это невозможно повторно запустить программу или удалить файл занятый этой программой. Поэтому нужен скрип с добавлением пункта для запуска в контекстное меню и с иконкой.

На подобие этого:



Скрытый текст

[spoiler]Dim WSHShell

Set WSHShell = WScript.CreateObject("WScript.Shell")

' Если скрипт запущен с каким-то параметром, то...

If WScript.Arguments.Count>0 Then

' Проверяем значение в реестре и в зависимости от него либо отображаем скрытые папки, либо наоборот убираем.

If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then

' Скрываем папки

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"

' Добавляем пункт в контекстное меню

' В поле command прописываем путь до текущего скрипта с параметром (не важно каким, главное, чтобы он был), чтобы..

' ..скрипт понял, что ему нужно не удалить ветку реестра, а изменить

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\SuperHidden\", "Показать скрытые файлы", "REG_SZ"

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\SuperHidden\command\", "WScript.exe """&WScript.ScriptFullName&""" -argument", "REG_SZ"

' Обновляем окно эксплорера, чтобы увидеть результат

WSHShell.SendKeys "{F5}"

Else

' Скрываем папки

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"

' Добавляем пункт в контекстное меню

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\SuperHidden\", "Не показывать скрытые файлы", "REG_SZ"

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\SuperHidden\command\", "WScript.exe """&WScript.ScriptFullName&""" -argument", "REG_SZ"

' Обновляем окно эксплорера, чтобы увидеть результат

WSHShell.SendKeys "{F5}"

End If

Else

' Если запись в реестре есть, то удаляем наш раздел

If WSHShell.Run("cmd.exe /C REG QUERY ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\SuperHidden""", 0, True)=0 Then

WSHShell.Run "cmd /C REG DELETE ""HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\SuperHidden"" /f", 0

Else

' Иначе запускаем этот скрипт с параметром (какой параметр - значения не имеет, главное его наличие)

WSHShell.Run """"&WScript.ScriptFullName&""" -argument"

' И еще добавим иконочку для красоты

WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Classes\Directory\Background\shell\SuperHidden\Icon", "%SystemRoot%\System32\shell32.dll,69", "REG_SZ"

End If

End if

Set WSHShell = Nothing

WScript.Quit(0)[/spoiler]




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

[Iska]

Цитата BKPB:



В Wndows 10 после закрытия многих программ, они остаются висеть в процессах. … Поэтому нужен скрип с добавлением пункта для запуска в контекстное меню и с иконкой.

VBS/WSH/JS - Помогите создать скрипт для завершения программы в Диспетчере задач

Вам не нужен «скрип … для запуска». Вам нужно разобраться, почему происходит такая ситуация, и как избежать её.

[BKPB]

Я даже не знаю в какую сторону копать.

[BKPB]

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

[Petya V4sechkin]

BKPB, для начала рекомендации

Поиск и устранение проблем путём "чистой" загрузки

[BKPB]

Спасибо за совет. Будем копать.