【转】如何编程自动配置系统防火墙（MSDN资料）-阿里云开发者社区

【转】如何编程自动配置系统防火墙（MSDN资料）

2011-02-22 820

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： from:http://hi.baidu.com/widebright/blog/item/ff0f5b828d2936a40cf4d284.html 2008年10月18日星期六 09:57 现在的网络程序都会在系统自带Windows 防火墙里面添加端口规则的了，其实这个使用“Windows Firewall” api接口就可以很简单的做到。

from: http://hi.baidu.com/widebright/blog/item/ff0f5b828d2936a40cf4d284.html

2008年10月18日星期六 09:57

现在的网络程序都会在系统自带Windows 防火墙里面添加端口规则的了，其实这个使用“Windows Firewall” api接口就可以很简单的做到。

http://msdn.microsoft.com/en-us/library/aa364695(VS.85).aspx

option explicit

Dim CurrentProfile

' Protocol
Const NET_FW_IP_PROTOCOL_TCP = 6

'Action
Const NET_FW_ACTION_ALLOW = 1

' Create the FwPolicy2 object.
Dim fwPolicy2
Set fwPolicy2 = CreateObject("HNetCfg.FwPolicy2")

' Get the Rules object
Dim RulesObject
Set RulesObject = fwPolicy2.Rules

CurrentProfile = fwPolicy2.CurrentProfileTypes

'Create a Rule Object.
Dim NewRule
Set NewRule = CreateObject("HNetCfg.FWRule")
    
NewRule.Name = "My Application Name"
NewRule.Description = "Allow my application network traffic"
NewRule.Applicationname = "%systemDrive%\\Program Files\\MyApplication.exe"
NewRule.Protocol = NET_FW_IP_PROTOCOL_TCP
NewRule.LocalPorts = 4000
NewRule.Enabled = TRUE
NewRule.Grouping = "@firewallapi.dll,-23255"
NewRule.Profiles = CurrentProfile
NewRule.Action = NET_FW_ACTION_ALLOW
    
'Add a new rule
RulesObject.Add NewRule

option explicit

Dim CurrentProfile

' Protocol
Const NET_FW_IP_PROTOCOL_TCP = 6

'Action
Const NET_FW_ACTION_ALLOW = 1

' Create the FwPolicy2 object.
Dim fwPolicy2
Set fwPolicy2 = CreateObject("HNetCfg.FwPolicy2")

' Get the Rules object
Dim RulesObject
Set RulesObject = fwPolicy2.Rules

CurrentProfile = fwPolicy2.CurrentProfileTypes

'Create a Rule Object.
Dim NewRule
Set NewRule = CreateObject("HNetCfg.FWRule")
    
NewRule.Name = "My Application Name"
NewRule.Description = "Allow my application network traffic"
NewRule.Applicationname = "%systemDrive%\\Program Files\\MyApplication.exe"
NewRule.Protocol = NET_FW_IP_PROTOCOL_TCP
NewRule.LocalPorts = 4000
NewRule.Enabled = TRUE
NewRule.Grouping = "@firewallapi.dll,-23255"
NewRule.Profiles = CurrentProfile
NewRule.Action = NET_FW_ACTION_ALLOW
    
'Add a new rule
RulesObject.Add NewRule

【转】如何编程自动配置系统防火墙（MSDN资料）

热门文章

最新文章

相关电子书

相关实验场景

【转】如何编程自动配置系统防火墙 （MSDN资料）

热门文章

最新文章

相关电子书

相关实验场景

【转】如何编程自动配置系统防火墙（MSDN资料）