mdlprocess1.bas

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

Attribute VB_Name = "mdlProcess1"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：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
'// 60% of this constants are not used by program, mostly because this is free-source
'// version, many of the stuffs here do not exist in msdn or api viewer, so I've left them
'// so you could use them, if you need.
Private Thread()                                                  As THREADENTRY32
Public Const SYNCHRONIZE                                          As Long = &H100000
Public Const STANDARD_RIGHTS_REQUIRED                             As Long = &HF0000
'Public Const MAX_PATH                                             As Long = 260
Private Const EXCEPTION_MAXIMUM_PARAMETERS                        As Long = 15
Public Const PROCESS_VM_READ                                      As Long = &H10
'Private Const PROCESS_VM_WRITE                                    As Long = &H20
Public Const PROCESS_QUERY_INFORMATION                            As Long = &H400
Public Const PROCESS_ALL_ACCESS                                   As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
Private Const THREAD_SUSPEND_RESUME                               As Long = &H2
Public Const FORMAT_MESSAGE_ALLOCATE_BUFFER                       As Long = &H100
Public Const FORMAT_MESSAGE_FROM_SYSTEM                           As Long = &H1000
Private Const HW_PROFILE_GUIDLEN                                  As Long = 39
Private Const MAX_PROFILE_LEN                                     As Long = 80
Public Type FILETIME
    dwLowDateTime                                                     As Long
    dwHighDateTime                                                    As Long
End Type
Public Type BY_HANDLE_FILE_INFORMATION
    dwFileAttributes                                                  As Long
    ftCreationTime                                                    As FILETIME
    ftLastAccessTime                                                  As FILETIME
    ftLastWriteTime                                                   As FILETIME
    dwVolumeSerialNumber                                              As Long
    nFileSizeHigh                                                     As Long
    nFileSizeLow                                                      As Long
    nNumberOfLinks                                                    As Long
    nFileIndexHigh                                                    As Long
    nFileIndexLow                                                     As Long
End Type
Public Type HW_PROFILE_INFO
    dwDockInfo                                                        As Long
    szHwProfileGuid                                                   As String * HW_PROFILE_GUIDLEN
    szHwProfileName                                                   As String * MAX_PROFILE_LEN
End Type
Public Type SYSTEM_INFO
    dwOemID                                                           As Long            'Union
'WORD wProcessorArchitecture
'WORD wReserved
    dwPageSize                                                        As Long
    lpMinimumApplicationAddress                                       As Long
    lpMaximumApplicationAddress                                       As Long
    dwActiveProcessorMask                                             As Long
    dwNumberOrfProcessors                                             As Long
    dwProcessorType                                                   As Long
    dwAllocationGranularity                                           As Long
    wProcessorLevel                                                   As Long
    wProcessorRevision                                                As Long
End Type
Public Type SYSTEM_POWER_STATUS
    ACLineStatus                                                      As Byte
    BatteryFlag                                                       As Byte
    BatteryLifePercent                                                As Byte
    Reserved1                                                         As Byte
    BatteryLifeTime                                                   As Long
    BatteryFullLifeTime                                               As Long
End Type
Public Type SYSTEMTIME
    wYear                                                             As Integer
    wMonth                                                            As Integer
    wDayOfWeek                                                        As Integer
    wDay                                                              As Integer
    wHour                                                             As Integer
    wMinute                                                           As Integer
    wSecond                                                           As Integer
    wMilliseconds                                                     As Integer
End Type
Public Type TIME_ZONE_INFORMATION
    Bias                                                              As Long
    StandardName                                                      As String * 64
    StandardDate                                                      As SYSTEMTIME
    StandardBias                                                      As Long
    DaylightName                                                      As String * 64
    DaylightDate                                                      As SYSTEMTIME
    DaylightBias                                                      As Long
End Type
Public Enum COMPUTER_NAME_FORMAT
    ComputerNameNetBIOS
    ComputerNameDnsHostname
    ComputerNameDnsDomain
    ComputerNameDnsFullyQualified
    ComputerNamePhysicalNetBIOS
    ComputerNamePhysicalDnsHostname
    ComputerNamePhysicalDnsDomain
    ComputerNamePhysicalDnsFullyQualified
    ComputerNameMax
End Enum
#If False Then 'Trick preserves Case of Enums when typing in IDE
Private ComputerNameNetBIOS, ComputerNameDnsHostname, ComputerNameDnsDomain, ComputerNameDnsFullyQualified, ComputerNamePhysicalNetBIOS
Private ComputerNamePhysicalDnsHostname, ComputerNamePhysicalDnsDomain, ComputerNamePhysicalDnsFullyQualified, ComputerNameMax
#End If
Public Type ADMINISTRATOR_POWER_POLICY
    MinSleep                                                          As SYSTEM_POWER_STATE
    MaxSleep                                                          As SYSTEM_POWER_STATE
    MinVideoTimeout                                                   As Long
    MaxVideoTimeout                                                   As Long
    MinSpindownTimeout                                                As Long
    MaxSpindownTimeout                                                As Long
End Type
Public Type BATTERY_REPORTING_SCALE
    Granularity                                                       As Long
    Capacity                                                          As Long
End Type
Public Type EXCEPTION_RECORD
    ExceptionCode                                                     As Long
    ExceptionFlags                                                    As Long
    ExceptionRecord                                                   As Long
    ExceptionAddress                                                  As Long
    NumberParameters                                                  As Long
    ExceptionInformation(0 To EXCEPTION_MAXIMUM_PARAMETERS - 1)       As Long
End Type
Public Type EXCEPTION_POINTERS
    ExceptionRecord                                                   As EXCEPTION_RECORD
    ContextRecord                                                     As Long
End Type
Public Type IMAGE_DOS_HEADER
    e_magic                                                           As Long
    e_cblp                                                            As Long
    e_cp                                                              As Long
    e_crlc                                                            As Long
    e_cparhdr                                                         As Long
    e_minalloc                                                        As Long
    e_maxalloc                                                        As Long
    e_ss                                                              As Long
    e_sp                                                              As Long
    e_csum                                                            As Long
    e_ip                                                              As Long
    e_cs                                                              As Long
    e_lfarlc                                                          As Long
    e_ovno                                                            As Long
    e_res(0 To 3)                                                     As Long
    e_oemid                                                           As Long
    e_oeminfo                                                         As Long
    e_res2(0 To 9)                                                    As Long
    e_lfanew                                                          As Long
End Type
Public Type IMAGE_FILE_HEADER
    Machine                                                           As Long
    NumberOfSections                                                  As Long
    TimeDateStamp                                                     As Long
    PointerToSymbolTable                                              As Long
    NumberOfSymbols                                                   As Long
    SizeOfOptionalHeader                                              As Long
    Characteristics                                                   As Long
End Type
Public Type IMAGE_OS2_HEADER
    ne_magic                                                          As Long
    ne_ver                                                            As Byte
    ne_rev                                                            As Byte
    ne_enttab                                                         As Long
    ne_cbenttab                                                       As Long
    ne_crc                                                            As Long
    ne_flags                                                          As Long
    ne_autodata                                                       As Long
    ne_heap                                                           As Long
    ne_stack                                                          As Long
    ne_csip                                                           As Long
    ne_sssp                                                           As Long
    ne_cseg                                                           As Long
    ne_cmod                                                           As Long
    ne_cbnrestab                                                      As Long
    ne_segtab                                                         As Long