mixmar2015
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Windows Registry Editor Version 5.00
; Твик, который по ПКМ на ярлыках программ на рабочем столе работает на всех системах, можно объединить его с основным твиком.
[HKEY_CLASSES_ROOT\lnkfile\shell\Firewall_BlockAllow]
"MUIVerb"="Запретить/Разрешить доступ в интернет"
"Icon"="imageres.dll,-105"
"SubCommands"=""
[HKEY_CLASSES_ROOT\lnkfile\shell\Firewall_BlockAllow\shell\01Block]
"MUIVerb"="Запретить доступ в интернет"
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\lnkfile\shell\Firewall_BlockAllow\shell\01Block\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd.exe\",\"/q /c (for /f \"\"tokens=2,*\"\" %%i in ('reg query \"\"HKCR\\lnkfile\\shell\\Firewall_BlockAllow\\shell\\01Block\\command\"\" /v execute') do set \"\"$=%1\"\" & cmd /q /c %%j)\",\"\",\"runas\",0))"
"execute"="for /f \"tokens=2 delims==\" %a in ('\"wmic path win32_shortcutfile where name=\"%$:\\=\\\\%\" get target /value\"') do for /f \"delims=\" %b in (\"%~a\") do netsh advfirewall firewall add rule name=\"%~nb\" dir=out action=block program=\"%~b\" & netsh advfirewall firewall add rule name=\"%~nb\" dir=in action=block program=\"%~b\""
[HKEY_CLASSES_ROOT\lnkfile\shell\Firewall_BlockAllow\shell\02Allow]
"MUIVerb"="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
"CommandFlags"=dword:00000020
[HKEY_CLASSES_ROOT\lnkfile\shell\Firewall_BlockAllow\shell\02Allow\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd.exe\",\"/q /c (for /f \"\"tokens=2,*\"\" %%i in ('reg query \"\"HKCR\\lnkfile\\shell\\Firewall_BlockAllow\\shell\\02Allow\\command\"\" /v execute') do set \"\"$=%1\"\" & cmd /q /c %%j)\",\"\",\"runas\",0))"
"execute"="for /f \"tokens=2 delims==\" %a in ('\"wmic path win32_shortcutfile where name=\"%$:\\=\\\\%\" get target /value\"') do for /f \"delims=\" %b in (\"%~a\") do netsh advfirewall firewall delete rule name=\"%~nb\"" |
