fmrproperty.frm

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

  Case Is = modConst.COLOR_INACTIVECAPTION
    txtCBrush.Text = "COLOR_INACTIVECAPTION"
  Case Is = modConst.COLOR_MENU
    txtCBrush.Text = "COLOR_MENU"
  Case Is = modConst.COLOR_WINDOW
    txtCBrush.Text = "COLOR_WINDOW"
  Case Is = modConst.COLOR_WINDOWFRAME
    txtCBrush.Text = "COLOR_WINDOWFRAME"
  Case Is = modConst.COLOR_MENUTEXT
    txtCBrush.Text = "COLOR_MENUTEXT"
  Case Is = modConst.COLOR_WINDOWTEXT
    txtCBrush.Text = "COLOR_WINDOWTEXT"
  Case Is = modConst.COLOR_CAPTIONTEXT
    txtCBrush.Text = "COLOR_CAPTIONTEXT"
  Case Is = modConst.COLOR_ACTIVEBORDER
    txtCBrush.Text = "COLOR_ACTIVEBORDER"
  Case Is = modConst.COLOR_INACTIVEBORDER
    txtCBrush.Text = "COLOR_INACTIVEBORDER"
  Case Is = modConst.COLOR_APPWORKSPACE
    txtCBrush.Text = "COLOR_APPWORKSPACE"
  Case Is = modConst.COLOR_HIGHLIGHT
    txtCBrush.Text = "COLOR_HIGHLIGHT"
  Case Is = modConst.COLOR_HIGHLIGHTTEXT
    txtCBrush.Text = "COLOR_HIGHLIGHTTEXT"
  Case Is = modConst.COLOR_BTNFACE
    txtCBrush.Text = "COLOR_BTNFACE"
  Case Is = modConst.COLOR_BTNSHADOW
    txtCBrush.Text = "COLOR_BTNSHADOW"
  Case Is = modConst.COLOR_GRAYTEXT
    txtCBrush.Text = "COLOR_GRAYTEXT"
  Case Is = modConst.COLOR_BTNTEXT
    txtCBrush.Text = "COLOR_BTNTEXT"
  Case Is = modConst.COLOR_INACTIVECAPTIONTEXT
    txtCBrush.Text = "COLOR_INACTIVECAPTIONTEXT"
  Case Is = modConst.COLOR_BTNHIGHLIGHT
    txtCBrush.Text = "COLOR_BTNHIGHLIGHT"
  Case Else
    txtCBrush.Text = Enumit.Format8(Temp)
End Select

Temp = Enumit.GetClassHCursor(LookHwnd)
Select Case Temp
  Case Is = CursorID.IDC_APPSTARTING
    txtCCursor.Text = "IDC_APPSTARTING"
  Case Is = CursorID.IDC_ARROW
    txtCCursor.Text = "IDC_ARROW"
  Case Is = CursorID.IDC_CROSS
    txtCCursor.Text = "IDC_CROSS"
  Case Is = CursorID.IDC_IBEAM
    txtCCursor.Text = "IDC_IBEAM"
  Case Is = CursorID.IDC_ICON
    txtCCursor.Text = "IDC_ICON"
  Case Is = CursorID.IDC_NO
    txtCCursor.Text = "IDC_NO"
  Case Is = CursorID.IDC_SIZE
    txtCCursor.Text = "IDC_SIZE"
  Case Is = CursorID.IDC_SIZEALL
    txtCCursor.Text = "IDC_SIZEALL"
  Case Is = CursorID.IDC_SIZENESW
    txtCCursor.Text = "IDC_SIZENESW"
  Case Is = CursorID.IDC_SIZENS
    txtCCursor.Text = "IDC_SIZENS"
  Case Is = CursorID.IDC_SIZENWSE
    txtCCursor.Text = "IDC_SIZENWSE"
  Case Is = CursorID.IDC_SIZEWE
    txtCCursor.Text = "IDC_SIZEWE"
  Case Is = CursorID.IDC_UPARROW
    txtCCursor.Text = "IDC_UPARROW"
  Case Is = CursorID.IDC_WAIT
    txtCCursor.Text = "IDC_WAIT"
  Case Is = 0
    txtCCursor.Text = "(None)"
  Case Else
    txtCCursor.Text = Enumit.Format8(Temp)
