防火墙开启例外端口

.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 开启例外端口 (“测试”, 123) .子程序 开启例外端口 .参数 名称, 文本型 .参数 端口, 短整数型 .局部变量 ovMgr, 对象 .局部变量 ovProfile, 对象 .局部变量 ovPort, 对象 ovMgr.创建 (“HNetCfg.FwMgr”, ) ovProfile ＝ ovMgr.读对象型属性 (“LocalPolicy”, ).读对象型属性 (“CurrentProfile”, ) ovPort.创建 (“HNetCfg.FwOpenPort”, ) ovPort.写属性 (“Port”, 端口) ovPort.写属性 (“Name”, 名称) ovPort.写属性 (“Scope”, 0) ' NET_FW_SCOPE_ALL; ovPort.写属性 (“IpVersion”, 2) ' NET_FW_IP_VERSION_ANY ovPort.写属性 (“Protocol”, 6) ' NET_FW_IP_PROTOCOL_TCP ovPort.写属性 (“Enabled”, 真) ovProfile.读对象型属性 (“GloballyOpenPorts”, ).方法 (“Add”, ovPort)