[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 2 месяца
  • Сообщений: 928
  • Репутация:55

    [+] [-]
  • Откуда: Грузия, город Рустави
Показать/Скрыть скрытые папки/файлы с нажатым 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]

[Цитировать]

    Maks
  • 27487
  • Стаж: 3 года
  • Сообщений: 3
  • Репутация: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]
Зачем он вообще с перезапуском проводника нужен? что-бы переключить скрытые папки/файлы перезапускать проводник? это полный бред.

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 2 месяца
  • Сообщений: 928
  • Репутация:55

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


Последний раз редактировалось: rezorustavi (2021-03-26 12:47), всего редактировалось 1 раз

[Цитировать]

    Maks
  • 27487
  • Стаж: 3 года
  • Сообщений: 3
  • Репутация:0

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


Последний раз редактировалось: Maks (2021-03-26 12:50), всего редактировалось 1 раз

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 2 месяца
  • Сообщений: 928
  • Репутация:55

    [+] [-]
  • Откуда: Грузия, город Рустави
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)"
Сравните с тем вариантом, что выложил я, поймете что и куда, да и перезапуск проводника не составит труда убрать, если вам не нужен. Меня он пока вполне устраивает и не напрягает перезапуск проводника, я каждую минуту не скрываю и не отображаю скрытые файлы...


Последний раз редактировалось: rezorustavi (2021-03-26 13:10), всего редактировалось 1 раз

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 1 месяц
  • Сообщений: 3586
  • Репутация:127

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

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 2 месяца
  • Сообщений: 928
  • Репутация:55

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

[Цитировать]

    Nikola
  • 27570
  • Стаж: 2 года 11 месяцев
  • Сообщений: 6
  • Репутация: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)"

[Цитировать]

    loban_ser
  • 17796
  • Стаж: 6 лет 1 месяц
  • Сообщений: 578
  • Репутация: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))"
пропустили ковычки
не проверял, но по идее должно работать

[Цитировать]

    Nikola
  • 27570
  • Стаж: 2 года 11 месяцев
  • Сообщений: 6
  • Репутация: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 роботает нормально.

[Цитировать]

    loban_ser
  • 17796
  • Стаж: 6 лет 1 месяц
  • Сообщений: 578
  • Репутация: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))"
проверил, работает


Последний раз редактировалось: loban_ser (2021-04-04 08:51), всего редактировалось 2 раз(а)

[Цитировать]

    Nikola
  • 27570
  • Стаж: 2 года 11 месяцев
  • Сообщений: 6
  • Репутация: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\"\""

[Цитировать]

    loban_ser
  • 17796
  • Стаж: 6 лет 1 месяц
  • Сообщений: 578
  • Репутация: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))"

[Цитировать]

    Nikola
  • 27570
  • Стаж: 2 года 11 месяцев
  • Сообщений: 6
  • Репутация: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 ,зато работает нормально по всем путям,спасибо большое за потраченное со мной время.

[Цитировать]

    loban_ser
  • 17796
  • Стаж: 6 лет 1 месяц
  • Сообщений: 578
  • Репутация:24

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

Страница 2 из 3


Показать сообщения:    

Текущее время: 29-Мар 12:28

Часовой пояс: UTC + 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы можете скачивать файлы