Locating windows question

[ethanwa]

Ok, I know how to find windows. How can I get the number of Windows that have the same name/class? For example, I want to count all the windows that are labeled "Hi" and then put that number in a variable. Here's what I have so far to find all the Winamp apps that are open. Please help me finish the code! Thanks

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
hWndWinAMP = FindWindow("Winamp v1.x", vbNullString)

[MerrionComputin]

You can do this with the EventVB.dll thus:

Option Explicit
 
Dim WithEvents vbLink As EventVB.ApiFunctions
 
Private Sub Form_Load()
 
Set vbLink = New ApiFunctions
 
Dim wndThis As ApiWindow
Dim lFound As Long 
 
For Each wndThis In vbLink.System.TopLevelWindows
   If wndThis.WindowText = "Hi" Then
      lFound = lFound + 1
   End If
Next wndThis
 
MsgBox "Found " & lFound & " windows caption = Hi "
 
End Sub

HTH,
Duncan

[ethanwa]

Thanks for the code. What if I have the class of the window, not the name. Here's an example:

FindWindow("Winamp v1.x", vbNullString)

Can the code you gave me above be altered to find windows by the class name?

[imj75]

This seems very familiar to something I needed awhile ago try this:

Check the attached module:
This code makes an array of al windows' captions, and then searches for a window ending with "- Tester", and closes it.

It all starts with this code below(on a form):

Function GetCaptions()
Dim vCaps, strArray As Variant
Dim lIndex As Long
Dim iArraySize As Integer
    
    vCaps = GetAllCaptions()
    iArraySize = UBound(vCaps)
    strArray = MakeStrArray(vCaps, iArraySize)
    If TesterIsRunning(strArray, iArraySize) Then
        If CloseExtApp(strActiveTester) Then
            MsgBox "Program is ready to continue", vbInformation, "Tester closed"
        Else
            MsgBox "Automatic shutdown of Tester failed" & vbCrLf _
            & "Please close Tester, then try again", vbCritical, "Tester not closed"
            End
        End If
    End If
 
--------------------------------------------------------------------------------

[imj75]

Oops forgot to add the needed module:
Take a look at the attached module for more info on using the code above.