mdlprocess1.bas

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

    ne_rsrctab                                                        As Long
    ne_restab                                                         As Long
    ne_modtab                                                         As Long
    ne_imptab                                                         As Long
    ne_nrestab                                                        As Long
    ne_cmovent                                                        As Long
    ne_align                                                          As Long
    ne_cres                                                           As Long
    ne_exetyp                                                         As Byte
    ne_flagsothers                                                    As Byte
    ne_pretthunks                                                     As Long
    ne_psegrefbytes                                                   As Long
    ne_swaparea                                                       As Long
    ne_expver                                                         As Long
End Type
Public Type LARGE_INTEGER
    LowPart                                                           As Long
    HighPart                                                          As Long
End Type
Public Type LUID
    LowPart                                                           As Long
    HighPart                                                          As Long
End Type
Public Type LUID_AND_ATTRIBUTES
    pLuid                                                             As LUID
    Attributes                                                        As Long
End Type
Public Type IO_COUNTERS
    ReadOperationCount                                                As LARGE_INTEGER
    WriteOperationCount                                               As LARGE_INTEGER
    OtherOperationCount                                               As LARGE_INTEGER
    ReadTransferCount                                                 As LARGE_INTEGER
    WriteTransferCount                                                As LARGE_INTEGER
    OtherTransferCount                                                As LARGE_INTEGER
End Type
Public Type OSVERSIONINFO
    dwOSVersionInfoSize                                               As Long
    dwMajorVersion                                                    As Long
    dwMinorVersion                                                    As Long
    dwBuildNumber                                                     As Long
    dwPlatformId                                                      As Long
    szCSDVersion                                                      As String * 128
End Type
Public Type OSVERSIONINFOEX
    dwOSVersionInfoSize                                               As Long
    dwMajorVersion                                                    As Long
    dwMinorVersion                                                    As Long
    dwBuildNumber                                                     As Long
    dwPlatformId                                                      As Long
    szCSDVersion                                                      As String * 128
    wServicePackMajor                                                 As Long
    wServicePackMinor                                                 As Long
    wSuiteMask                                                        As Long
    wProductType                                                      As Byte
    wReserved                                                         As Byte
End Type
Public Type PROCESSOR_POWER_INFORMATION
    Number                                                            As Long
    MaxMhz                                                            As Long
    CurrentMhz                                                        As Long
    MhzLimit                                                          As Long
    MaxIdleState                                                      As Long
    CurrentIdleState                                                  As Long
End Type
Public Type SYSTEM_BATTERY_STATE
    AcOnLine                                                          As Byte
    BatteryPresent                                                    As Byte
    Charging                                                          As Byte
    Discharging                                                       As Byte
    Spare1(0 To 3)                                                    As Byte
    MaxCapacity                                                       As Long
    RemainingCapacity                                                 As Long
    Rate                                                              As Long
    EstimatedTime                                                     As Long
    DefaultAlert1                                                     As Long
    DefaultAlert2                                                     As Long
End Type
Public Type SYSTEM_POWER_CAPABILITIES
    PowerButtonPresent                                                As Byte
    SleepButtonPresent                                                As Byte
    LidPresent                                                        As Byte
    SystemS1                                                          As Byte
    SystemS2                                                          As Byte
    SystemS3                                                          As Byte
    SystemS4                                                          As Byte
    SystemS5                                                          As Byte
    HiberFilePresent                                                  As Byte
    FullWake                                                          As Byte
    VideoDimPresent                                                   As Byte
    ApmPresent                                                        As Byte
    UpsPresent                                                        As Byte
    ThermalControl                                                    As Byte
    ProcessorThrottle                                                 As Byte
    ProcessorMinThrottle                                              As Byte
    ProcessorMaxThrottle                                              As Byte
    spare2(0 To 3)                                                    As Byte
    DiskSpinDown                                                      As Byte
    spare3(0 To 7)                                                    As Byte
    SystemBatteriesPresent                                            As Byte
    BatteriesAreShortTerm                                             As Byte
    BatteryScale(0 To 2)                                              As BATTERY_REPORTING_SCALE
    AcOnLineWake                                                      As SYSTEM_POWER_STATE
    SoftLidWake                                                       As SYSTEM_POWER_STATE
    RtcWake                                                           As SYSTEM_POWER_STATE
    MinDeviceWakeState                                                As SYSTEM_POWER_STATE
    DefaultLowLatencyWake                                             As SYSTEM_POWER_STATE
End Type
Public Type SYSTEM_POWER_INFORMATION
    MaxIdlenessAllowed                                                As Long
    Idleness                                                          As Long
    TimeRemaining                                                     As Long
    CoolingMode                                                       As Long
End Type
Public Type TOKEN_PRIVILEGES
    PrivilegeCount                                                    As Long
    Privileges(64)                                                    As LUID_AND_ATTRIBUTES
End Type
Public Enum POWER_INFORMATION_LEVEL
    SystemPowerPolicyAc = 0
    SystemPowerPolicyDc = 1
    VerifySystemPolicyAc = 2
    VerifySystemPolicyDc = 3
    SystemPowerCapabilities = 4
    SystemBatteryState = 5
    SystemPowerStateHandler = 6
    ProcessorStateHandler = 7
    SystemPowerPolicyCurrent = 8
    AdministratorPowerPolicy = 9
    SystemReserveHiberFile = 10
    ProcessorInformation = 11
    SystemPowerInformation = 12
    ProcessorStateHandler2 = 13
    LastWakeTime = 14
    LastSleepTime = 15
    SystemExecutionState = 16
    SystemPowerStateNotifyHandler = 17
    ProcessorPowerPolicyAc = 18
    ProcessorPowerPolicyDc = 19
    VerifyProcessorPowerPolicyAc = 20
    VerifyProcessorPowerPolicyDc = 21
    ProcessorPowerPolicyCurrent = 22
End Enum
#If False Then 'Trick preserves Case of Enums when typing in IDE
Private SystemPowerPolicyAc, SystemPowerPolicyDc, VerifySystemPolicyAc, VerifySystemPolicyDc, SystemPowerCapabilities
Private SystemBatteryState, SystemPowerStateHandler, ProcessorStateHandler, SystemPowerPolicyCurrent, AdministratorPowerPolicy
Private SystemReserveHiberFile, ProcessorInformation, SystemPowerInformation, ProcessorStateHandler2, LastWakeTime, LastSleepTime
Private SystemExecutionState, SystemPowerStateNotifyHandler, ProcessorPowerPolicyAc, ProcessorPowerPolicyDc, VerifyProcessorPowerPolicyAc
Private VerifyProcessorPowerPolicyDc, ProcessorPowerPolicyCurrent
#End If
Public Enum SYSTEM_POWER_STATE
    PowerSystemUnspecified = 0
    PowerSystemWorking = 1
    PowerSystemSleeping1 = 2
    PowerSystemSleeping2 = 3
    PowerSystemSleeping3 = 4
    PowerSystemHibernate = 5
    PowerSystemShutdown = 6
    PowerSystemMaximum = 7
End Enum
#If False Then 'Trick preserves Case of Enums when typing in IDE
Private PowerSystemUnspecified, PowerSystemWorking, PowerSystemSleeping1, PowerSystemSleeping2, PowerSystemSleeping3
Private PowerSystemHibernate, PowerSystemShutdown, PowerSystemMaximum
#End If
'Private Const TH32CS_SNAPheaplist                                 As Long = &H1
Public Const TH32CS_SNAPPROCESS                                   As Long = &H2
Private Const TH32CS_SNAPthread                                   As Long = &H4
'Private Const TH32CS_SNAPmodule                                   As Long = &H8
Public Type HEAPENTRY32
    dwSize                                                            As Long
    hHandle                                                           As Long
    dwAddress                                                         As Long
    dwBlockSize                                                       As Long
    dwFlags                                                           As Long
    dwLockCount                                                       As Long
    dwResvd                                                           As Long
    th32ProcessID                                                     As Long
    th32HeapID                                                        As Long
End Type
Public Type HEAPLIST32
    dwSize                                                            As Long