Твики реестра (REG), вопросы и решения




 

[Quote]

Отправлено: 26-Mar-2021 10:51

    rezorustavi
  • 2337
  • Longevity: 9 years
  • Posts: 918
  • REPUTATION:55

    [+] [-]
  • Location: Грузия, город Рустави
Показать/Скрыть скрытые папки/файлы с нажатым Shift, без промелькания окна CMD:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles]
"MUIVerb"="Показать/Скрыть скрытые папки/файлы"
"Extended"=""
"Icon"="shell32.dll,-253"
"SubCommands"=""
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\01ShowFiles]
"MUIVerb"="Показать скрытые папки/файлы"
"Icon"="shell32.dll,-16773"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\01ShowFiles\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /q /c, reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v Hidden /t REG_DWORD /d 1 /f & reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f & (taskkill /f /im explorer.exe && start explorer.exe)\",0)(close)"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\02HideFiles]
"MUIVerb"="Скрыть скрытые папки/файлы"
"Icon"="shell32.dll,-16773"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\02HideFiles\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /q /d /c, reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v Hidden /t REG_DWORD /d 2 /f & reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v ShowSuperHidden /t REG_DWORD /d 0 /f & (taskkill /f /im explorer.exe && start explorer.exe)\",0)(close)"
Перед запуском, удаляем старый, если он у вас был. Откат:
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles]

[Quote]

Отправлено: 26-Mar-2021 11:55 (after 1 hour 4 minutes)

    Maks
  • 27487
  • Longevity: 3 years 9 months
  • Posts: 3
  • REPUTATION:0

    [+] [-]
84358Показать/Скрыть скрытые папки/файлы с нажатым Shift, без промелькания окна CMD:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles]
"MUIVerb"="Показать/Скрыть скрытые папки/файлы"
"Extended"=""
"Icon"="shell32.dll,-253"
"SubCommands"=""
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\01ShowFiles]
"MUIVerb"="Показать скрытые папки/файлы"
"Icon"="shell32.dll,-16773"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\01ShowFiles\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /q /c, reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v Hidden /t REG_DWORD /d 1 /f & reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f & (taskkill /f /im explorer.exe && start explorer.exe)\",0)(close)"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\02HideFiles]
"MUIVerb"="Скрыть скрытые папки/файлы"
"Icon"="shell32.dll,-16773"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\02HideFiles\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /q /d /c, reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v Hidden /t REG_DWORD /d 2 /f & reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v ShowSuperHidden /t REG_DWORD /d 0 /f & (taskkill /f /im explorer.exe && start explorer.exe)\",0)(close)"
Перед запуском, удаляем старый, если он у вас был. Откат:
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles]
Зачем он вообще с перезапуском проводника нужен? что-бы переключить скрытые папки/файлы перезапускать проводник? это полный бред.

[Quote]

Отправлено: 26-Mar-2021 12:35 (after 39 minutes)

    rezorustavi
  • 2337
  • Longevity: 9 years
  • Posts: 918
  • REPUTATION:55

    [+] [-]
  • Location: Грузия, город Рустави
84359Зачем он вообще с перезапуском проводника нужен?
Чтобы не нажимать после "Обновить" для мгновенного показа, скрытия на рабочем столе...
Обратите внимания, в вашем варианте Refresh прописан, но этот бред не работает, после него все равно требуется нажимать "Обновить", чтобы появились скрытые файлы на рабочем столе! Проверено на Windows 10 LTSC


Last edited by rezorustavi on 2021-03-26 12:47; edited 1 time in total

[Quote]

Отправлено: 26-Mar-2021 12:46 (after 10 minutes)

    Maks
  • 27487
  • Longevity: 3 years 9 months
  • Posts: 3
  • REPUTATION:0

    [+] [-]
84362
84359Зачем он вообще с перезапуском проводника нужен?
Чтобы не нажимать после "Обновить" для показа, скрытия...
Проще использовать тот твик что я попросил исправить,скрыть окно cmd.
PS а вы уберите рабочий стол контекста,в остальных местах он работает.


Last edited by Maks on 2021-03-26 12:50; edited 1 time in total

[Quote]

Отправлено: 26-Mar-2021 13:06 (after 19 minutes)

    rezorustavi
  • 2337
  • Longevity: 9 years
  • Posts: 918
  • REPUTATION:55

    [+] [-]
  • Location: Грузия, город Рустави
