鸟人 发表于 2012-11-1 22:46:01

窗口信息获取讨论

本帖最后由 鸟人 于 2012-11-7 15:36 编辑

最近要帮别人弄个东西,要用到这个,自己琢磨了半天,感觉不是那么回事。

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global Const $GW_CHILD = 5
Global Const $GW_HWNDNEXT = 2
Global Const $tagPOINT = "struct;long X;long Y;endstruct"
Global Const $tagRECT = "struct;long Left;long Top;long Right;long Bottom;endstruct"
Global $tStruct = DllStructCreate($tagPOINT)
Global $FindIt = False, $MousePointer = False
$hForm = GUICreate("Form1", 322, 224, 398, 284)
$Pic1 = GUICtrlCreateIcon("3_Au3Info.ico", -1, 16, 6, 32, 32)
GUISetState(@SW_SHOW)
AdlibRegister('_Timer')
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE                       
                        Exit
                Case $GUI_EVENT_PRIMARYDOWN
                        Local $a = GUIGetCursorInfo($hForm)
                        If $a = $Pic1 Then _MouseDown()
                Case $GUI_EVENT_PRIMARYUP
                        _MouseUp()
        EndSwitch
WEnd
Func _MouseUp()
        $MousePointer = False
        GUICtrlSetImage($Pic1, "3_Au3Info.ico")
        _WinAPI_ReleaseCapture()
EndFunc   ;==>_MouseUp
Func _MouseDown()
        $MousePointer = True
        _SetCursor(@ScriptDir & '\cursor.cur') ;鼠标指针变为靶状
        GUICtrlSetImage($Pic1, "2_Au3Info.ico") ;此时图片框加载另一无靶图标
        _WinAPI_SetCapture($hForm) ;将以后的鼠标输入消息都发送到图片框窗口
EndFunc   ;==>_MouseDown
Func _Timer()
        If $MousePointer = True Then
                AdlibUnRegister('_Timer')
                $DeskHwnd = _WinAPI_GetDesktopWindow() ;取得桌面句柄
                $DeskDC = _WinAPI_GetWindowDC($DeskHwnd) ;取得桌面设备场景
                $oldRop2 = _WinAPI_SetROP2($DeskDC, 10)
                DllStructSetData($tStruct, "x", MouseGetPos(0)) ;
                DllStructSetData($tStruct, "y", MouseGetPos(1)) ;取得鼠标坐标
                $UnHwnd = _WinAPI_WindowFromPoint($tStruct) ;取得鼠标指针处窗口句柄
                $grayHwnd = _WinAPI_GetWindow($UnHwnd, $GW_CHILD)
                ;因为WindowsFromPoint函数对Disabled的窗口无效,所以写了下面这个循环,否则无法选中“灰色按钮”类窗口
                While($grayHwnd)
                        $tempRc = _WinAPI_GetWindowRect($grayHwnd)
                        If _WinAPI_PtInRect($tempRc, $tStruct) Then
                                $FindIt = True
                                ExitLoop
                        Else
                                $grayHwnd = _WinAPI_GetWindow($UnHwnd, $GW_HWNDNEXT)
                        EndIf
                WEnd
                If $FindIt = True Then
                        $FindIt = False
                        $SnapHwnd = $grayHwnd
                Else
                        $SnapHwnd = $UnHwnd
                EndIf
                $rc = _WinAPI_GetWindowRect($SnapHwnd) ;获得窗口矩形
                ToolTip(DllStructGetData($rc, "Left")&@CRLF & _
                DllStructGetData($rc, "Top")&@CRLF & _
                DllStructGetData($rc, "Right")&@CRLF & _
                DllStructGetData($rc, "Bottom"))
                If DllStructGetData($rc, "Left") < 0 Then DllStructSetData($rc, "Left", 0)
                If DllStructGetData($rc, "Top") < 0 Then DllStructSetData($rc, "Top", 0)
                If DllStructGetData($rc, "Right") > @DesktopWidth / 15 Then DllStructSetData($rc, "Right", @DesktopWidth / 15)
                If DllStructGetData($rc, "Bottom") > @DesktopHeight / 15 Then DllStructSetData($rc, "Bottom", @DesktopHeight / 15)
                $newPen = _WinAPI_CreatePen(0, 3, 0xFF) ;建立新画笔,载入DeskDC
                $oldPen = _WinAPI_SelectObject($DeskDC, $newPen) ;
                _WinAPI_Rectangle($DeskDC, $rc) ;在指示窗口周围显示闪烁矩形
                Sleep(500)
                _WinAPI_SetROP2($DeskDC, $oldRop2)
                _WinAPI_SelectObject($DeskDC, $oldPen)
                _WinAPI_DeleteObject($newPen)
                _WinAPI_ReleaseDC($DeskHwnd, $DeskDC)
                $DeskDC = 0
                AdlibRegister('_Timer')
        EndIf
EndFunc   ;==>_Timer

Func _SetCursor($sFile)
        Local $Ret = DllCall('user32.dll', 'ptr', 'LoadCursorFromFileW', 'wstr', $sFile)
        If (@error) Or (Not $Ret) Then
                Return SetError(1, 0, 0)
        EndIf
        Local $aResult = DllCall("user32.dll", "handle", "SetCursor", "handle", $Ret)
        If @error Then Return SetError(@error, @extended, 0)
        Return $aResult
EndFunc   ;==>_SetCursor
Func _WinAPI_DestroyCursor($hCursor)
        Local $Ret = DllCall('user32.dll', 'int', 'DestroyCursor', 'ptr', $hCursor)
        If (@error) Or (Not $Ret) Then
                Return SetError(1, 0, 0)
        EndIf
        Return 1
EndFunc   ;==>_WinAPI_DestroyCursor
Func _WinAPI_SetCapture($hWnd)
        Local $aResult = DllCall("user32.dll", "hwnd", "SetCapture", "hwnd", $hWnd)
        If @error Then Return SetError(@error, @extended, 0)
        Return $aResult
EndFunc   ;==>_WinAPI_SetCapture
Func _WinAPI_ReleaseCapture()
        Local $aResult = DllCall("user32.dll", "bool", "ReleaseCapture")
        If @error Then Return SetError(@error, @extended, False)
        Return $aResult
