在工程中要先引入:
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 oProfile As INetFwProfile
On Error GoTo errHandler
'声明Windows防火墙配置管理接口对象
Set fwMgr = CreateObject("HNetCfg.FwMgr")
'获取本地防火墙当前的配置对象
Set oProfile = fwMgr.LocalPolicy.CurrentProfile
'获取防火墙的状态,Ture表示启用,False表示禁用
FirewallStatus = oProfile.FirewallEnabled
Set oProfile = Nothing
Set fwMgr = Nothing
Exit Function
errHandler:
FirewallStatus = False
MsgBox ("Error: & Err.Description")
Err.Clear
End Function
'切换Windows防火墙的状态
Public Sub SwitchFirewall()
Dim fwMgr As INetFwMgr
Dim oProfile As INetFwProfile
On Error GoTo errHandler
'声明Windows防火墙配置管理接口对象
Set fwMgr = CreateObject("HNetCfg.FwMgr")
'获取本地防火墙当前的配置对象
Set oProfile = fwMgr.LocalPolicy.CurrentProfile
'根据当前的防火墙状态相应地调整启用与禁用状态
oProfile.FirewallEnabled = Not (oProfile.FirewallEnabled)
Set oProfile = Nothing
Set fwMgr = Nothing
Exit Sub
errHandler:
MsgBox (Err.Description)
Err.Clear
End Sub
'将当前应用程序添加到Windows防火墙例外列表
Public Sub AddApplicationRule()
Dim fwMgr As INetFwMgr
Dim oProfile As INetFwProfile
On Error GoTo errHandler
'声明Windows防火墙配置管理接口对象
Set fwMgr = CreateObject("HNetCfg.FwMgr")
'获取本地防火墙当前的配置对象
Set oProfile = fwMgr.LocalPolicy.CurrentProfile
Dim oApplication As INetFwAuthorizedApplication
'声明认证程序对象
Set oApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
'设置认证程序对象的相关属性
With oApplication
'应用程序的完整路径
.ProcessImageFileName = App.Path & "\" & App.EXEName & ".exe"
'应用程序的名称,也就是在Windows防火墙例外列表中显示的名称
.Name = "测试例子"
'定义本规则作用的范围
.Scope = NET_FW_SCOPE_ALL
'定义本规则用户的IP协议版本
.IpVersion = NET_FW_IP_VERSION_ANY
'表示启用当前规则
.Enabled = True
End With
'将创建的认证程序对象添加到本地防火墙策略的认证程序集合
oProfile.AuthorizedApplications.Add oApplication
Set oApplication = Nothing
Set oProfile = Nothing
Set fwMgr = Nothing
MsgBox ("添加成功!")
Exit Sub
errHandler:
MsgBox (Err.Description)
Err.Clear
End Sub
Private Sub Command1_Click()
SwitchFirewall
Label1.Caption = FirewallStatus
End Sub
Private Sub Command3_Click()
AddApplicationRule
Label1.Caption = FirewallStatus
End Sub
分享到:
相关推荐
vb6.0编写的防火墙程序,想研究的同志们可以看看
VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序
1. **Module1.bas**:这是VB中的一个模块,通常用来定义全局变量、函数和子过程。在这个画图程序中,可能包含了绘图所需的通用函数或者辅助功能,比如颜色转换、坐标计算等。 2. **drawplat.frm**:"drawplat"可能...
支持监控包括TCP传输控制协议和 UDP ... 该防火墙还具有检测你的网络速度,可以实时查看每一个连接IP的网速,最主要的是非常快速并且稳定,希望有志于防火墙研究的程序爱好者能以此为基础做出更好的VB版防火墙大餐!
vb6写的防火墙vb6写的防火墙vb6写的防火墙
VB开发的高级防火墙,功能很强大!与一般的防火墙功能没有什么差别。非常多功能
非常专业的防火墙软件,平时驻留托盘区,具备端口监视功能,可存储日志。
在VB中,隐藏程序于任务管理器主要涉及到的是防止程序在“应用程序”或“详细信息”标签页中被看到。这通常通过创建一个没有界面(无窗体,Windowless)的应用程序来实现。在VB中,我们可以通过创建一个Sub Main函数...
双色球选号 程序 VB编写 比较有意思 可以参考,以便学习VB 相信是个比较号的VB范例
在VB中实现画图功能,主要依赖于Windows API(应用程序接口)以及GDI+(图形设备接口)的支持。API函数提供了丰富的绘图命令,如画线、填充区域、设置颜色等,而GDI+则为VB提供了更高级别的图形处理能力,包括矢量...
在VB中,模块是存放全局变量、常量、子过程和函数的地方,因此Module1可能是实现Modbus协议的核心部分,包括读取和写入寄存器、解析和构建Modbus报文等功能。 `Form1.frm`则代表项目的主用户界面。在这里,开发者...
在“vb编写CAN通信.rar”这个压缩包中,我们可以期待找到使用VB.NET编写的CAN控制程序的源代码。这个程序可能包含了以下关键知识点: 1. **CAN接口库**:VB.NET程序通常会依赖于一个CAN接口库,如CANLib或PCAN,来...
【VB编写的报告计时程序】是一个利用Visual Basic 6.0(VB6.0)开发的应用程序,专为领导、演讲者等在各种发言场合使用。该程序的主要功能是帮助用户跟踪和管理他们的报告时间,确保讲演的节奏得到良好控制。下面将...
VB做的全套防火墙 VB做的全套防火墙 VB做的全套防火墙 VB做的全套防火墙
标题中的“vb编写记事本”指的是使用Visual Basic(VB)编程语言开发的一个基础文本编辑器,类似于系统自带的“记事本”程序。Visual Basic是Microsoft推出的一种面向对象的编程环境,它以其简单易学、语法直观而受...
3. **实现接口**:在VB中编写代码来实现接口。这可能包括创建函数来响应主程序的调用,或者注册事件处理程序来处理来自主程序的事件。 4. **注册插件**:为了让主应用程序能够识别并加载插件,通常需要一个注册过程...
VB上位机程序编写_百度文库 VB上位机程序编写 - VB Mscomm 控件基本介绍 VB Mscomm 控件 一、MSComm 控件的主要属性、事件 1、MSComm 的属性 Commport:设置或返回串口号。 ... 7页 浏览:1920次 wenku.baidu....
首先,我们来看看VB中的基本编程结构。VB采用面向对象的编程方式,游戏中的每个元素都可以看作一个对象,比如豆豆、锤子等。每个对象都有其特定的属性(如位置、大小、颜色)、方法(如移动、击打)和事件(如被点击...
一个VB写的防火墙程序,可过滤端口,拦截可疑的应用程序运行,界面看上去还不错,带声音报警,生成拦截记录等...从这个VB网络防火墙程序中,重要的是你可了解到许多实用的网络编程知识,这才是本源码值得研究的重点。
"精品-VB编写的vb程序反编译程序"这个标题暗示了我们有一个使用VB语言开发的专门用于反编译VB程序的工具。这种工具通常工作原理是解析VB编译后的.pvb或.vbp文件,从中提取出原始的VB代码。由于VB编译后的代码并不是...