在 VB6 中，可以使用 FindWindow API 函数来查找窗口句柄。这个函数接受两个参数，一个是窗口类名，另一个是窗口标题。如果你只知道窗口标题的一部分或者想查找标题相似的所有窗口，可以使用通配符来进行模糊匹配。

在 VB6 中，FindWindow API 函数的原型如下：

Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ByVal lpClassName As String, _ByVal lpWindowName As String _
) As Long

可以使用下面的函数来查找标题相似的所有窗口句柄：

Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ByVal lpClassName As String, _ByVal lpWindowName As String _
) As LongDeclare Function EnumWindows Lib "user32" ( _ByVal lpEnumFunc As Long, _ByVal lParam As Long _
) As LongDeclare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _ByVal hwnd As Long, _ByVal lpString As String, _ByVal cch As Long _
) As LongDeclare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" ( _ByVal hwnd As Long _
) As LongFunction FindSimilarWindows( _ByVal strPattern As String _
) As CollectionDim hwnd As LongDim strWindowTitle As StringDim lngWindowTitleLength As LongDim lngResult As LongDim colWindows As New CollectionDim lngEnumFunc As Long' 创建枚举窗口函数的回调函数lngEnumFunc = AddressOf EnumWindowsProc' 枚举所有窗口lngResult = EnumWindows(lngEnumFunc, 0&)If lngResult <> 0 ThenMsgBox "枚举窗口失败！"Exit FunctionEnd If' 查找标题相似的窗口Function EnumWindowsProc( _ByVal hwnd As Long, _ByVal lParam As Long _) As LongDim strWindowTitle As StringDim lngWindowTitleLength As Long' 获取窗口标题长度lngWindowTitleLength = GetWindowTextLength(hwnd)If lngWindowTitleLength = 0 Then Exit Function' 分配缓冲区strWindowTitle = String$(lngWindowTitleLength, vbNullChar)' 获取窗口标题If GetWindowText(hwnd, strWindowTitle, lngWindowTitleLength + 1) Then' 使用 Like 运算符进行模糊匹配If strWindowTitle Like strPattern ThencolWindows.Add hwnd, CStr(hwnd)End IfEnd If' 继续枚举下一个窗口EnumWindowsProc = 1End FunctionSet FindSimilarWindows = colWindows
End Function

使用方法：

Dim colWindows As Collection
Dim hwnd As Variant
Dim i As Long' 查找标题中包含 "Msgbox" 的所有窗口
Set colWindows = FindSimilarWindows("*Msgbox*")' 输出所有找到的窗口句柄
For i = 1 To colWindows.Counthwnd = colWindows.Item(i)Debug.Print hwnd
Next

需要注意的是，上面的代码使用了 API 函数，因此在使用前需要添加相应的引用和声明。同时，由于 API 函数的使用可能会导致系统不稳定，因此请谨慎使用。