Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

编码实现用程序开端口

时 间:2020-05-02 23:41:44
作 者:AngelHis   ID:20576  城市:沈阳
摘 要:网上的例子——编码实现用程序开端口。
正 文:

Option Compare Database
Option Explicit
 
Sub aa(portcode As Integer)    '编码实现用程序开端口
    On Error GoTo 0
    'Set Constants
    Const NET_FW_IP_PROTOCOL_UDP = 17
    Const NET_FW_IP_PROTOCOL_TCP = 6
    Const NET_FW_SCOPE_ALL = 0
    Const NET_FW_SCOPE_LOCAL_SUBNET = 1
    'Declare variables
    'Create the firewall manager object.
    Dim fwMgr
    Dim Profile
    Dim Port
    If portcode = 0 Then Exit Sub
    Set fwMgr = CreateObject("HNetCfg.FwMgr")
    ' Get the current profile for the local firewall policy.
    Set Profile = fwMgr.LocalPolicy.CurrentProfile
    Set Port = CreateObject("HNetCfg.FWOpenPort")
    Port.Name = "HTTP"
    Port.Protocol = NET_FW_IP_PROTOCOL_TCP    '6
    Port.Port = portcode
    'If using Scope, don't use RemoteAddresses
    Port.Scope = NET_FW_SCOPE_ALL    ' 0
    'Use this line to scope the port to Local Subnet only
    'port.Scope = NET_FW_SCOPE_LOCAL_SUBNET     ' 1
    Port.Enabled = True
    'Use this line instead if you want to add the port, but disabled
    'port.Enabled = FALSE
    On Error Resume Next
    Profile.GloballyOpenPorts.Add Port
    If Err.Number <> 0 Then
        MsgBox "Adding the port failed:" & Err.Description, , "Error Number: " & Err.Number
    End If
End Sub
 

Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助