使用VBA获取所有打开窗口的标题

Option Explicit

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpWindowText As String, ByVal nMaxCount As LongPtr) As Long
Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As Long

Sub GetOpenWindowTitles()
    Dim hWnd As LongPtr
    Dim title As String
    Dim titleLength As Long
    Dim result As Long
    
    hWnd = FindWindow(vbNullString, vbNullString) ' 获取第一个窗口的句柄
    
    Do While hWnd <> 0
        titleLength = GetWindowTextLength(hWnd) ' 获取窗口标题的长度
        If titleLength > 0 Then
            title = Space(titleLength + 1) ' 创建一个足够大的字符串来存储窗口标题
            result = GetWindowText(hWnd, title, titleLength + 1) ' 获取窗口标题
            If result > 0 Then
                Debug.Print title ' 输出窗口标题到Immediate窗口
            End If
        End If
        hWnd = FindWindowEx(0, hWnd, vbNullString, vbNullString) ' 获取下一个窗口的句柄
    Loop
End Sub