示例代码:
Dim hWnd As IntPtr = ProcessName.MainWindowHandle For Each hWndChild As IntPtr In hWnd MsgBox(hWndChild.classname.tostring & ",Caption: " & hWndChild.caption.tostring()) Next
(像间谍)
解决方法
这是一个很小的演示程序的链接,我刚刚从VB6中编写的另一个程序(很久以前)编写了代码片段:
Windows Scanner
希望能帮助到你…
编辑:我刚刚意识到,如果没有真正解释这些功能是如何工作的,这不是一个很好的答案.所以,在这里:
EnumWindows函数将第一个参数作为回调函数的指针.
第二个参数是可以传递给回调函数的值.您可以将其视为用户定义的参数.
每次EnumWindows“找到”一个新窗口时,它都会调用回调函数来通知新窗口.此回调函数作为参数,窗口的处理程序和用户在首次调用EnumWindows时指定的可选参数.
所以,基本上,这就是你调用EnumWindows的方式:
EnumWindows(New EnumWindowsProc(AddressOf EnumProc),0)
其中EnumWindowsProc是一个委托,用于创建对EnumProc函数的引用,这将是我们的回调.
这种回调的签名如下:
Private Function EnumProc(hWnd As IntPtr,lParam As IntPtr) As Boolean
在此函数中,您可以填充已发现窗口的内部数组.
对于EnumChildWindows函数,情况几乎相同,唯一的区别是它的第一个参数必须是父窗口的处理程序.
其他所有内容都以完全相同的方式处理.
如果检查WindowsScanner程序的源代码,您将看到我甚至为EnumWindows和EnumChildWindows使用相同的委托和相同的回调函数.那么我怎么知道我们是在枚举顶级窗口还是子窗口?很简单,我只需将EnumChildWindows的最后一个参数设置为“1”.然后,此参数将传递给回调函数(EnumProc),该函数允许它根据该参数的值执行不同的操作.