EndFunc   ;==>_WinAPI_ReleaseCapture
Func _WinAPI_GetDesktopWindow()
        Local $aResult = DllCall("user32.dll", "hwnd", "GetDesktopWindow")
        If @error Then Return SetError(@error, @extended, 0)
        Return $aResult
EndFunc   ;==>_WinAPI_GetDesktopWindow
Func _WinAPI_GetWindowDC($hWnd)
        Local $aResult = DllCall("user32.dll", "handle", "GetWindowDC", "hwnd", $hWnd)
        If @error Then Return SetError(@error, @extended, 0)
        Return $aResult
EndFunc   ;==>_WinAPI_GetWindowDC
Func _WinAPI_SetROP2($hDC, $iMode)
        Local $Ret = DllCall('gdi32.dll', 'int', 'SetROP2', 'hwnd', $hDC, 'int', $iMode)
        If (@error) Or (Not $Ret) Then
                Return SetError(1, 0, 0)
        EndIf
        Return $Ret
EndFunc   ;==>_WinAPI_SetROP2
Func _WinAPI_WindowFromPoint(ByRef $tPoint)
        Local $aResult = DllCall("user32.dll", "hwnd", "WindowFromPoint", "struct", $tPoint)
        If @error Then Return SetError(1, @extended, 0)
        Return $aResult
EndFunc   ;==>_WinAPI_WindowFromPoint
Func _WinAPI_GetWindow($hWnd, $iCmd)
        Local $aResult = DllCall("user32.dll", "hwnd", "GetWindow", "hwnd", $hWnd, "uint", $iCmd)
        If @error Then Return SetError(@error, @extended, 0)
        Return $aResult
EndFunc   ;==>_WinAPI_GetWindow
Func _WinAPI_GetWindowRect($hWnd)
        Local $tRect = DllStructCreate($tagRECT)
        DllCall("user32.dll", "bool", "GetWindowRect", "hwnd", $hWnd, "struct*", $tRect)
        If @error Then Return SetError(@error, @extended, 0)
        Return $tRect
EndFunc   ;==>_WinAPI_GetWindowRect
Func _WinAPI_PtInRect(ByRef $tRect, ByRef $tPoint)
        Local $aResult = DllCall("user32.dll", "bool", "PtInRect", "struct*", $tRect, "struct", $tPoint)
        If @error Then Return SetError(1, @extended, False)
        Return Not ($aResult = 0)
EndFunc   ;==>_WinAPI_PtInRect
Func _WinAPI_CreatePen($iPenStyle, $iWidth, $nColor)
        Local $aResult = DllCall("gdi32.dll", "handle", "CreatePen", "int", $iPenStyle, "int", $iWidth, "dword", $nColor)
        If @error Then Return SetError(@error, @extended, 0)
        Return $aResult
EndFunc   ;==>_WinAPI_CreatePen
Func _WinAPI_SelectObject($hDC, $hGDIObj)
        Local $aResult = DllCall("gdi32.dll", "handle", "SelectObject", "handle", $hDC, "handle", $hGDIObj)
        If @error Then Return SetError(@error, @extended, False)
        Return $aResult
EndFunc   ;==>_WinAPI_SelectObject
Func _WinAPI_Rectangle($hDC, $tRect)
        Local $Ret = DllCall('gdi32.dll', 'int', 'Rectangle', 'hwnd', $hDC, 'int', DllStructGetData($tRect, 1), 'int', _
                        DllStructGetData($tRect, 2), 'int', DllStructGetData($tRect, 3), 'int', DllStructGetData($tRect, 4))
        If (@error) Or (Not $Ret) Then
                Return SetError(1, 0, 0)
        EndIf
        Return 1
EndFunc   ;==>_WinAPI_Rectangle
Func _WinAPI_DeleteObject($hObject)
        Local $aResult = DllCall("gdi32.dll", "bool", "DeleteObject", "handle", $hObject)
        If @error Then Return SetError(@error, @extended, False)
        Return $aResult
EndFunc   ;==>_WinAPI_DeleteObject
Func _WinAPI_ReleaseDC($hWnd, $hDC)
        Local $aResult = DllCall("user32.dll", "int", "ReleaseDC", "hwnd", $hWnd, "handle", $hDC)
        If @error Then Return SetError(@error, @extended, False)
        Return $aResult
EndFunc   ;==>_WinAPI_ReleaseDC


不知道A版那个是啥原理,能否指点下。

楼上风云 发表于 2012-11-2 00:38:22

参考http://www.autoitx.com/forum.php?mod=viewthread&tid=24551&highlight=
或许有启发

jdd3 发表于 2012-11-2 11:28:43

{:face (332):}{:face (332):}{:face (332):}

鸟人 发表于 2012-11-7 15:41:32

原理在这里,有能力的来帮帮忙完善一下,别沉了。。SPY++原理介绍

用API函数,就会提到句柄,像SendMessage, GetWindowText等,最常用到的参数就是句柄。啥是句柄呢?就是窗口的锅把儿,你拎着它,整个锅儿都听你的话。那啥是窗口呢?不仅仅指我们常说的窗体Form,还包括所有控件,如文本框,按钮,复选框等等。这些句柄怎么获取呢?用Spy++呀。本文中,笔者就和您一起打造一个VB版的Spy++。(笔者以前写过一篇VC版的Spy++,得到了许多网友的关注,所以撰写此文,以飨VB战壕的朋友们。)



一.界面设计

新建EXE工程,在窗体frmMain上画一个PictureBox(picShot),用以装载探测器的靶形图标;画两个CheckBox(chkAlwaysOnTop和chkHex)用于选择窗口是否在最上面和句柄等值的返回形式是否为十六进制。

再下面是选项卡控件,我们有两种选择。一种是用Microsoft Windows Common Controls6.0(mscomctl.ocx)中的TabStrip,这种控件的用法与VC中类似,标签页不可以在主窗体设计时直接做,而是要画N个子窗体或PictureBox,然后在运行时按情况调用;第二种选择是Microsoft Tabbed Dialog Control6.0(tabctl32.ocx),这个控件可以直接在上面设计每个标签页,我们就选择它。

把选项卡控件命名为SSTab1,通过其属性页设置好各标签页的标题为“常规”、“样式”、“类”、“窗口”和“消息”。程序界面设计如图。




