- 博客(0)
- 资源 (1)
空空如也
防火墙开启例外端口
.版本 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)
2012-06-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人