Access微課連載
網站公告
·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > 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群 (群號:596608182)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助