二、探测器制作

准备好两个图标(ico)和一个鼠标指针(cur)文件,分别用于正常状态下的显示、鼠标拖出时的显示以及拖出时的鼠标指针;正常状态下显示一幅有靶的图标。当鼠标在上面按下时,显示内容立刻换为另一幅无靶的图标,同时鼠标指针变为靶状。这样,就给人一种靶心被拖出去的感觉了。通过上面的叙述,我们了解到图片框需要响应MouseDown和MouseUp事件。而鼠标左键松开处一般不会在图片框上,所以,要想让图片框的MouseUp来响应,我们要用到一个API函数:SetCapture。这个函数用以对鼠标事件的捕获,我们在图片框的MouseDown事件中SetCapture后,以后即使鼠标指针离开图片框,发生的事件也是由图片框(或指定窗口)来处理。其API函数声明自己用API浏览器查,不再赘述。需强调的是,在MouseUp事件中别忘了释放捕获(另一个API:ReleaseCapture)。在鼠标按下时,还涉及到换图标换指针等操作,代码如下:

Private Sub picShot_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Screen.MousePointer = vbCustom

    Screen.MouseIcon = Image1.Picture   '用鼠标指针变为靶状

    picShot.Picture = Image2.Picture   '此时图片框加载另一无靶图标

    '将以后的鼠标输入消息都发送到图片框窗口

    SetCapture (picShot.hWnd)

End Sub

Private Sub picShot_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Screen.MousePointer = vbDefault

    picShot.Picture = Image3.Picture

    ReleaseCapture

End Sub

获取窗口句柄。根据鼠标位置来确定窗口需要用到API函数GetCursorPos和WindowFromPoint。此外,我们还想做到像抓图程序那样,鼠标移动到的地方,窗口四周会出现闪烁的矩形。这一点,我们用定时器来实现。在桌面背景上绘图,大致过程如下:用GetDesktopWindow()获取桌面句柄,再用GetWindowDC()获得设备场景(或叫设备上下文)。啥叫设备场景?就当成是画布吧,要画画嘛,就要找找到窗口对应的画布。还有用到一个SetROP2(),用以“设定当前前景色的混合模式”(从MSDN中直译,如果觉得不通,请看MSDN原文),这里采用R2_NOTXORPEN混合模式(其值为10),载入一支反色画笔。GetWindowRect()用以获得窗口的矩形,Rectangle()函数用于画这个矩形,ReleaseDC用于释放设备场景。实现代码如下:

Private Sub tmr_Timer()

    ……Dim XXX……..

    DeskHwnd& = GetDesktopWindow()    '取得桌面句柄

    DeskDC& = GetWindowDC(DeskHwnd&)   '取得桌面设备场景

    oldRop2& = SetROP2(DeskDC&, 10)

    GetCursorPos pnt                '取得鼠标坐标

    PointText.Text = Str(pnt.X) & "," & Str(pnt.Y)

    UnHwnd = WindowFromPoint(pnt.X, pnt.Y)   '取得鼠标指针处窗口句柄

    grayHwnd = GetWindow(UnHwnd, GW_CHILD)

'因为WindowsFromPoint函数对Disabled的窗口无效,所以写了下面这个循环,否则无法选中“灰色按钮”类窗口

    Do While (grayHwnd)

      GetWindowRect grayHwnd, tempRc

      If PtInRect(tempRc, pnt.X, pnt.Y) Then

            FindIt = True

            Exit Do

      Else

            grayHwnd = GetWindow(grayHwnd, GW_HWNDNEXT)

      End If

    Loop

    If FindIt = True Then

      FindIt = False

      SnapHwnd = grayHwnd

    Else

      SnapHwnd = UnHwnd

    End If

    GetWindowRect SnapHwnd, rc      '获得窗口矩形

    If rc.Left < 0 Then rc.Left = 0

    If rc.Top < 0 Then rc.Top = 0

    If rc.Right > Screen.Width / 15 Then rc.Right = Screen.Width / 15

    If rc.Bottom > Screen.Height / 15 Then rc.Bottom = Screen.Height / 15

    newPen& = CreatePen(0, 3, &H0)       '建立新画笔,载入DeskDC

    oldPen& = SelectObject(DeskDC, newPen)

    Rectangle DeskDC, rc.Left, rc.Top, rc.Right, rc.Bottom'在指示窗口周围显示闪烁矩形

    Sleep tmr.Interval    '设置闪烁时间间隔

    Rectangle DeskDC, rc.Left, rc.Top, rc.Right, rc.Bottom



    SetROP2 DeskDC, oldRop2

    SelectObject DeskDC, oldPen

    DeleteObject newPen

ReleaseDC DeskHwnd, DeskDC:

DeskDC = 0

End Sub

三、两个复选框

复选框“总在最上面”用到的API函数是SetWindowPos()。由于比较直观,读者朋友直接看下面代码:

Private Sub chkalwaysontop_Click()

    If(chkAlwaysOnTop.Value= 1)

      SetWindowPos(g_hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE)

    Else

SetWindowPos(g_hWnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE)

    End If

End Sub

第二个复选框决定返回值以16进制还是10进制显示,这对咱VB兄弟很有用,因为我们VB习惯使用的不是16进制。这里我们建立一个全局函数,根据复选框的不同状态有不同的返回值,代码如下:

Function DisplayNum(Num As Long) As String

    If frmMain.chkHex.Value = 1 Then

      DisplayNum = Hex(Num)

    Else

      DisplayNum = LTrim(Str(Num))

    End If

End Function

四.常规标签页

常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。获取窗口句柄在第一部分已经介绍,下面介绍一下获取类名和标题文本等。以一个过来人的身分,我回忆我在上世纪90年代末对API一直似懂非懂,对API使用前的一系列代码更是莫名其妙,最后因为查不到资料也就照葫芦画瓢难得糊涂了。直到新世纪来临(夸张啦……),开始学习并使用C++,搞Windows编程,才觉得豁然开朗,明白了以前不曾想通的东西。这里,我以获取类名为例,仔细说明一下用法。先看代码:

    Dim tempstr As String, strlong As Long, rtn As Long

    '获得该窗口的类型并显示在WndClassText文本框中

    tempstr = String(255, Chr$(0))

    strlong = Len(tempstr)

    rtn = GetClassName(SnapHwnd, tempstr, strlong)

    If rtn = 0 Then Exit Sub

