Findwindow to find imperfectwindow

How do you use Findwindow to find a window that you only know a portion of the title or classname?

You can use WnumWindows to enumerate all of the open windows, then use the Like operator (with wildcards) to find the title.

Add to a Module

Code:

---

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim Length As Long
    Dim sName As String
    Dim Temp As String
    Static iCount As Integer
   
    iCount = iCount + 1
    Length = GetWindowTextLength(hwnd) + 1
   
    If Length > 1 Then
      sName = Space(Length)
      GetWindowText hwnd, sName, Length
      sName = Left(sName, Length - 1)
      'Replace "Portion of Title" with the portion of your window name. Remember to keep the astrikes at the end and beginning
      If sName
Like "*Portion of title*" Then MsgBox "The handle is: " & hwnd
    End If
   
    EnumWindowsProc = 1
End Function

---

Usage: (Add to a CommandButon)

Code:

---

EnumWindows AddressOf EnumWindowsProc, 0

---