End Select

txtCIcon.Text = Enumit.Format8(Enumit.GetClassHIcon(LookHwnd))
If Val(txtCIcon.Text) = 0 Then txtCIcon.Text = "(None)"

txtCSIcon.Text = Enumit.Format8(Enumit.GetClasshSmallIcon(LookHwnd))
If Val(txtCSIcon.Text) = 0 Then txtCSIcon.Text = "(None)"

Me.picCIcon.Width = 32 * Screen.TwipsPerPixelX
Me.picCIcon.Height = 32 * Screen.TwipsPerPixelY
Me.picCIcon.BorderStyle = 0
  Me.picCIcon.Picture = LoadPicture("")
If Enumit.GetClassHIcon(LookHwnd) <> 0 Then
  ' Draw a copy of the icon on the piccy box =)
  DrawIcon Me.picCIcon.hdc, 0, 0, Enumit.GetClassHIcon(LookHwnd)
  Me.picCIcon.Refresh
End If

End Sub

Private Sub DoStyles()

Dim Enumit As New Enumerator

Dim TempStyle As Long
' Get the style values, but only the hi-order bytes (Window styles)
TempStyle = modConst.RemLoBytes(Enumit.StyleVal(LookHwnd))

On Error Resume Next

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '  ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' Now run through and eliminate all of the styles ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '  ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '

If Enumit.IsStyle(TempStyle, modConst.WS_POPUPWINDOW) Then
  Me.lstWinStyle.AddItem "WS_POPUPWINDOW"
  TempStyle = TempStyle - modConst.WS_POPUPWINDOW
End If

If Enumit.IsStyle(TempStyle, modConst.WS_OVERLAPPEDWINDOW) Then
  Me.lstWinStyle.AddItem "WS_OVERLAPPEDWINDOW"
  TempStyle = TempStyle - modConst.WS_OVERLAPPEDWINDOW
End If

If Enumit.IsStyle(TempStyle, modConst.WS_CAPTION) Then
  Me.lstWinStyle.AddItem "WS_CAPTION"
  TempStyle = TempStyle - modConst.WS_CAPTION
End If

If Enumit.IsStyle(TempStyle, modConst.WS_OVERLAPPED) Then
  Me.lstWinStyle.AddItem "WS_OVERLAPPED"
  TempStyle = TempStyle - modConst.WS_OVERLAPPED
End If

If Enumit.IsStyle(TempStyle, modConst.WS_POPUP) Then
  Me.lstWinStyle.AddItem "WS_POPUP"
  TempStyle = TempStyle - modConst.WS_POPUP
End If

If Enumit.IsStyle(TempStyle, modConst.WS_CHILD) Then
  Me.lstWinStyle.AddItem "WS_CHILDWINDOW"
  TempStyle = TempStyle - modConst.WS_CHILD
End If

If Enumit.IsStyle(TempStyle, modConst.WS_MINIMIZE) Then
  Me.lstWinStyle.AddItem "WS_MINIMIZE"
  TempStyle = TempStyle - modConst.WS_MINIMIZE
End If

If Enumit.IsStyle(TempStyle, modConst.WS_VISIBLE) Then
  Me.lstWinStyle.AddItem "WS_VISIBLE"
  TempStyle = TempStyle - modConst.WS_VISIBLE
End If

If Enumit.IsStyle(TempStyle, modConst.WS_DISABLED) Then
  Me.lstWinStyle.AddItem "WS_DISABLED"
  TempStyle = TempStyle - modConst.WS_DISABLED
End If

If Enumit.IsStyle(TempStyle, modConst.WS_CLIPSIBLINGS) Then
  Me.lstWinStyle.AddItem "WS_CLIPSIBLINGS"
  TempStyle = TempStyle - modConst.WS_CLIPSIBLINGS
End If

