有没有哪个大神帮忙写个在文件夹上右键，断网和恢复联网文件夹下所以exe文件的程序？

fulibo

这是论坛里面人家发的批处理里面找到的！

1. @echo off
   
2. 
   
3. ::为.exe程序快捷添加防火墙规则
   
4. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules" /f /v "MUIVerb" /t REG_SZ /d "防火墙规则"
   
5. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules" /f /v "Icon" /t REG_SZ /d "FirewallControlPanel.dll,0"
   
6. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules" /f /v "SubCommands" /t REG_SZ /d ""
   
7. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item0" /f /v "MUIVerb" /t REG_SZ /d "禁止入站"
   
8. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item0" /f /v "Icon" /t REG_SZ /d "imageres.dll,-105"
   
9. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item0\Command" /f /ve /t REG_SZ /d "mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall add rule name = ""%%1"" dir = in program = ""%%1"" action = block","","runas",0)(close)"
   
10. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item1" /f /v "MUIVerb" /t REG_SZ /d "禁止出站"
    
11. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item1" /f /v "Icon" /t REG_SZ /d "imageres.dll,-105"
    
12. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item1\Command" /f /ve /t REG_SZ /d "mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall add rule name = ""%%1"" dir = out program = ""%%1"" action = block","","runas",0)(close)"
    
13. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item2" /f /v "MUIVerb" /t REG_SZ /d "允许入站"
    
14. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item2" /f /v "Icon" /t REG_SZ /d "imageres.dll,-106"
    
15. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item2\Command" /f /ve /t REG_SZ /d "mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall delete rule name = ""%%1"" dir = in program = ""%%1""","","runas",0)(close)"
    
16. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item3" /f /v "MUIVerb" /t REG_SZ /d "允许出站"
    
17. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item3" /f /v "Icon" /t REG_SZ /d "imageres.dll,-106"
    
18. reg add "HKCR\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item3\Command" /f /ve /t REG_SZ /d "mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall delete rule name = ""%%1"" dir = out program = ""%%1""","","runas",0)(close)"
    
19. reg add "HKCR\DesktopBackground\shell\Item0\shell\Item5" /f /v "MUIVerb" /t REG_SZ /d "防火墙规则"
    

复制代码

fulibo

9chengwo 发表于 2023-9-30 13:42
我用了你这个批处理后，显示乱码，在文件夹的右键菜单不会显示，只在EXE文件右键菜单才会显示

ANSI格式!