Ander_73,
Не плохая идея.
Если получится, прикрутите пожалуйста в этот вариант:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles]
"MUIVerb"="Показать/Скрыть скрытые папки/файлы"
"Extended"=""
"Icon"="shell32.dll,-253"
"SubCommands"=""
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\01ShowFiles]
"MUIVerb"="Показать скрытые папки/файлы"
"Icon"="shell32.dll,-16773"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\01ShowFiles\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /q /c, reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v Hidden /t REG_DWORD /d 1 /f & reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f & (taskkill /f /im explorer.exe && start explorer.exe)\",0)(close)"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\02HideFiles]
"MUIVerb"="Скрыть скрытые папки/файлы"
"Icon"="shell32.dll,-16773"
[HKEY_CLASSES_ROOT\DesktopBackground\Shell\ShowHideFiles\shell\02HideFiles\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /q /d /c, reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v Hidden /t REG_DWORD /d 2 /f & reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v ShowSuperHidden /t REG_DWORD /d 0 /f & (taskkill /f /im explorer.exe && start explorer.exe)\",0)(close)"

Добавлено через 8 минут 39 секунд:
Maks,
На первой странице это дело обсуждалось. Скрывает окно с перезапуском проводника:
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /q /d /c, reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v Hidden /t REG_DWORD /d 2 /f & reg add HKCU\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced /v ShowSuperHidden /t REG_DWORD /d 0 /f & (taskkill /f /im explorer.exe && start explorer.exe)\",0)(close)"
Сравните с тем вариантом, что выложил я, поймете что и куда, да и перезапуск проводника не составит труда убрать, если вам не нужен. Меня он пока вполне устраивает и не напрягает перезапуск проводника, я каждую минуту не скрываю и не отображаю скрытые файлы...


Last edited by rezorustavi on 2021-03-26 13:10; edited 1 time in total

[Quote]

Отправлено: 26-Mar-2021 13:07 (after 59 seconds)

    Ander_73
  • 15549
  • Longevity: 7 years 11 months
  • Posts: 3944
  • REPUTATION:127

    [+] [-]
rezorustavi, идея плохая. Поэтому сообщение удалено.

[Quote]

Отправлено: 26-Mar-2021 18:30 (after 5 hours)

    rezorustavi
  • 2337
  • Longevity: 9 years
  • Posts: 918
  • REPUTATION:55

    [+] [-]
  • Location: Грузия, город Рустави
Ander_73,
Понятно, дорогой друг az

[Quote]

Отправлено: 04-Apr-2021 07:59 (after 8 days)

    Nikola
  • 27570
  • Longevity: 3 years 9 months
  • Posts: 6
  • REPUTATION:0

    [+] [-]
Привет всем,имеется твик Разрешить/Запретить доступ в интернет,нужно скрыть промелькание окна CMD
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Allow]
@="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Allow\command]
@="cmd.exe /d /c \"netsh advfirewall firewall delete rule name=\"%1\"\""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Block]
@="Запретить доступ в интернет"
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall_Block\command]
@="cmd.exe /d /c \"netsh advfirewall firewall add rule name=\"%1\" dir=in action=block program=\"%1\" & netsh advfirewall firewall add rule name=\"%1\" dir=out action=block program=\"%1\"\""
Разрешить доступ в интернет сообразил как,а вот Запретить доступ в интернет не получается,если только командой по отдельности для исходящего/входящего подключения то получается,команда будет ниже,помогите кто шарит,что-бы сразу 2-е команды исходящего/входящего подключения блокировались.
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\exefile\shell\Firewall]
"MUIVerb"="Разрешить/Запретить доступ в интернет"
"icon"="netcenter.dll,10"
"SubCommands"=""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow]
"MUIVerb"="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall delete rule name=\"\"%1\",0)(close)"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockout]
"MUIVerb"="Запретить исходящее подключение"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockout\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\",0)(close)"

[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin]
"MUIVerb"="Запретить входящее подключение"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin\command]
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\",0)(close)"
Что-то типо этой команды,но не работает.
@="mshta.exe vbscript:createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\",0)(close)"

[Quote]

