[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[网络连接] 试着在WIN10下把某文件夹下的所有EXE文件添加到防火墙禁网

  1. @echo off
  2. setlocal ENABLEDELAYEDEXPANSION
  3. mode con: cols=65 lines=25
  4. color 0a
  5. rem 批处理获取管理员权限
  6. :-------------------------------------  
  7. %1 mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&&exit /b
  8. CD /D "%~dp0"
  9. :-------------------------------------  
  10. :begin
  11. rem 接收输入
  12. set name=
  13. set Fpath=
  14. set /p name=Filmora9
  15. set /p Fpath=C:\Program Files\Wondershare\Filmora9
  16. rem 输出得到的输入信息
  17. echo 您输入的防火墙策略名称是:%name%
  18. echo 您输入的软件安装路径是:%Fpath%
  19. echo "确认请按任意键否则请按Ctrl+C取消"
  20. pause
  21. setlocal enabledelayedexpansion
  22. set /a n=0
  23. for /r "%Fpath%" %%i in (*.exe) do (
  24.     set /a n+=1
  25.     echo "!n!_%name%","%%i"
  26.     netsh advfirewall firewall del rule name="!n!_%name%">nul 2>nul
  27.     netsh advfirewall firewall add rule name="!n!_%name%" program="%%i" action=block dir=out>null
  28.     echo 阻止!n!_%name%程序出站规则已添加成功
  29. )
  30. rem pause>null
  31. echo.
  32. rem 从begin标签出,再次运行
  33. goto begin
复制代码

返回列表