KOLT2020
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Windows Registry Editor Version 5.00
; Твик контекстного меню.Разрешить/Запретить доступ в интернет.В отличии от других твиков,использующие "mshta.exe" для скрытия консольного окна,этот твик корректно работает с длинными путями 250+ символов.Реализован средствами ОС (без доп. утилит и "костылей"). Система: Windows — Xp, Vista, 7, 8, 8.1, 10. [by Simple_Code]
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Allow]
"MUIVerb"="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
"SeparatorBefore"=""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Allow\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd.exe\",\"/d /c (for /f \"\"tokens=2,*\"\" %%i in ('reg query \"\"HKCR\\exefile\\shell\\Firewall_Allow\\command\"\" /v execute') do set \"\"$=%1\"\" & cmd /d /c %%j)\",\"\",\"runas\",0))"
"execute"="for /f \"tokens=*\" %a in (\"%$%\") do netsh advfirewall firewall delete rule name=\"%~na\""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Block]
"MUIVerb"="Запретить доступ в интернет"
"icon"="imageres.dll,-105"
"SeparatorAfter"=""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Block\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd.exe\",\"/d /c (for /f \"\"tokens=2,*\"\" %%i in ('reg query \"\"HKCR\\exefile\\shell\\Firewall_Block\\command\"\" /v execute') do set \"\"$=%1\"\" & cmd /d /c %%j)\",\"\",\"runas\",0))"
"execute"="for /f \"tokens=*\" %a in (\"%$%\") do netsh advfirewall firewall add rule name=\"%~na\" dir=out action=block program=\"%~a\" & netsh advfirewall firewall add rule name=\"%~na\" dir=in action=block program=\"%~a\""
длинные листинги прячем под [море] |
Всего записей: 123 | Зарегистр. 06-01-2020 | Отправлено: 07:41 14-06-2021 | Исправлено: KOLT2020, 12:15 14-06-2021 |
|