Отправлено: 04-Apr-2021 08:03 (after 3 minutes)

    loban_ser
  • 17796
  • Longevity: 6 years 11 months
  • Posts: 577
  • REPUTATION:24

    [+] [-]
"mshta.exe vbscript:close(createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall delete rule name=\"\"%1\"\"\",0))"
"mshta.exe vbscript:close(createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",0))"
@="mshta.exe vbscript:close(createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",0))"
пропустили ковычки
не проверял, но по идее должно работать

[Quote]

Отправлено: 04-Apr-2021 08:19 (after 15 minutes)

    Nikola
  • 27570
  • Longevity: 3 years 9 months
  • Posts: 6
  • REPUTATION:0

    [+] [-]
84568
"mshta.exe vbscript:close(createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall delete rule name=\"\"%1\"\"\",0))"
"mshta.exe vbscript:close(createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",0))"
@="mshta.exe vbscript:close(createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",0))"
пропустили ковычки
не проверял, но по идее должно работать
@="mshta.exe vbscript:close(createobject(\"wscript.shell\").run(\"cmd.exe /d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",0))"
Так тоже пробовал,не работает,то-есть работает но не везде,зависит от расположения пути приложения,всю голову уже сломал,хотя обычная команда с промельканием cmd роботает нормально.

[Quote]

Отправлено: 04-Apr-2021 08:36 (after 17 minutes)

    loban_ser
  • 17796
  • Longevity: 6 years 11 months
  • Posts: 577
  • REPUTATION:24

    [+] [-]
Nikola,
Для запрошенной операции требуется повышение прав (запустите с правами администр
атора).
пример:
mshta.exe vbscript:close(CreateObject("Shell.Application").ShellExecute("cmd","/d /c netsh advfirewall firewall add rule name=""C:\TC\TOTALCMD.EXE"" dir=in action=block program=""C:\TC\TOTALCMD.EXE"" & netsh advfirewall firewall add rule name=""C:\TC\TOTALCMD.EXE"" dir=out action=block program=""C:\TC\TOTALCMD.EXE""","","runas",0))
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\exefile\shell\Firewall]
"MUIVerb"="Разрешить/Запретить доступ в интернет"
"icon"="netcenter.dll,10"
"SubCommands"=""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell]
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow]
"MUIVerb"="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall delete rule name=\"\"%1\"\"\",\"\",\"runas\",0))"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin]
"MUIVerb"="Запретить входящее подключение"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",\"\",\"runas\",0))"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockout]
"MUIVerb"="Запретить исходящее подключение"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockout\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall add rulename=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",\"\",\"runas\",0))"
проверил, работает


Last edited by loban_ser on 2021-04-04 08:51; edited 2 times in total

[Quote]

Отправлено: 04-Apr-2021 09:00 (after 23 minutes)

    Nikola
  • 27570
  • Longevity: 3 years 9 months
  • Posts: 6
  • REPUTATION:0

    [+] [-]
84570Nikola,
Для запрошенной операции требуется повышение прав (запустите с правами администр
атора).
пример:
mshta.exe vbscript:close(CreateObject("Shell.Application").ShellExecute("cmd","/d /c netsh advfirewall firewall add rule name=""C:\TC\TOTALCMD.EXE"" dir=in action=block program=""C:\TC\TOTALCMD.EXE"" & netsh advfirewall firewall add rule name=""C:\TC\TOTALCMD.EXE"" dir=out action=block program=""C:\TC\TOTALCMD.EXE""","","runas",0))
Не работает,где-то в коде-команде ошибка.
Добавлено через 9 минут:
84573
84570Nikola,
Для запрошенной операции требуется повышение прав (запустите с правами администр
атора).
пример:
mshta.exe vbscript:close(CreateObject("Shell.Application").ShellExecute("cmd","/d /c netsh advfirewall firewall add rule name=""C:\TC\TOTALCMD.EXE"" dir=in action=block program=""C:\TC\TOTALCMD.EXE"" & netsh advfirewall firewall add rule name=""C:\TC\TOTALCMD.EXE"" dir=out action=block program=""C:\TC\TOTALCMD.EXE""","","runas",0))
Не работает,где-то в коде-команде ошибка.
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\exefile\shell\Firewall]
"MUIVerb"="Разрешить/Запретить доступ в интернет"
"icon"="netcenter.dll,10"
"SubCommands"=""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell]
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow]
"MUIVerb"="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall delete rule name=\"\"%1\"\"\",\"\",\"runas\",0))"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin]
"MUIVerb"="Запретить входящее подключение"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",\"\",\"runas\",0))"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockout]
"MUIVerb"="Запретить исходящее подключение"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockout\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall add rulename=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",\"\",\"runas\",0))"
проверил, работает
Я написал что по отдельности команды Запретить исходящее-входящее подключени работают,нужно что-бы сразу 2-е команды исходящего/входящего подключения блокировались,то-есть эта
@="cmd.exe /d /c \"netsh advfirewall firewall add rule name=\"%1\" dir=in action=block program=\"%1\" & netsh advfirewall firewall add rule name=\"%1\" dir=out action=block program=\"%1\"\""

