| 
 | 
禁止联网可以参考这个方法:- Dim tmp1,tmp2,firewall_dictSet WshShell=WScript.CreateObject("WScript.Shell")
 
 - Set firewall_dict=CreateObject("Scripting.Dictionary")
 
 - Set objWMIService = GetObject("winmgmts:\\.")
 
 - Set colOperatingSystems = objWMIService.InstancesOf("Win32_OperatingSystem")
 
 - For Each objOperatingSystem In colOperatingSystems
 
 -    windir=objOperatingSystem.WindowsDirectory
 
 - Next
 
 - '============请参照下面的格式,把引号之间的名字替换成你给项目取的英文名,以及完整路径的执行文件=================
 
 - firewall_dict.add "Office_OfficeClickToRun","%ProgramFiles%\Common Files\microsoft shared\ClickToRun\OfficeClickToRun.exe"
 
 - firewall_dict.add "Office_msoia","%ProgramFiles%\Microsoft Office\root\Office16\msoia.exe"
 
 - firewall_dict.add "Office_WINWORD","%ProgramFiles%\Microsoft Office\root\Office16\WINWORD.EXE"
 
 - firewall_dict.add "Office_EXCEL","%ProgramFiles%\Microsoft Office\root\Office16\EXCEL.EXE"
 
 - firewall_dict.add "Office_POWERPNT","%ProgramFiles%\Microsoft Office\root\Office16\POWERPNT.EXE"
 
 - firewall_dict.add "Office_VISIO","%ProgramFiles%\Microsoft Office\root\Office16\VISIO.EXE"
 
 - firewall_dict.add "Office_WINPROJ","%ProgramFiles%\Microsoft Office\root\Office16\WINPROJ.EXE"
 
 - firewall_dict.add "Office_MSPUB","%ProgramFiles%\Microsoft Office\root\Office16\MSPUB.EXE"
 
 - firewall_dict.add "Office_MSACCESS","%ProgramFiles%\Microsoft Office\root\Office16\MSACCESS.EXE"
 
 - firewall_dict.add "AutoCAD_LMU","%ProgramFiles%\Common Files\Autodesk Shared\AdLM\R11\LMU.exe"
 
 - firewall_dict.add "AutoCAD_DADispatcherService","C:\Program Files\Autodesk\AutoCAD 2016\DADispatcherService.exe"
 
 - firewall_dict.add "AutoCAD_acad","C:\Program Files\Autodesk\AutoCAD 2016\acad.exe"
 
 - firewall_dict.add "Windows Update","wuauserv"
 
 - firewall_dict.add "TopazDeNoiseAI","D:\Tools\影音图\AI图片降噪TopazDeNoiseAI2.2\Topaz DeNoise AI BETA.exe"
 
 - firewall_dict.add "TopazDeNoiseAIUpdate","D:\Tools\影音图\AI图片降噪TopazDeNoiseAI2.2\autoupdate.exe"
 
  
- firewall_dict.add "SU2020_SU","D:\Tools\multimedia\SketchUp2020\SketchUp.exe"
 
 - firewall_dict.add "SU2020_SUSW","D:\Tools\multimedia\SketchUp2020\sketchup_webhelper.exe"
 
 - firewall_dict.add "SU2020_JSEDIT","D:\Tools\multimedia\SketchUp2020\jsonpatcheditor.exe"
 
 - firewall_dict.add "SU2020_IWL","D:\Tools\multimedia\SketchUp2020\ifcplugin\IFCPluginWorker_Loader.exe"
 
 - firewall_dict.add "SU2020_IL","D:\Tools\multimedia\SketchUp2020\ifcplugin\ImportLoader.exe"
 
 - firewall_dict.add "SU2020_LO","D:\Tools\multimedia\SketchUp2020\LayOut\LayOut.exe"
 
 - firewall_dict.add "SU2020_LOSW","D:\Tools\multimedia\SketchUp2020\LayOut\sketchup_webhelper.exe"
 
 - firewall_dict.add "SU2020_SB","D:\Tools\multimedia\SketchUp2020\Style Builder\Style Builder.exe"
 
 - firewall_dict.add "SU2020_SBSW","D:\Tools\multimedia\SketchUp2020\Style Builder\sketchup_webhelper.exe"
 
  
 
 
- msgbox "OK"
 
  
 
- For Each i in firewall_dict
 
 -   firewall_dict(i)=WshShell.ExpandEnvironmentStrings(firewall_dict(i))
 
 -   'netsh advfirewall firewall del rule name=i
 
 -   tmp1=" del rule name=" & chr(34) & i & chr(34)
 
 -   'netsh advfirewall firewall add rule name=i program=i action=block dir=out
 
 -   tmp2=" add rule name=" & chr(34) & i & chr(34) & " program=" & chr(34) & firewall_dict(i) & chr(34) & " action=block dir=out"
 
 -   'netsh advfirewall firewall add rule name=i service=%%j action=block dir=out program="%svchost_exe%"
 
 -   tmp3=" add rule name=" & chr(34) & i & chr(34) & " service=" & chr(34) & firewall_dict(i) & chr(34) & " action=block dir=out program=" & chr(34) & windir & "\system32\svchost.exe" & chr(34)
 
 -   WshShell.Run "netsh advfirewall firewall " & tmp1 ,0,true '删除之前规则
 
 -   WshShell.Run "netsh advfirewall firewall " & tmp2 ,0,true '建立新规则
 
 -   if i="Windows Update" then WshShell.Run "netsh advfirewall firewall " & tmp3 ,0,true '添加阻止服务出站规则
 
 - next
 
  复制代码 
比如:
 
脚本.7z
(1.14 KB, 下载次数: 19)
 
遍历当前目录解除禁止EXE文件联网.vbs、遍历当前目录禁止所有EXE文件联网.vbs 
 
 
 
 |   
 
 
 
 |