tempstr = Left(tempstr, InStr(tempstr, Chr$(0)) - 1)

WndClassText.Text = tempstr

下面解释一下代码。我们习惯于用函数返回值来获取所要的结果,但API中经常用参数来带回所要结果。在这类参数的API声明中会见到ByVal传值关键字。首先给tempstr赋一个长度为255的字符串,其中字符均为空字符(即ASCII码为0的字符,vbNullChar)。它的作用是分配缓存,以备将来获取的类名存入。Windows在读取一个字符串时,以遇到第一个空字符为止。为叙述方便,下面以“/0”来表示空字符。假设有个字符串是“abcd/0/0/0/0”,此时windows读取它时将把它当作“abcd”了。GetClassName()的第一个参数是窗口句柄,第二个参数是缓存地址,第三个参数是缓存大小。在VB中,我们还需要把字符串结尾的空字符去掉(在其他语言中不需要),所以就有了这一句:tempstr = Left(tempstr, InStr(tempstr, Chr$(0)) - 1),字符串中间是不会出现空字符的。在网上的各类代码中,我们还经常见到用tempstr=Space(255)来分配缓存。这样也是可以的,然而获取完之后不能用相同的方法去除尾部空格(因为一但字符串中间有空格怎么办),这里只需用Trim()或Rtrim()即可。个人不推荐使用这种分配缓存方式。

下面说一下获取程序路径。获取进程路径的方法有两种。在NT系统中,我们可以用OpenProcess()函数将进程打开后,再利用EnumProcessModules()函数枚举该进程的模块,最后利用GetModuleFileNameEx()函数就能取得该进程的路径;第二种方法是利用ToolHelp API中的相关函数。而后者兼容容Windows9x和NT4.0以后系统,所以采取此法。它的实现代码如下:

    Dim ME32 As MODULEENTRY32

    Dim Pid As Long

    GetWindowThreadProcessId hWnd, Pid

    Dim hSnapshot As Long

    hSnapshot = CreateToolhelp32Snapshot(&H8, Pid)

   

    ME32.dwSize = Len(ME32)

    Module32First hSnapshot, ME32

GetAppNameFromHwnd = (Left$(ME32.szExePath, InStr(ME32.szExePath, vbNullChar) - 1))

这代码也太玄乎了……。先别忙倒,这段代码也不是很复杂。只是用到了结构体。提到结构体我们应该不陌生,像定义POINT啊,RECT啊,都用到了结构体。这里的ME32和它一样。获取的东西得存到它里面。就这样。



五.样式标签页

窗口有个样式的概念,如是否可见,是否有边框,是否是子窗口等;不同类型的窗口还有扩展样式的概念,如是否在最上面,是否是MDI窗口等。它们用API函数GetWindowLong来获取,用参数GWL_STYLE和GWL_EXSTYLE来区别。

这里我强调的重点是在于,如何把获取的样式和扩展样式以文字的形式列出来。窗口的样式值是固定的几十种,它们以不同的数字来表示。而且,这些数字之间还有玄机。例如有4种样式a=1,b=2,c=4,d=8,如果我获取到的样式值为s=5,那么它一定是1+4而来,也就是具有样式a和样式c,而不可能是2+3或其他组合,因为样式值中根本没2,3这些数。那么我如何来确定样式s中是否包含a呢?用“位与”操作即可:

If a And s Then ***此时s中包含a***

邪门了,越来越不明白了。为什么And一下就能判断有无呢?这得从二进制来分析。1就是1,而4是100,5是101。从101的字面上,你就能一眼看出其包含1(最后一位数)了吧?其第一位数就表示4啦。至于更详细的位操作,请参考位运算的相关知识,或我的另一篇文章《与、或、非在VB中的应用》。下面简单摘抄几行代码:

    lstWndStyle.Clear

    style& = GetWindowLong&(SnapHwnd&, GWL_STYLE)



    If style& And WS_BORDER Then

      lstWndStyle.AddItem "WS_BORDER"

    End If

    If style& And WS_CAPTION Then

      lstWndStyle.AddItem "WS_CAPTION"

    End If

    If style& And WS_CHILD Then

      lstWndStyle.AddItem "WS_CHILD"

    End If

    If style& And WS_CLIPCHILDREN Then

      lstWndStyle.AddItem "WS_CLIPCHILDREN"

    End If

    If style& And WS_CLIPSIBLINGS Then

      lstWndStyle.AddItem "WS_CLIPSIBLINGS"

    End If



六.类标签页



类也有类样式的概念,其使用方法与窗口样式类似,所用的函数是GetClassLong()。具体看所附代码。



七.窗口标签页



该标签页用于显示和当前窗口相关的各窗口信息。其中,获取上一窗口和下一窗口的API函数是GetNextWindow(),用GW_HWNDPREV和GW_HWNDNEXT加以区分。获取父窗口的API函数是GetParent(),获取第一子窗口和所有者窗口用的API函数是GetWindow,分别加上参数GW_CHILD和GW_OWNER。

这个标签页还有一个非常实用的附加功能,就是当相应窗口存在时(如父窗口存在),此标签可以点击。点击后,相关窗口(如父窗口)变为当前窗口,再来重新获取其窗口的一系列数值。标签可以点击表现为两点:一,文本为蓝色;二,鼠标指针移上去即变为小手状。实现代码如下:

    If txtParentHandle.Text = "0" Then

      lblParentHandle.ForeColor = vbBlack

      lblParentHandle.MousePointer = 0

    Else

      lblParentHandle.ForeColor = vbBlue

      lblParentHandle.MousePointer = 99

      lblParentHandle.MouseIcon = imgPointer.Picture

End If



