`
hanbaohong
  • 浏览: 407489 次
  • 性别: Icon_minigender_1
  • 来自: 广州
社区版块
存档分类
最新评论

VB编写的程序加入防火墙的例外中

    博客分类:
  • VB
阅读更多

 在工程中要先引入:

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

 

 

分享到:
评论

相关推荐

    vb编写的防火墙程序

    vb6.0编写的防火墙程序,想研究的同志们可以看看

    VB编写的小程序VB编写的小程序

    VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序VB编写的小程序

    vb编写的简单画图程序

    1. **Module1.bas**:这是VB中的一个模块,通常用来定义全局变量、函数和子过程。在这个画图程序中,可能包含了绘图所需的通用函数或者辅助功能,比如颜色转换、坐标计算等。 2. **drawplat.frm**:"drawplat"可能...

    界面清爽VB版高级专业防火墙

    支持监控包括TCP传输控制协议和 UDP ... 该防火墙还具有检测你的网络速度,可以实时查看每一个连接IP的网速,最主要的是非常快速并且稳定,希望有志于防火墙研究的程序爱好者能以此为基础做出更好的VB版防火墙大餐!

    firewall.rar_VB6.0防火墙_firewall_vb6_防火墙

    vb6写的防火墙vb6写的防火墙vb6写的防火墙

    VB开发的高级防火墙

    VB开发的高级防火墙,功能很强大!与一般的防火墙功能没有什么差别。非常多功能

    VB 编写的Spyder个人防火墙

    非常专业的防火墙软件,平时驻留托盘区,具备端口监视功能,可存储日志。

    VB编写程序在任务管理器和进程中隐藏

    在VB中,隐藏程序于任务管理器主要涉及到的是防止程序在“应用程序”或“详细信息”标签页中被看到。这通常通过创建一个没有界面(无窗体,Windowless)的应用程序来实现。在VB中,我们可以通过创建一个Sub Main函数...

    双色球选号 程序 VB编写

    双色球选号 程序 VB编写 比较有意思 可以参考,以便学习VB 相信是个比较号的VB范例

    VB编写画图程序(含源代码)

    在VB中实现画图功能,主要依赖于Windows API(应用程序接口)以及GDI+(图形设备接口)的支持。API函数提供了丰富的绘图命令,如画线、填充区域、设置颜色等,而GDI+则为VB提供了更高级别的图形处理能力,包括矢量...

    VB编写的Modbus_RTU

    在VB中,模块是存放全局变量、常量、子过程和函数的地方,因此Module1可能是实现Modbus协议的核心部分,包括读取和写入寄存器、解析和构建Modbus报文等功能。 `Form1.frm`则代表项目的主用户界面。在这里,开发者...

    vb编写CAN通信.rar

    在“vb编写CAN通信.rar”这个压缩包中,我们可以期待找到使用VB.NET编写的CAN控制程序的源代码。这个程序可能包含了以下关键知识点: 1. **CAN接口库**:VB.NET程序通常会依赖于一个CAN接口库,如CANLib或PCAN,来...

    vb编写的报告计时程序

    【VB编写的报告计时程序】是一个利用Visual Basic 6.0(VB6.0)开发的应用程序,专为领导、演讲者等在各种发言场合使用。该程序的主要功能是帮助用户跟踪和管理他们的报告时间,确保讲演的节奏得到良好控制。下面将...

    VB做的全套功能防火墙

    VB做的全套防火墙 VB做的全套防火墙 VB做的全套防火墙 VB做的全套防火墙

    vb编写记事本,附带源代码,可跟着学习制作

    标题中的“vb编写记事本”指的是使用Visual Basic(VB)编程语言开发的一个基础文本编辑器,类似于系统自带的“记事本”程序。Visual Basic是Microsoft推出的一种面向对象的编程环境,它以其简单易学、语法直观而受...

    VB编写插件及应用程序

    3. **实现接口**:在VB中编写代码来实现接口。这可能包括创建函数来响应主程序的调用,或者注册事件处理程序来处理来自主程序的事件。 4. **注册插件**:为了让主应用程序能够识别并加载插件,通常需要一个注册过程...

    VB上位机程序编写_百度文库

    VB上位机程序编写_百度文库 VB上位机程序编写 - VB Mscomm 控件基本介绍 VB Mscomm 控件 一、MSComm 控件的主要属性、事件 1、MSComm 的属性 Commport:设置或返回串口号。 ... 7页 浏览:1920次 wenku.baidu....

    vb做的小程序

    首先,我们来看看VB中的基本编程结构。VB采用面向对象的编程方式,游戏中的每个元素都可以看作一个对象,比如豆豆、锤子等。每个对象都有其特定的属性(如位置、大小、颜色)、方法(如移动、击打)和事件(如被点击...

    一个VB写的防火墙程序.rar

    一个VB写的防火墙程序,可过滤端口,拦截可疑的应用程序运行,界面看上去还不错,带声音报警,生成拦截记录等...从这个VB网络防火墙程序中,重要的是你可了解到许多实用的网络编程知识,这才是本源码值得研究的重点。

    精品-VB编写的vb程序反编译程序

    "精品-VB编写的vb程序反编译程序"这个标题暗示了我们有一个使用VB语言开发的专门用于反编译VB程序的工具。这种工具通常工作原理是解析VB编译后的.pvb或.vbp文件,从中提取出原始的VB代码。由于VB编译后的代码并不是...

Global site tag (gtag.js) - Google Analytics