modnetstat.bas

支持监控包括传输控制协议和 UDP 的所有的互联网传输协议。同时程序具有实时文件防修改监控功能

Attribute VB_Name = "modNetstat"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/09/20
'描    述：界面清爽VB版高级专业防火墙 Ver 2.0.3
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit
'-------------------------------------------------------------------------------
'Types and function for the ICMP table:
'Public lc
Private MIBICMPSTATS                       As MIBICMPSTATS
Public Type MIBICMPSTATS
    dwEchos                                    As Long
    dwEchoReps                                 As Long
End Type
Private MIBICMPINFO                        As MIBICMPINFO
Public Type MIBICMPINFO
    icmpOutStats                               As MIBICMPSTATS
End Type
Private MIB_ICMP                           As MIB_ICMP
Public Type MIB_ICMP
    stats                                      As MIBICMPINFO
End Type
Private Last_ICMP_Cnt                      As Long 'ICMP count
'-------------------------------------------------------------------------------
'Types and functions for the TCP table:
Type MIB_TCPROW
    dwState                                    As Long
    dwLocalAddr                                As Long
    dwLocalPort                                As Long
    dwRemoteAddr                               As Long
    dwRemotePort                               As Long
End Type
Type MIB_TCPTABLE
    dwNumEntries                               As Long
    table(2000)                                As MIB_TCPROW
End Type
Public MIB_TCPTABLE                        As MIB_TCPTABLE
'TCP connection count
'-------------------------------------------------------------------------------
'Types and functions for winsock:
Private Const MAX_WSADescription           As Long = 256
Private Const MAX_WSASYSStatus             As Long = 128
Type servent
    s_name                                     As Long
' (pointer to string) official service name
    s_aliases                                  As Long
' (pointer to string) alias list (might be null-seperated with 2null terminated)
    s_port                                     As Long    ' port #
    s_proto                                    As Long
' (pointer to) protocol to use
End Type
Private Type WSAdata
    wVersion                                   As Integer
    wHighVersion                               As Integer
    szDescription(0 To MAX_WSADescription)     As Byte
    szSystemStatus(0 To MAX_WSASYSStatus)      As Byte
    wMaxSockets                                As Long
    wMaxUDPDG                                  As Long
    dwVendorInfo                               As Long
End Type
Private Type Ports_
    RemA                                       As String
    RemP                                       As String
    State                                      As String
    LocP                                       As String
End Type
Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, _
                                                        ByRef pdwSize As Long, _
                                                        ByVal bOrder As Long) As Long
Public Declare Function SetTcpEntry Lib "iphlpapi" (pTcpRow As MIB_TCPROW) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, _
                                                                    Src As Any, _
                                                                    ByVal cb As Long)
Public Declare Function lstrlen Lib "kernel32" (ByVal lpString As Any) As Integer