八.消息标签页

  该页中用一个列表框列出窗口常见样式,并允许用户通过发消息来改变窗口状态。这个列表框的每个列表项前都有一个复选框。实现方法是在List控件中将其Style属性设置为1-Checkbox。      这个列表框的作用不仅仅是显示窗口的状态,还要在发生勾选改动时即时改变窗口状态或激发其行为。这里我们选用MouseUp事件来处理勾选改变动作。另外,为了不使一个勾选的改变就引起所有列表项都激发一遍,我们采用Select Case结构,以使哪个列表项被选中就激发哪个列表项。代码如下:

    Select Case lstStatus.ListIndex

    Case 0:

      If lstStatus.Selected(0) = True Then

            ShowWindow SnapHwnd, SW_SHOW

      Else

            ShowWindow SnapHwnd, SW_HIDE

      End If

    Case 1:

      If lstStatus.Selected(1) = True Then

            ' SendMessage SnapHwnd&, WM_ENABLE, 0, vbNullString

            EnableWindow SnapHwnd, True

      Else

            EnableWindow SnapHwnd, False

      End If

    Case 2:

      If lstStatus.Selected(2) = True Then

            SetOnTop SnapHwnd, 1

      Else

            SetOnTop SnapHwnd, 0

      End If

    Case 3:

      If lstStatus.Selected(3) = True Then

            SendMessage SnapHwnd, EM_SETREADONLY, True, 0

      Else

            SendMessage SnapHwnd, EM_SETREADONLY, False, 0

      End If

    Case 4:

      If lstStatus.Selected(4) = True Then

            ShowWindow SnapHwnd, SW_MAXIMIZE

            lstStatus.Selected(5) = False

      Else

            ShowWindow SnapHwnd, SW_RESTORE

      End If

    Case 5:

      If lstStatus.Selected(5) = True Then

            ShowWindow SnapHwnd, SW_MINIMIZE

            lstStatus.Selected(4) = False

      Else

            ShowWindow SnapHwnd, SW_RESTORE



      End If

    Case 6:

      If lstStatus.Selected(6) = True Then

            ShowWindow SnapHwnd, SW_RESTORE

            lstStatus.Selected(6) = False

            lstStatus.Selected(5) = False

            lstStatus.Selected(4) = False

      End If

    Case 7:

      If lstStatus.Selected(7) = True Then

            SendMessage SnapHwnd, WM_CLOSE, 0, 0

            lstStatus.Selected(7) = False

      End If

    Case 8:

      If lstStatus.Selected(8) = True Then

            BringWindowToTop SnapHwnd

            lstStatus.Selected(8) = False



      End If

End Select

API函数SendMessage()是个好东西,它完美地诠释了Windows这个基于消息驱动的操作系统。它能做很多事。比如文中提到的GetWindowText,我们也可以用发送消息来实现,如下:

lRet& = SendMessage(hWnd, WM_GETTEXT, 255, tempstr)



九.结束语

了解C++的朋友或许会嗅出些许C++的气息来。是位运算?是分配缓存?是消息处理?这些都是,甚至还包括代码的书写格式和流行于C++领域的匈牙利命名法。他山之石,可以攻玉,VB学习同样需要外来的血液。VB.net对类概念的强化更说明了这一点。望本文能对各位读者在编程道路上有所帮助。本文内容在Windows XP+VB6中调试通过。

最后附上两款VB实用工具。第1款《VB6 MouseWheel Fix》,可以使VB6代码编辑器支持鼠标滚轮;第2款《Smart Indent》是一款VB代码格式化工具,用以自动整理VB代码的行缩进等格式。


>>>>>>>>>>>>>>>>>>>>>>>>>>



用Visual Studio搞开发的朋友对Spy++这个工具一定不陌生,它可以分析窗体结构、进程和窗口消息,对开发工作有很大辅助作用。我们最常使用它的窗口查找功能,按Ctrl + F调出其查找窗口,拖动探测器的指针到指定窗口/控件上释放即可。下面,笔者就和大家一起,用VC打造一个属于自己的Spy++。



  打开VC集成开发环境,建立一个基于对话框的工程。我们把这个工程取名为SpyXX。在窗体中画上一个图片框控件(Picture)、一个静态文本控件(Static)、两个复选框控件(Check Box)和一个选项卡控件(Tab Control)。界面设计如下图。


  探测器的制作需要两个图标文件(.ico)和一个鼠标光标文件(.cur),分别用于正常状态下的显示、鼠标拖出时的显示以及拖出时的鼠标指针;选项卡控件定义5个标签页,分别为“常规”、“样式”、“类”、“窗口”和“消息”。每个标签页的内容用一个属性页(Property Page)对话框来制作。下面,我们按照顺序描述一下开发过程。

  一、探测器的制作

  探测器用一个图片框控件来显示,正常状态下显示一幅有靶的图标。当鼠标在上面按下时,显示内容立刻换为另一幅无靶的图标,同时鼠标指针变为靶状。这样,就给人一种靶心被拖出去的感觉了。通过上面的叙述,我们了解到图片框需要响应WM_LBUTTONDOWN消息和WM_LBUTTONUP消息。而图片框在正常状态下只响应鼠标单击消息BN_CLICK。所以,我们要通过子类化来响应上述两个消息。

  把图片框的ID设为IDC_PIC,并选中其Notify属性(否则不响应消息)。依次点击菜单Insert->New Class,Class type选择MFC Class,类名取为CMyPic,基类为CStatic。添加CSpyXXDlg类的私有成员变量CMyPic m_pic,在对话框的初始化过程中将其与图片框关联。代码如下:

BOOL CSpyXXDlg::OnInitDialog()

{

             CDialog::OnInitDialog();

m_pic.SubclassDlgItem(IDC_PIC,this);

……

return TRUE;

}

在CMyPic类中,我们就可以响应鼠标左键按下和弹起的消息了。按Ctrl + W打开Class Wizard,选择Message Maps标签页,在Class name下拉列表中选择CMyPic。从Messages列表中分别增加WM_LBUTTONDOWN和WM_LBUTTONUP消息,并接受其缺省函数名OnLButtonDown和OnLButtonUp。图标交换和鼠标光标交换的代码如下:

void CMyPic::OnLButtonDown(UINT nFlags, CPoint point)

{

      // TODO: Add your message handler code here and/or call default

      SetCapture();   //鼠标捕获

      HCURSOR hc = LoadCursor(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDC_CURSOR1));   //IDC_CURSOR1是靶形光标资源号

      ::SetCursor(hc);

      HICON hicon2 = LoadIcon(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDI_ICON2));      //IDI_ICON2为无靶图标资源号

      this->SetIcon(hicon2);

      CStatic::OnLButtonDown(nFlags, point);

}

void CMyPic::OnLButtonUp(UINT nFlags, CPoint point)

