modconst.bas

Windows超级黑客得到windows运行程序的信息,很经典的

Public Const WS_THICKFRAME = &H40000
Public Const WS_GROUP = &H20000
Public Const WS_TABSTOP = &H10000
Public Const WS_CAPTION = &HC00000 'WS_BORDER or WS_DLGFRAME
Public Const WS_SYSMENU = &H80000
Public Const WS_VSCROLL = &H200000
Public Const WS_HSCROLL = &H100000

' Can only be set during a CreateWindow function,
' and are not detected my GetWindowLond
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000

' Common window styles
Public Const WS_OVERLAPPEDWINDOW = WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
Public Const WS_POPUPWINDOW = WS_POPUP Or WS_BORDER Or WS_SYSMENU

' Extended Windows styles
Public Const WS_EX_DLGMODALFRAME = &H1
Public Const WS_EX_NOPARENTNOTIFY = &H4
Public Const WS_EX_TOPMOST = &H8
Public Const WS_EX_ACCEPTFILES = &H10
Public Const WS_EX_TRANSPARENT = &H20
Public Const WS_EX_MDICHILD = &H40
Public Const WS_EX_TOOLWINDOW = &H80
Public Const WS_EX_WINDOWEDGE = &H100
Public Const WS_EX_CLIENTEDGE = &H200
Public Const WS_EX_CONTEXTHELP = &H400
Public Const WS_EX_RIGHT = &H1000
Public Const WS_EX_LEFT = &H0
Public Const WS_EX_RTLREADING = &H2000
Public Const WS_EX_LTRREADING = &H0
Public Const WS_EX_LEFTSCROLLBAR = &H4000
Public Const WS_EX_RIGHTSCROLLBAR = &H0
Public Const WS_EX_CONTROLPARENT = &H10000
Public Const WS_EX_STATICEDGE = &H20000
Public Const WS_EX_APPWINDOW = &H40000

' Common Windows extended styles
Public Const WS_EX_OVERLAPPEDWINDOW = WS_EX_WINDOWEDGE Or WS_EX_CLIENTEDGE
Public Const WS_EX_PALETTEWINDOW = WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST

'
' Edit box messages
'
Public Const EM_GETSEL = &HB0
Public Const EM_SETSEL = &HB1
Public Const EM_GETRECT = &HB2
Public Const EM_SETRECT = &HB3
Public Const EM_SETRECTNP = &HB4
Public Const EM_SCROLL = &HB5
Public Const EM_LINESCROLL = &HB6
Public Const EM_SCROLLCARET = &HB7
Public Const EM_GETMODIFY = &HB8
Public Const EM_SETMODIFY = &HB9
Public Const EM_GETLINECOUNT = &HBA
Public Const EM_LINEINDEX = &HBB
Public Const EM_SETHANDLE = &HBC
Public Const EM_GETHANDLE = &HBD
Public Const EM_GETTHUMB = &HBE
Public Const EM_LINELENGTH = &HC1
Public Const EM_REPLACESEL = &HC2
Public Const EM_GETLINE = &HC4
Public Const EM_LIMITTEXT = &HC5
Public Const EM_CANUNDO = &HC6
Public Const EM_UNDO = &HC7
Public Const EM_FMTLINES = &HC8
Public Const EM_LINEFROMCHAR = &HC9
Public Const EM_SETTABSTOPS = &HCB
Public Const EM_SETPASSWORDCHAR = &HCC
Public Const EM_EMPTYUNDOBUFFER = &HCD
Public Const EM_GETFIRSTVISIBLELINE = &HCE
Public Const EM_SETREADONLY = &HCF
Public Const EM_SETWORDBREAKPROC = &HD0
Public Const EM_GETWORDBREAKPROC = &HD1
Public Const EM_GETPASSWORDCHAR = &HD2
Public Const EM_SETMARGINS = &HD3
Public Const EM_GETMARGINS = &HD4
Public Const EM_SETLIMITTEXT = EM_LIMITTEXT  '/* ;win40 Name change */
Public Const EM_GETLIMITTEXT = &HD5
Public Const EM_POSFROMCHAR = &HD6
Public Const EM_CHARFROMPOS = &HD7
' Edit notification messages
'EN_CHANGE
'EN_ERRSPACE
'EN_HSCROLL
'EN_KILLFOCUS
'EN_MAXTEXT
'EN_SETFOCUS
'EN_UPDATE
'EN_VSCROLL
' Windows Messages (already defined above)
'WM_COMMAND
'WM_COPY
'WM_CTLCOLOREDIT
'WM_CUT
'WM_PASTE
'WM_UNDO
'WM_GETTEXT
'WM_SETTEXT
' + otheres, but these are the main ones

' Edit Class Style Bits
Public Const ES_MULTILINE = &H4&
Public Const ES_LEFT = &H0&
Public Const ES_RIGHT = &H2&
Public Const ES_CENTER = &H1&
Public Const ES_UPPERCASE = &H8&
Public Const ES_LOWERCASE = &H10&
Public Const ES_OEMCONVERT = &H400&
Public Const ES_AUTOHSCROLL = &H80&
Public Const ES_AUTOVSCROLL = &H40&
Public Const ES_NUMBER = &H2000&
Public Const ES_NOHIDESEL = &H100&
Public Const ES_READONLY = &H800&
Public Const ES_WANTRETURN = &H1000&
Public Const ES_PASSWORD = &H20&
' WS_BORDER to have a border on the edit control


