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

qq8899399

9chengwo 发表于 2023-10-1 09:15
我改了格式，现在不会乱码了，但是我把某个EXE文件用这个禁止入站和禁止出站，
为啥在防火墙规则设置里 ...

代码问题

你用我的注册表吧


#右键 添加 为.exe程序 添加/删除防火墙规则

1. Windows Registry Editor Version 5.00
   
2. 
   
3. #右键 添加 为.exe程序 添加/删除防火墙规则
   
4. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules]
   
5. "MUIVerb"="防火墙规则 添加/删除"
   
6. "Icon"="FirewallControlPanel.dll,0"
   
7. "SubCommands"=""
   
8. 
   
9. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell]
   
10. 
    
11. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item1]
    
12. "MUIVerb"="为此程序添加禁止入站规则"
    
13. "Icon"="imageres.dll,-105"
    
14. 
    
15. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item1\command]
    
16. @="mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall add rule name = ""%1"" dir = in program = ""%1"" action = block","","runas",0)(close)"
    
17. 
    
18. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item2]
    
19. "MUIVerb"="为此程序删除禁止入站规则"
    
20. "Icon"="imageres.dll,-106"
    
21. 
    
22. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item2\command]
    
23. @="mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall delete rule name = ""%1"" dir = in program = ""%1""","","runas",0)(close)"
    
24. 
    
25. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item3]
    
26. "MUIVerb"="为此程序添加禁止出站规则"
    
27. "Icon"="imageres.dll,-105"
    
28. "CommandFlags"=dword:00000020
    
29. 
    
30. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item3\command]
    
31. @="mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall add rule name = ""%1"" dir = out program = ""%1"" action = block","","runas",0)(close)"
    
32. 
    
33. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item4]
    
34. "MUIVerb"="为此程序删除禁止出站规则"
    
35. "Icon"="imageres.dll,-106"
    
36. 
    
37. [HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules\Shell\Item4\command]
    
38. @="mshta vbscript:createobject("shell.application").shellexecute("netsh.exe","advfirewall firewall delete rule name = ""%1"" dir = out program = ""%1""","","runas",0)(close)"
    
39. 
    

复制代码

#右键 删除 为.exe程序 添加/删除防火墙规则

1. Windows Registry Editor Version 5.00
   
2. 
   
3. #右键 删除 为.exe程序 添加/删除防火墙规则
   
4. 
   
5. [-HKEY_CLASSES_ROOT\SystemFileAssociations\.exe\shell\FirewallRules]

复制代码