{

      // TODO: Add your message handler code here and/or call default

      ReleaseCapture();      //释放鼠标捕获

      HICON hicon1 = LoadIcon(AfxGetApp()->m_hInstance, MAKEINTRESOURCE (IDI_ICON1));   //IDI_ICON1是有靶图标资源号

      this->SetIcon(hicon1);

      CStatic::OnLButtonUp(nFlags, point);

}

探测器外观制作完成了。可以先运行一下,把鼠标按下后拖动试试。下面来实现其功能:获取窗口句柄。根据鼠标位置来确定窗口需要用到API函数GetCursorPos和WindowFromPoint。此外,我们还想做到像抓图程序那样,鼠标移动到的地方,窗口四周会出现闪烁的矩形。这一点,我们用定时器来实现。定时器设在CSpyXXDlg类中,但要由CMyPic中的OnLButtonUp来启动。所以,我们定义一个全局变量g_hMe将CSpyXXDlg的实例句柄保存起来。同时,被选取的窗口句柄也涉及到在多个标签页中显示,所以也用全局变量g_hWnd将之保存。其余的用于显示标签页的属性页对话框句柄分别用g_hPage0、g_hPage1、g_hPage2、g_hPage3和g_hPage4来保存。这里,读者朋友也可以建立一个类去管理这些全局变量。启动定时器的代码如下:

FromHandle(g_hMe)->SetTimer(1,600,NULL);

在定时器中,我们要实现桌面范围内的矩形绘制。代码如下:

POINT pnt;

      RECT rc;

      HWND DeskHwnd = ::GetDesktopWindow();    //取得桌面句柄

   HDC DeskDC = ::GetWindowDC(DeskHwnd);   //取得桌面设备场景

   int oldRop2 = SetROP2(DeskDC, 10);

   ::GetCursorPos(&pnt);                //取得鼠标坐标

   HWND UnHwnd = ::WindowFromPoint(pnt) ;    //取得鼠标指针处窗口句柄

      g_hWnd=UnHwnd;

   ::GetWindowRect(g_hWnd, &rc);      //获得窗口矩形

   if( rc.left < 0 ) rc.left = 0;

   if (rc.top < 0 ) rc.top = 0;

   HPEN newPen = ::CreatePen(0, 3, 0);    //建立新画笔,载入DeskDC

   HGDIOBJ oldPen = ::SelectObject(DeskDC, newPen);

   ::Rectangle(DeskDC, rc.left, rc.top, rc.right, rc.bottom); //在窗口周围显示闪烁矩形

      Sleep(400);    //设置闪烁时间间隔

   ::Rectangle( DeskDC, rc.left, rc.top, rc.right, rc.bottom);

   ::SetROP2(DeskDC, oldRop2);

   ::SelectObject( DeskDC, oldPen);

   ::DeleteObject(newPen);

   ::ReleaseDC( DeskHwnd, DeskDC);

      DeskDC = NULL;

到此,探测器功能全部完成。



二、两个复选框

第一个复选框是“总在最上面”,代码如下:

void CSpyXXDlg::OnChktop()

{

             int nTop=((CButton*)GetDlgItem(IDC_CHKTOP))->GetCheck();

             if(nTop==1)

             ::   SetWindowPos(m_hWnd,HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);

      else

       ::SetWindowPos(m_hWnd,HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);

}

      第二个复选框是“16进制”。因为其值影响到多个属性页对话框的内容,所以,也用一全局变量g_nHex保存之:

void CSpyXXDlg::OnChkhex()

{

             g_nHex=((CButton*)GetDlgItem(IDC_CHKHEX))->GetCheck();

}

这里,我们还建立了一个全局函数Display,来输出16进制和10进制时的句柄值:

CString Display(int nVal)

{

      CString str;

      if(g_nHex==1)

      {

             str.Format("%x",nVal);

             str.MakeUpper();

      }

      else

             str.Format("%d",nVal);

      return str;

}

三、选项卡控件

选项卡控件中,5个标签页对应5个属性页对话框,与它们关联的类分别取名为CPage0、CPage1、CPage2、CPage3、CPage4。在CSpyXXDlg中建立私有成员变量m_page0、m_page1、m_page2、m_page3、m_page4。在其初始化过程中建立这5个属性页对话框:

      m_page0.Create(IDD_OLE_PROPPAGE_LARGE,GetDlgItem(IDC_TAB1));

      m_page1.Create(IDD_OLE_PROPPAGE_LARGE1,GetDlgItem(IDC_TAB1));

      m_page2.Create(IDD_OLE_PROPPAGE_LARGE2,GetDlgItem(IDC_TAB1));

      m_page3.Create(IDD_OLE_PROPPAGE_LARGE3,GetDlgItem(IDC_TAB1));

      m_page4.Create(IDD_OLE_PROPPAGE_LARGE4,GetDlgItem(IDC_TAB1));

      CRect rs;

      m_tab.GetClientRect(rs);

      rs.top+=20;

      rs.bottom-=3;

      rs.left+=3;

      rs.right-=3;

      m_page0.MoveWindow(rs);

      m_page1.MoveWindow(rs);

      m_page2.MoveWindow(rs);

      m_page3.MoveWindow(rs);

      m_page4.MoveWindow(rs);



      m_page0.ShowWindow(SW_SHOW);

      m_tab.SetCurSel(0);

然后在选项卡消息TCN_SELCHANGE响应函数中控制它们的显示:

void CSpyXXDlg::OnSelchangeTab1(NMHDR* pNMHDR, LRESULT* pResult)

{

      // TODO: Add your control notification handler code here

      int i=m_tab.GetCurSel();

      switch(i) {

      case 0:

             m_page0.ShowWindow(SW_SHOW);

             m_page1.ShowWindow(SW_HIDE);

             m_page2.ShowWindow(SW_HIDE);

             m_page3.ShowWindow(SW_HIDE);

             m_page4.ShowWindow(SW_HIDE);

             break;

      case 1:

             m_page0.ShowWindow(SW_HIDE);

             m_page1.ShowWindow(SW_SHOW);

             m_page2.ShowWindow(SW_HIDE);

             m_page3.ShowWindow(SW_HIDE);

             m_page4.ShowWindow(SW_HIDE);

             break;

      case 2:

……

      default:

             ;

      }

      *pResult = 0;

}

四、常规标签页

常规标签页负责显示窗口句柄、窗口类名、标题文本、窗口矩形、窗口ID、进程ID和程序路径。控制其显示或改变应在CMyPic的WM_LBUTTONUP响应函函数中进行。代码如下:

      ((CPage0*)FromHandle(g_hPage0))->m_editHWND.SetWindowText(Display((int)g_hWnd));

   

      char strClass="/0";

      ::GetClassName(g_hWnd,strClass,200);

      ((CPage0*)FromHandle(g_hPage0))->m_editCLASS.SetWindowText(strClass);

      ((CPage2*)FromHandle(g_hPage2))->SetDlgItemText(IDC_EDITCLASSNAME,strClass);

   

      char strTitle="/0";

      ::GetWindowText(g_hWnd,strTitle,200);

      ((CPage0*)FromHandle(g_hPage0))->m_editTITLE.SetWindowText (strTitle);

      long iWNDID=GetWindowLong(g_hWnd,GWL_ID);

      ((CPage0*)FromHandle(g_hPage0))->m_editWNDID.SetWindowText(Display((int)iWNDID));

   

      unsigned long iPID=0;

      GetWindowThreadProcessId(g_hWnd,&iPID);

      ((CPage0*)FromHandle(g_hPage0))->m_editPID.SetWindowText(Display((int)iPID));

   

      CString strPath;

      strPath=getProcPath(iPID);

      ((CPage0*)FromHandle(g_hPage0))->m_editPATH.SetWindowText(strPath);

            

      RECT rc;

      ::GetWindowRect(g_hWnd, &rc);      //获得窗口矩形

      CString strRect;

      strRect.Format("(%d,%d),(%d,%d) %dx%d",rc.left,rc.top,rc.right,rc.bottom,

             rc.right-rc.left,rc.bottom-rc.top);

      ((CPage0*)FromHandle(g_hPage0))->m_editRECT.SetWindowText(strRect);

其中,getProcPath是获取进程文件路径的函数。获取进程路径的方法有两种。在NT系统中,我们可以用OpenProcess()函数将进程打开后,再利用EnumProcessModules()函数枚举该进程的模块,最后利用GetModuleFileNameEx()函数就能取得该进程的路径;第二种方法是利用ToolHelp API中的相关函数。而后者兼容容Windows9x和NT4.0以后系统,所以采取此法。它的实现代码如下:

CString getProcPath(int PID)

{

      HANDLE hModule;

      MODULEENTRY32* minfo=new MODULEENTRY32;

      minfo->dwSize=sizeof(MODULEENTRY32);

   

      hModule=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,PID);         Module32First(hModule, minfo);

            

             CString str;

             str.Format("%s",minfo->szExePath);

      CloseHandle(hModule);

      if(minfo) delete minfo;

      return str;

}

五、样式标签页

样式标签页设计如下图:



API函数GetWindowLong可以获取窗口样式或扩展样式的值。然后我们罗列出以WS_开头的所有窗口样式与上述样式值做“位与”操作,如果被包含,则返回其窗口样式,否则返回0。这样,就可以得到窗口样式的列表了。扩展样式列表与样式列表类似。相关代码如下:

      CListBox* pListStyle=(CListBox*)(((CPage1*)FromHandle(g_hPage1))->GetDlgItem(IDC_LIST_STYLE));

      CListBox* pListExStyle=(CListBox*)(((CPage1*)FromHandle(g_hPage1))->GetDlgItem(IDC_LIST_EX_STYLE));

      CEdit* pEditStyle=(CEdit*)(((CPage1*)FromHandle(g_hPage1))->GetDlgItem(IDC_EDIT_STYLE));

      CEdit* pEditExStyle=(CEdit*)(((CPage1*)FromHandle(g_hPage1))->GetDlgItem(IDC_EDIT_EX_STYLE));



      long   style = GetWindowLong(g_hWnd, GWL_STYLE);

      longstyleEx=    GetWindowLong(g_hWnd, GWL_EXSTYLE);

      pEditStyle->SetWindowText(Display((int)style));

      pEditExStyle->SetWindowText(Display((int)styleEx));

   pListStyle->ResetContent();    //清空样式列表框

      pListExStyle->ResetContent();   //清空扩展样式列表框

      if (style & WS_BORDER)

       pListStyle->AddString("WS_BORDER");



   if( style & WS_CAPTION)

             pListStyle->AddString("WS_CAPTION");

   

      if( style & WS_CHILD)

             pListStyle->AddString("WS_CHILD");

……

六、类标签页

类标签页的设计如下图:



类名在常规标签页已获取。API函数GetClassLong可以获取类样式值。样式列表的实现与窗口样式类似,不再赘述。

七、窗口标签页

窗口标签页的设计如下图:



在该页中,主要用到了下面几个API函数:GetNextWindow、GetWindow和SendMessage。这三个API函数搭配以不同的参数值可以实现不同的功能。这里没有用GetWIndowText函数,是因为它不能取出部分系统窗口和隐藏窗口的标题。我们用SendMessage函数加WM_GETTEXT参数取代之。代码如下:

      CPage3* pPage3=(CPage3*)FromHandle(g_hPage3);

   HWND tempHandle;

      char tempstr="/0";

   tempHandle = g_hWnd;   //本窗口句柄

   pPage3->SetDlgItemText(IDC_MYHWND, Display((int)tempHandle));

   //获取本窗口标题

      ::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr);

   pPage3->SetDlgItemText(IDC_MYTITLE, tempstr);

      //上一窗口

   tempHandle = ::GetNextWindow(g_hWnd, GW_HWNDPREV);

   pPage3->SetDlgItemText(IDC_PREHWND, Display((int)tempHandle));

      //获取上一窗口标题

      memset(tempstr,0,255);

      ::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr);

   pPage3->SetDlgItemText(IDC_PRETITLE, tempstr);

      //下一窗口

   tempHandle = ::GetNextWindow(g_hWnd, GW_HWNDNEXT);

   pPage3->SetDlgItemText(IDC_NEXTHWND,Display((int)tempHandle));

      memset(tempstr,0,255);   //获取下一窗口标题

   ::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr);

   pPage3->SetDlgItemText(IDC_NEXTTITLE, tempstr);

   

   tempHandle = ::GetParent(g_hWnd);   //父窗口

   pPage3->SetDlgItemText(IDC_PARENTHWND, Display((int)tempHandle));

   memset(tempstr,0,255);

   ::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr);

   pPage3->SetDlgItemText(IDC_PARENTTITLE,tempstr);

      //第一子窗口

   tempHandle = ::GetWindow(g_hWnd, GW_CHILD);      

   pPage3->SetDlgItemText(IDC_CHILDHWND,Display((int)tempHandle));

   memset(tempstr,-0,255);

   ::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr);

   pPage3->SetDlgItemText(IDC_CHILDTITLE,tempstr);

      //所有者窗口

   tempHandle = ::GetWindow(g_hWnd, GW_OWNER);   

   Page3->SetDlgItemText(IDC_OWNERHWND,Display((int)tempHandle));

   memset(tempstr,0,255);

   ::SendMessage(tempHandle, WM_GETTEXT, 255, (LPARAM)tempstr);