If Enumit.IsStyle(TempStyle, modConst.WS_CLIPCHILDREN) Then
  Me.lstWinStyle.AddItem "WS_CLIPCHILDREN"
  TempStyle = TempStyle - modConst.WS_CLIPCHILDREN
End If

If Enumit.IsStyle(TempStyle, modConst.WS_MAXIMIZE) Then
  Me.lstWinStyle.AddItem "WS_MAXIMIZE"
  TempStyle = TempStyle - modConst.WS_MAXIMIZE
End If

If Enumit.IsStyle(TempStyle, modConst.WS_BORDER) Then
  Me.lstWinStyle.AddItem "WS_BORDER"
  TempStyle = TempStyle - modConst.WS_BORDER
End If

If Enumit.IsStyle(TempStyle, modConst.WS_DLGFRAME) Then
  Me.lstWinStyle.AddItem "WS_DLGFRAME"
  TempStyle = TempStyle - modConst.WS_DLGFRAME
End If

If Enumit.IsStyle(TempStyle, modConst.WS_THICKFRAME) Then
  Me.lstWinStyle.AddItem "WS_THICKFRAME"
  TempStyle = TempStyle - modConst.WS_THICKFRAME
End If

If Enumit.IsStyle(TempStyle, modConst.WS_GROUP) Then
  Me.lstWinStyle.AddItem "WS_GROUP"
  TempStyle = TempStyle - modConst.WS_GROUP
End If

If Enumit.IsStyle(TempStyle, modConst.WS_TABSTOP) Then
  Me.lstWinStyle.AddItem "WS_TABSTOP"
  TempStyle = TempStyle - modConst.WS_TABSTOP
End If

If Enumit.IsStyle(TempStyle, modConst.WS_SYSMENU) Then
  Me.lstWinStyle.AddItem "WS_SYSMENU"
  TempStyle = TempStyle - modConst.WS_SYSMENU
End If

If Enumit.IsStyle(TempStyle, modConst.WS_VSCROLL) Then
  Me.lstWinStyle.AddItem "WS_VSCROLL"
  TempStyle = TempStyle - modConst.WS_VSCROLL
End If

If Enumit.IsStyle(TempStyle, modConst.WS_HSCROLL) Then
  Me.lstWinStyle.AddItem "WS_HSCROLL"
  TempStyle = TempStyle - modConst.WS_HSCROLL
End If

If TempStyle <> 0 Then Me.lstWinStyle.AddItem Enumit.Format8(TempStyle)

If Err Then
MsgBox "Error caught in DoStyles, enumerating extended window styles. Windowit is unaffected by this error, and will continue to run Please report the next line to [e-mail] so that this stupid bug can be fixed." & vbCrLf & _
       "DoStyles  " & Err.Number & "    " & Err.Description & "     " & Erl & "     " & TempStyle & "     " & Enumit.StyleVal(LookHwnd), vbCritical, "Error"
End If

End Sub

Private Sub DoExtStyles()

Dim Enumit As New Enumerator

Dim TempStyle As Long
TempStyle = Enumit.ExtStyleVal(LookHwnd)