[Quote]

Отправлено: 04-Apr-2021 09:12 (after 12 minutes)

    loban_ser
  • 17796
  • Longevity: 6 years 11 months
  • Posts: 577
  • REPUTATION:24

    [+] [-]
Nikola,
mshta.exe vbscript:close(CreateObject("Shell.Application").ShellExecute("cmd","/d /c netsh advfirewall firewall add rule name=""%1"" dir=in action=block program=""%1"" & netsh advfirewall firewall add rule name=""%1"" dir=out action=block program=""%1""","","runas",0))
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\exefile\shell\Firewall]
"MUIVerb"="Разрешить/Запретить доступ в интернет"
"icon"="netcenter.dll,10"
"SubCommands"=""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell]
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow]
"MUIVerb"="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall delete rule name=\"\"%1\"\"\",\"\",\"runas\",0))"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin]
"MUIVerb"="Запретить доступ в интернет"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",\"\",\"runas\",0))"

[Quote]

Отправлено: 04-Apr-2021 09:29 (after 16 minutes)

    Nikola
  • 27570
  • Longevity: 3 years 9 months
  • Posts: 6
  • REPUTATION:0

    [+] [-]
84578Nikola,
mshta.exe vbscript:close(CreateObject("Shell.Application").ShellExecute("cmd","/d /c netsh advfirewall firewall add rule name=""%1"" dir=in action=block program=""%1"" & netsh advfirewall firewall add rule name=""%1"" dir=out action=block program=""%1""","","runas",0))
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\exefile\shell\Firewall]
"MUIVerb"="Разрешить/Запретить доступ в интернет"
"icon"="netcenter.dll,10"
"SubCommands"=""
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell]
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow]
"MUIVerb"="Разрешить доступ в интернет"
"icon"="imageres.dll,-106"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Allow\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall delete rule name=\"\"%1\"\"\",\"\",\"runas\",0))"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin]
"MUIVerb"="Запретить доступ в интернет"
"CommandFlags"=dword:00000020
"icon"="imageres.dll,-105"
[HKEY_CLASSES_ROOT\exefile\shell\Firewall\Shell\Blockin\command]
@="mshta.exe vbscript:close(CreateObject(\"Shell.Application\").ShellExecute(\"cmd\",\"/d /c netsh advfirewall firewall add rule name=\"\"%1\"\" dir=in action=block program=\"\"%1\"\" & netsh advfirewall firewall add rule name=\"\"%1\"\" dir=out action=block program=\"\"%1\"\"\",\"\",\"runas\",0))"
Эта команда на Запретить доступ в интернет тоже работает,но не везде зависит от расположения пути самого блокируемого приложения,ладно забейте останусь с этой командой @="cmd.exe /d /c \"netsh advfirewall firewall add rule name=\"%1\" dir=in action=block program=\"%1\" & netsh advfirewall firewall add rule name=\"%1\" dir=out action=block program=\"%1\"\"" с промельканием cmd ,зато работает нормально по всем путям,спасибо большое за потраченное со мной время.

[Quote]

Отправлено: 04-Apr-2021 09:42 (after 13 minutes)

    loban_ser
  • 17796
  • Longevity: 6 years 11 months
  • Posts: 577
  • REPUTATION:24

    [+] [-]
Nikola,
может поможет https://www.cyberforum.ru/windows7/thread1689328.html
или поищите обход для cmd

Page 2 of 3


Display posts:    

Current time is: 20-Jan 11:23

All times are UTC + 3


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum