磁性窗体 VB分析和总结.docxVIP

///mag/Cls_Magnetic.cls VERSION 1.0 CLASS BEGIN MultiUse = -1 True Persistable = 0 NotPersistable DataBindingBehavior = 0 vbNone DataSourceBehavior = 0 vbNone MTSTransactionMode = 0 NotAnMTSObject END Attribute VB_Name = Cls_Magnetic Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Private Enum eMsgWhen [MSG_AFTER] = 1 [MSG_BEFORE] = 2 [MSG_BEFORE_AND_AFTER] = MSG_AFTER Or MSG_BEFORE End Enum Private Const ALL_MESSAGES As Long = -1 Private Const CODE_LEN As Long = 197 Private Const GWL_WNDPROC As Long = -4 Private Const PATCH_04 As Long = 88 Private Const PATCH_05 As Long = 93 Private Const PATCH_08 As Long = 132 Private Const PATCH_09 As Long = 137 Private Type tSubData hwnd As Long nAddrSub As Long nAddrOrig As Long nMsgCntA As Long nMsgCntB As Long aMsgTblA() As Long aMsgTblB() As Long End Type Private sc_aSubData() As tSubData Private sc_aBuf(1 To CODE_LEN) As Byte Private sc_pCWP As Long Private sc_pEbMode As Long Private sc_pSWL As Long Private Declare Sub RtlMoveMemory Lib kernel32 (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function GetModuleHandleA Lib kernel32 (ByVal lpModuleName As String) As Long Private Declare Function GetProcAddress Lib kernel32 (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function GlobalAlloc Lib kernel32 (ByVal wFlags As Long, ByVal dwBytes As Long) As Long Private Declare Function GlobalFree Lib kernel32 (ByVal hmem As Long) As Long Private Declare Function SetWindowLongA Lib user32 (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function VirtualProtect Lib kernel32 (lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long Private Type POINTAPI x1 As Long Y1 As Long End Type Private Type RECT2 x1 As Long Y1 As Long x2 As Long Y2 As Long End Type Private Const SPI_GETWORKAREA As