无法修改稻壳2.10.10强制升级 - 无忧启动论坛

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

复制代码