pPage3->SetDlgItemText(IDC_OWNERTITLE, tempstr);

八、消息标签页

消息标签页的设计如下图:



该页中的列表框与样式列表框不同,它的每个列表项前都有一个复选框。这要用到类CCheckListBox。这里要再次用到子类化的知识。从本文第一段制作CMyPric过程中,我们体会到了子类化的作用,也感到了它的不便之处。这里,我们采取另外一种方法,借鸡生蛋:即用Class Wizard生成相关代码,然后再修改它。首先在该属性页对话框上画一个列表控件,打开Class Wizard关联一个CListBox类变量m_listStatus。设置列表框的Owner Draw属性为Fixed,并选中其Has Strings选项。如下图:



然后,在Page4.h中查找到m_listStatus的定义CListBox       m_listStatus并将其改为CCheckListBox      m_listStatus。这样,我们就可以使用CCheckListBox的全部函数了。

在对话框初始化过程中添加下列语句以加入各列表项:

      CCheckListBox* plistStatus=((CCheckListBox*)FromHandle(g_hPage4)->GetDlgItem(IDC_LISTSTATUS));

      plistStatus->AddString("窗口可见");

      plistStatus->AddString("窗口可用");

      plistStatus->AddString("总在最前");

      plistStatus->AddString("窗口只读");

      plistStatus->AddString("最大化");

      plistStatus->AddString("最小化");

      plistStatus->AddString("窗口还原");

      plistStatus->AddString("关闭窗口");

      plistStatus->AddString("激活窗口");

接下来我们要判断,当窗口/控件被选定后,哪些列表项被勾选。这个判断过程与样式列表的实现类似。如第一项“窗口可见”,代码如下:

      long   style = GetWindowLong(g_hWnd, GWL_STYLE);

if( style & WS_VISIBLE )

      {

             pListStatus->SetCheck(0,1);

      }

      其余各项详见源代码。

      这个列表框的作用不仅仅是显示窗口的状态,还要在发生勾选改动时即时改变窗口状态或激发其行为。勾选状态改变的消息是LBN_SELCHANGE。另外,为了不使一个勾选的改变就引起所有列表项都激发一遍,我们采用switch结构,以使哪个列表项被选中就激发哪个列表项。代码如下:

      void CPage4::OnSelchangeListstatus()

{

      // TODO: Add your control notification handler code here

      int n=m_listStatus.GetCurSel();

      switch(n)

      {

      case 0:

       if(m_listStatus.GetCheck(0)== 1 )

         ::ShowWindow(g_hWnd, SW_SHOW);

       else

         ::ShowWindow(g_hWnd, SW_HIDE);

             break;

   case 1:

       if(m_listStatus.GetCheck(1) == 1)

         ::EnableWindow(g_hWnd, TRUE);

       else

         ::EnableWindow(g_hWnd,FALSE);

       break;

   case 2:

       if(m_listStatus.GetCheck(2) == 1)

         ::SetWindowPos(g_hWnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE);

       else

         ::SetWindowPos(g_hWnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE);

             break;

   case 3:

       if(m_listStatus.GetCheck(3) == 1)

         ::SendMessage(g_hWnd, EM_SETREADONLY, TRUE, 0);

       else

         ::SendMessage(g_hWnd, EM_SETREADONLY, FALSE, 0);

             break;

   case 4:

       if(m_listStatus.GetCheck(4) ==1)

             {

         ::ShowWindow(g_hWnd, SW_MAXIMIZE);

         m_listStatus.SetCheck(5,0);

       }

             else

         ::ShowWindow (g_hWnd, SW_RESTORE);

       break;

   case 5:

       if (m_listStatus.GetCheck(5) == 1)

             {

                  ::ShowWindow(g_hWnd, SW_MINIMIZE);

         m_listStatus.SetCheck(4,0);

             }

       else

         ::ShowWindow(g_hWnd, SW_RESTORE);

             break;

   case 6:

       if(m_listStatus.GetCheck(6) ==1)

             {       ::ShowWindow (g_hWnd, SW_RESTORE);

         m_listStatus.SetCheck(6,0);

         m_listStatus.SetCheck(5,0);

         m_listStatus.SetCheck(4,0);

             }

       break;

   case 7:

       if(m_listStatus.GetCheck(7) ==1)

             {

                  ::SendMessage (g_hWnd, WM_CLOSE, 0, 0);

         m_listStatus.SetCheck(7,0);

             }

             break;

   case 8:

       if(m_listStatus.GetCheck(8) ==1)

             {

         ::BringWindowToTop(g_hWnd);

         m_listStatus.SetCheck(8,0);

             }

             break;

      default:

             ;

      }

}

      Spy++打造完成。回顾其过程,难点不多,但知识点不少,且细节问题也较多。文中一定还有很多地方不够周全,希望读者朋友不吝赐教。代码在Window XP + VC6.0中调试通过。

edisonx 发表于 2012-11-8 00:27:08

本帖最后由 edisonx 于 2012-11-8 00:29 编辑

回复 4# 鸟人


看了一千行源碼頭都暈了 (直接 END) ,
這是源於 ,牛人拿 vc6.0 之 Spy++ 以 VB6.0 重撰之 ??
改成 AU 的話就真是牛人。
页: [1]
查看完整版本: 窗口信息获取讨论