【文件属性】：
文件名称：防火墙开启例外端口
文件大小：3KB
文件格式：E
更新时间：2015-06-30 07:53:00
122
.版本 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)