[Quote]

    rezorustavi
  • 2337
  • Longevity: 8 years 6 months
  • 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]

    Maks
  • 27487
  • Longevity: 3 years 3 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]

    rezorustavi
  • 2337
  • Longevity: 8 years 6 months
  • 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]

    Maks
  • 27487
  • Longevity: 3 years 3 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]

    rezorustavi
  • 2337
  • Longevity: 8 years 6 months
  • 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]

    Ander_73
  • 15549
  • Longevity: 7 years 5 months
  • Posts: 3661
  • REPUTATION:127

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

[Quote]

    rezorustavi
  • 2337
  • Longevity: 8 years 6 months
  • Posts: 918
  • REPUTATION:55

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

[Quote]

    Nikola
  • 27570
  • Longevity: 3 years 3 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]

    loban_ser
  • 17796
  • Longevity: 6 years 5 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]

    Nikola
  • 27570
  • Longevity: 3 years 3 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]

    loban_ser
  • 17796
  • Longevity: 6 years 5 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]

    Nikola
  • 27570
  • Longevity: 3 years 3 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]

    loban_ser
  • 17796
  • Longevity: 6 years 5 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]

    Nikola
  • 27570
  • Longevity: 3 years 3 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]

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

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

Page 2 of 3


Display posts:    

Current time is: 14-Jul 19:27

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