On Error Resume Next
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '  ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' Now run through and eliminate all of the extended styles  ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '  ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
If Enumit.IsStyle(TempStyle, modConst.WS_EX_OVERLAPPEDWINDOW) Then
  Me.lstExtWinStyle.AddItem "WS_EX_OVERLAPPEDWINDOW"
  TempStyle = TempStyle - modConst.WS_EX_OVERLAPPEDWINDOW
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_PALETTEWINDOW) Then
  Me.lstExtWinStyle.AddItem "WS_EX_PALETTEWINDOW"
  TempStyle = TempStyle - modConst.WS_EX_PALETTEWINDOW
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_DLGMODALFRAME) Then
  Me.lstExtWinStyle.AddItem "WS_EX_DLGMODALFRAME"
  TempStyle = TempStyle - modConst.WS_EX_DLGMODALFRAME
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_NOPARENTNOTIFY) Then
  Me.lstExtWinStyle.AddItem "WS_EX_NOPARENTNOTIFY"
  TempStyle = TempStyle - modConst.WS_EX_NOPARENTNOTIFY
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_TOPMOST) Then
  Me.lstExtWinStyle.AddItem "WS_EX_TOPMOST"
  TempStyle = TempStyle - modConst.WS_EX_TOPMOST
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_ACCEPTFILES) Then
  Me.lstExtWinStyle.AddItem "WS_EX_ACCEPTFILES"
  TempStyle = TempStyle - modConst.WS_EX_ACCEPTFILES
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_TRANSPARENT) Then
  Me.lstExtWinStyle.AddItem "WS_EX_TRANSPARENT"
  TempStyle = TempStyle - modConst.WS_EX_TRANSPARENT
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_MDICHILD) Then
  Me.lstExtWinStyle.AddItem "WS_EX_MDICHILD"
  TempStyle = TempStyle - modConst.WS_EX_MDICHILD
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_TOOLWINDOW) Then
  Me.lstExtWinStyle.AddItem "WS_EX_TOOLWINDOW"
  TempStyle = TempStyle - modConst.WS_EX_TOOLWINDOW
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_WINDOWEDGE) Then
  Me.lstExtWinStyle.AddItem "WS_EX_WINDOWEDGE"
  TempStyle = TempStyle - modConst.WS_EX_WINDOWEDGE
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_CLIENTEDGE) Then
  Me.lstExtWinStyle.AddItem "WS_EX_CLIENTEDGE"
  TempStyle = TempStyle - modConst.WS_EX_CLIENTEDGE
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_CONTEXTHELP) Then
  Me.lstExtWinStyle.AddItem "WS_EX_CONTEXTHELP"
  TempStyle = TempStyle - modConst.WS_EX_CONTEXTHELP
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_RIGHT) Then
  Me.lstExtWinStyle.AddItem "WS_EX_RIGHT"
  TempStyle = TempStyle - modConst.WS_EX_RIGHT
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_LEFT) Then
  Me.lstExtWinStyle.AddItem "WS_EX_LEFT"
  TempStyle = TempStyle - modConst.WS_EX_LEFT
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_RTLREADING) Then
  Me.lstExtWinStyle.AddItem "WS_EX_RTLREADING"
  TempStyle = TempStyle - modConst.WS_EX_RTLREADING
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_LTRREADING) Then
  Me.lstExtWinStyle.AddItem "WS_EX_LTRREADING"
  TempStyle = TempStyle - modConst.WS_EX_LTRREADING
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_LEFTSCROLLBAR) Then
  Me.lstExtWinStyle.AddItem "WS_EX_LEFTSCROLLBAR"
  TempStyle = TempStyle - modConst.WS_EX_LEFTSCROLLBAR
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_RIGHTSCROLLBAR) Then
  Me.lstExtWinStyle.AddItem "WS_EX_RIGHTSCROLLBAR"
  TempStyle = TempStyle - modConst.WS_EX_RIGHTSCROLLBAR
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_CONTROLPARENT) Then
  Me.lstExtWinStyle.AddItem "WS_EX_CONTROLPARENT"
  TempStyle = TempStyle - modConst.WS_EX_CONTROLPARENT
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_STATICEDGE) Then
  Me.lstExtWinStyle.AddItem "WS_EX_STATICEDGE"
  TempStyle = TempStyle - modConst.WS_EX_STATICEDGE
End If

If Enumit.IsStyle(TempStyle, modConst.WS_EX_APPWINDOW) Then
  Me.lstExtWinStyle.AddItem "WS_EX_APPWINDOW"
  TempStyle = TempStyle - modConst.WS_EX_APPWINDOW
End If

If TempStyle <> 0 Then Me.lstExtWinStyle.AddItem Enumit.Format8(TempStyle)

If Err Then
MsgBox "Error caught in DoExtStyles, enumerating extended window styles. Windowit is unaffected by this error, and will continue to run Please report the next line to [e-mail] so that this stupid bug can be fixed." & vbCrLf & _
       "DoExtStyles  " & Err.Number & "    " & Err.Description & "     " & Erl & "     " & TempStyle & "     " & Enumit.ExtStyleVal(LookHwnd), vbCritical, "Error"
End If

End Sub