Solved

How to get ALL Window Handle match Class Name ?

Posted on 2007-12-04
4
2,304 Views
Last Modified: 2013-12-03
Hi,
I have a question that i wanna get handles of ALL Windows match ClassName that i gave.
For example: Find all Window Handles have ClassName "ABC".
I tried to use FindWindow or FindWindowEx with lpszClass = "ABC" but in this case it only return Window handle of first Window have ClassName ="ABC". I don't know how to search for next Window.

Thank you
0
Comment
Question by:EWestWood
  • 3
4 Comments
 
LVL 96

Accepted Solution

by:
Bob Learned earned 400 total points
Comment Utility
Here is an example class that enumerates both top-level and child windows:


Imports System.Collections.Generic

Imports System.Runtime.InteropServices

Imports System.Text
 

Public Class ApiWindow

  Public MainWindowTitle As String = ""

  Public ClassName As String = ""

	Public hWnd As Int32

End Class
 

Public Class WindowsEnumerator
 

	Private Delegate Function EnumCallBackDelegate(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer
 

	' Top-level windows.

	Private Declare Function EnumWindows Lib "user32" _

	 (ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
 

	' Child windows.

	Private Declare Function EnumChildWindows Lib "user32" _

	 (ByVal hWndParent As Integer, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer
 

	' Get the window class.

	Private Declare Function GetClassName _

	 Lib "user32" Alias "GetClassNameA" _

	 (ByVal hwnd As Integer, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer
 

	' Test if the window is visible--only get visible ones.

	Private Declare Function IsWindowVisible Lib "user32" _

	 (ByVal hwnd As Integer) As Integer
 

	' Test if the window's parent--only get the one's without parents.

	Private Declare Function GetParent Lib "user32" _

	 (ByVal hwnd As Integer) As Integer
 

	' Get window text length signature.

	Private Declare Function SendMessage _

	 Lib "user32" Alias "SendMessageA" _

	 (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
 

	' Get window text signature.

	Private Declare Function SendMessage _

	 Lib "user32" Alias "SendMessageA" _

	 (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As StringBuilder) As Int32
 

  Private _listChildren As New List(Of ApiWindow)

  Private _listTopLevel As New List(Of ApiWindow)
 

  Private _topLevelClass As String = ""

  Private _childClass As String = ""
 

  ''' <summary>

  ''' Get all top-level window information

  ''' </summary>

  ''' <returns>List of window information objects</returns>

  Public Overloads Function GetTopLevelWindows() As List(Of ApiWindow)
 

    EnumWindows(AddressOf EnumWindowProc, &H0)
 

    Return _listTopLevel
 

  End Function
 

  Public Overloads Function GetTopLevelWindows(ByVal className As String) As List(Of ApiWindow)
 

    _topLevelClass = className
 

    Return Me.GetTopLevelWindows()
 

  End Function
 

  ''' <summary>

  ''' Get all child windows for the specific windows handle (hwnd).

  ''' </summary>

  ''' <returns>List of child windows for parent window</returns>

  Public Overloads Function GetChildWindows(ByVal hwnd As Int32) As List(Of ApiWindow)
 

    ' Clear the window list.

    _listChildren = New List(Of ApiWindow)
 

    ' Start the enumeration process.

    EnumChildWindows(hwnd, AddressOf EnumChildWindowProc, &H0)
 

    ' Return the children list when the process is completed.

    Return _listChildren
 

  End Function
 

  Public Overloads Function GetChildWindows(ByVal hwnd As Int32, ByVal childClass As String) As List(Of ApiWindow)
 

    ' Set the search

    _childClass = childClass
 

    Return Me.GetChildWindows(hwnd)
 

  End Function
 

  ''' <summary>

  ''' Callback function that does the work of enumerating top-level windows.

  ''' </summary>

  ''' <param name="hwnd">Discovered Window handle</param>

  ''' <returns>1=keep going, 0=stop</returns>

  Private Function EnumWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
 

    ' Eliminate windows that are not top-level.

    If GetParent(hwnd) = 0 AndAlso CBool(IsWindowVisible(hwnd)) Then
 

      ' Get the window title / class name.

      Dim window As ApiWindow = GetWindowIdentification(hwnd)
 

      ' Match the class name if searching for a specific window class.

      If _topLevelClass.Length = 0 OrElse window.ClassName.ToLower() = _topLevelClass.ToLower() Then

        _listTopLevel.Add(window)

      End If
 

    End If
 

    ' To continue enumeration, return True (1), and to stop enumeration 

    ' return False (0).

    ' When 1 is returned, enumeration continues until there are no 

    ' more windows left.
 

    Return 1
 

  End Function
 

  ''' <summary>

  ''' Callback function that does the work of enumerating child windows.

  ''' </summary>

  ''' <param name="hwnd">Discovered Window handle</param>

  ''' <returns>1=keep going, 0=stop</returns>

  Private Function EnumChildWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32
 

    Dim window As ApiWindow = GetWindowIdentification(hwnd)
 

    ' Attempt to match the child class, if one was specified, otherwise

    ' enumerate all the child windows.

    If _childClass.Length = 0 OrElse window.ClassName.ToLower() = _childClass.ToLower() Then

      _listChildren.Add(window)

    End If
 

    Return 1
 

  End Function
 

  ''' <summary>

  ''' Build the ApiWindow object to hold information about the Window object.

  ''' </summary>

  Private Function GetWindowIdentification(ByVal hwnd As Integer) As ApiWindow
 

    Const WM_GETTEXT As Int32 = &HD

    Const WM_GETTEXTLENGTH As Int32 = &HE
 

    Dim window As New ApiWindow()
 

    Dim title As New StringBuilder()
 

    ' Get the size of the string required to hold the window title.

    Dim size As Int32 = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0)
 

    ' If the return is 0, there is no title.

    If size > 0 Then

      title = New StringBuilder(size + 1)
 

      SendMessage(hwnd, WM_GETTEXT, title.Capacity, title)

    End If
 

    ' Get the class name for the window.

    Dim classBuilder As New StringBuilder(64)

    GetClassName(hwnd, classBuilder, 64)
 

    ' Set the properties for the ApiWindow object.

    window.ClassName = classBuilder.ToString()

    window.MainWindowTitle = title.ToString()

    window.hWnd = hwnd
 

    Return window
 

  End Function
 

End Class

Open in new window

0
 
LVL 1

Author Comment

by:EWestWood
Comment Utility
Very nice code. Thank you so lots.
I accepted your solution. Beside that after read your code i think i can expand it with allow to search for window name too.

PS: With you declare SendMessageA, i think should change to W that support Unicode :). I'll reply my modified code from your after finish.

Thank you again.
0
 
LVL 1

Author Closing Comment

by:EWestWood
Comment Utility
Should use W for support Unicode with SendMessage :)
0
 
LVL 1

Author Comment

by:EWestWood
Comment Utility
Aha.. never mind. Your code already perfect.. Just replace "SendMessageA" to "SendMessageW". I think so. That's all.
0

Featured Post

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

Suggested Solutions

We have adopted the strategy to use Computers in Student Labs as the bulletin boards. The same target can be achieved by using a Login Notice feature in Group policy but it’s not as attractive as graphical wallpapers with message which grabs the att…
Sometimes people don't understand why download speed shows differently for Windows than Linux.Specially, this article covers and shows the solution for throughput difference for Windows than a Linux machine. For this, I arranged a test scenario.I…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now