' Background Brushes
Public Const COLOR_SCROLLBAR = 0
Public Const COLOR_BACKGROUND = 1
Public Const COLOR_ACTIVECAPTION = 2
Public Const COLOR_INACTIVECAPTION = 3
Public Const COLOR_MENU = 4
Public Const COLOR_WINDOW = 5
Public Const COLOR_WINDOWFRAME = 6
Public Const COLOR_MENUTEXT = 7
Public Const COLOR_WINDOWTEXT = 8
Public Const COLOR_CAPTIONTEXT = 9
Public Const COLOR_ACTIVEBORDER = 10
Public Const COLOR_INACTIVEBORDER = 11
Public Const COLOR_APPWORKSPACE = 12
Public Const COLOR_HIGHLIGHT = 13
Public Const COLOR_HIGHLIGHTTEXT = 14
Public Const COLOR_BTNFACE = 15
Public Const COLOR_BTNSHADOW = 16
Public Const COLOR_GRAYTEXT = 17
Public Const COLOR_BTNTEXT = 18
Public Const COLOR_INACTIVECAPTIONTEXT = 19
Public Const COLOR_BTNHIGHLIGHT = 20

' Standard Cursor IDs
Public Enum CursorID
 IDC_ARROW = 32512&
 IDC_IBEAM = 32513&
 IDC_WAIT = 32514&
 IDC_CROSS = 32515&
 IDC_UPARROW = 32516&
 IDC_SIZE = 32640&
 IDC_ICON = 32641&
 IDC_SIZENWSE = 32642&
 IDC_SIZENESW = 32643&
 IDC_SIZEWE = 32644&
 IDC_SIZENS = 32645&
 IDC_SIZEALL = 32646&
 IDC_NO = 32648&
 IDC_APPSTARTING = 32650&
End Enum

Public Sub EnumAllWinds(ByRef WindsEnum() As Long)

Dim Temp As Long
Dim i As Long

ReDim WindsEnum(0 To 0) As Long
Dim ChildWindsEnum() As Long
ReDim ChildWindsEnum(0 To 0) As Long

EnumWindows AddressOf EnumWindowsProc, WindsEnum()

For i = 1 To UBound(WindsEnum)
  EnumChildWindows WindsEnum(i), AddressOf EnumWindowsProc, ChildWindsEnum()
Next i

For i = 1 To UBound(ChildWindsEnum)
  ReDim Preserve WindsEnum(0 To UBound(WindsEnum) + 1) As Long
  WindsEnum(UBound(WindsEnum)) = ChildWindsEnum(i)
Next i

' Check to make sure that the desktop window goes into the enumeration.
Temp = GetDesktopWindow

For i = 1 To UBound(WindsEnum)
  If WindsEnum(i) = Temp Then GoTo After ' I found it
Next i

' If I got to this point, then the desktop is not in the enumeration. Put it in.
ReDim Preserve WindsEnum(0 To UBound(WindsEnum) + 1) As Long
WindsEnum(UBound(WindsEnum)) = Temp

After:

End Sub

Private Function EnumWindowsProc(ByVal hWnd As Long, ByRef Winds() As Long) As Boolean

ReDim Preserve Winds(LBound(Winds) To UBound(Winds) + 1)
Winds(UBound(Winds)) = hWnd
EnumWindowsProc = True

End Function

Public Function GetWindowRects(ByVal hWnd As Long) As RECT
GetWindowRect hWnd, GetWindowRects
End Function

Public Function GetClientRects(ByVal hWnd As Long) As RECT
GetClientRect hWnd, GetClientRects
End Function

Public Function ScreenToClient(ByVal hWnd As Long, ByRef Point As POINTAPI) As POINTAPI
ScreenToClientA hWnd, Point
ScreenToClient = Point
End Function

Public Function ClientToScreen(ByVal hWnd As Long, ByRef Point As POINTAPI) As POINTAPI
ClientToScreenA hWnd, Point
ClientToScreen = Point
End Function

Public Function RemLoBytes(ByVal LongInt As Long) As Long
RemLoBytes = LongInt And &HFFFF0000
End Function

Public Function GetLoBytes(ByVal LongInt As Long) As Long
GetLoBytes = (LongInt And 65535)
End Function

Public Function LoWord(ByVal LongInt As Long) As Integer
CopyMemory LoWord, LongInt, 2
End Function

Public Function HiWord(ByVal LongInt As Long) As Integer
CopyMemory HiWord, ByVal (VarPtr(LongInt) + 1), 2
End Function

Public Function FixApi(ByVal APIString As String) As String
If InStr(APIString, Chr(0)) <> 0 Then FixApi = Left$(APIString, InStr(APIString, Chr(0)) - 1) Else FixApi = APIString
End Function