在工程中要先引入: NetCon 1.0 Type Library NetFwTypeLib Option Explicit Const NET_FW_SCOPE_ALL = 0 Const NET_FW_SCOPE_LOCAL_SUBNET = 1 Const NET_FW_IP_VERSION_ANY = 2 '获取Windows防火墙的当前状态 Public Function FirewallStatus() As Boolean Dim fwMgr As INetFwMgr Dim oP…