用程式開關 Windows (XP) 防火牆
如何透過程式來控制 Windows (XP) 防火牆的開關
Dim objFW As Object
Set objFW = CreateObject("HNetCfg.FwMgr").LocalPolicy.CurrentProfile
With objFW
.FirewallEnabled = True ' True 開啟 , False 關閉
.ExceptionsNotAllowed = True ' [ 不允許例外 ] 選項 , True 勾 , 反之則不勾
End With
PS:
Windows 防火牆 (XP) 檔案位於 %WinDir%\system32\Firewall.cpl
Firewall.cpl ( Windows Firewall Control Panel )
.cpl 的檔案是 Windows Shell Common Dll 控制台擴充
