|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите создать скрипт для завершения программы в Диспетчере задач |
|
|
VBS/WSH/JS - Помогите создать скрипт для завершения программы в Диспетчере задач
|
Старожил Сообщения: 172 |
В Wndows 10 после закрытия многих программ, они остаются висеть в процессах. Из за это невозможно повторно запустить программу или удалить файл занятый этой программой. Поэтому нужен скрип с добавлением пункта для запуска в контекстное меню и с иконкой.
На подобие этого: Скрытый текст
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) Некоторые программы такого вида, с пробелами и символом вот пример: SFX Creator ℗.ехе Нужен скрипт для такого файла с возможностью добавить самому потом ещё пару подобных файлов, чтобы запустив такой скрипт завершались программы указаные в этом скрипте |
|
|
Отправлено: 22:36, 01-03-2017 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата BKPB:
|
|
|
Отправлено: 00:28, 02-03-2017 | #2 |
|
Старожил Сообщения: 172
|
Профиль | Отправить PM | Цитировать Я даже не знаю в какую сторону копать.
|
|
Отправлено: 07:01, 02-03-2017 | #3 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Копать в сторону поиска аналогичных вопросов в разделе, соответствующем Вашей ОС. При отсутствии — создания в нём новой темы с изложением ситуации.
|
|
Отправлено: 08:07, 02-03-2017 | #4 |
|
Сообщения: 53170
|
Профиль | Отправить PM | Цитировать BKPB, для начала рекомендации
Поиск и устранение проблем путём "чистой" загрузки |
|
|
Отправлено: 08:08, 02-03-2017 | #5 |
|
Старожил Сообщения: 172
|
Профиль | Отправить PM | Цитировать Спасибо за совет. Будем копать.
|
|
Отправлено: 10:47, 02-03-2017 | #6 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| 2016 - [решено] После завершения работы приложений,их процессы остаются в Диспетчере задач. | ZMozzi | Microsoft Office (Word, Excel, Outlook и т.д.) | 2 | 28-02-2017 08:50 | |
| CMD/BAT - Помогите создать Скрипт или bat-ник для создания ярлыков | dima199dima | Скриптовые языки администрирования Windows | 2 | 04-10-2016 12:09 | |
| CMD/BAT - [решено] скрипт завершения программы по таймеру | muslimdogger | Скриптовые языки администрирования Windows | 5 | 08-09-2015 23:05 | |
| Разное - [решено] После завершения работы приложений их процессы остаются в Диспетчере задач | Other | Microsoft Windows 7 | 9 | 03-11-2013 18:33 | |
| Службы - [решено] App History в диспетчере задач. Можно посмотреть статистику на все программы? | Twix1124 | Microsoft Windows 8 и 8.1 | 1 | 23-04-2012 14:06 | |
|
|
Время: 14:14. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. |
