VBA - 获取任务栏应用程序

使用VBA编程可以方便地获取任务栏应用程序的信息。通过编写相应的代码，我们可以获取当前打开的应用程序的名称、图标、窗口句柄等信息，从而实现一些自动化操作或者对应用程序进行控制和管理。下面我们将详细介绍如何使用VBA获取任务栏应用程序，并提供一个案例代码供参考。

vba
Sub GetTaskbarAppNames()
    Dim hwnd As Long
    Dim taskbarAppNames As String
    
    '遍历所有窗口
    hwnd = FindWindow("Shell_TrayWnd", vbNullString)
    hwnd = FindWindowEx(hwnd, 0, "TrayNotifyWnd", vbNullString)
    hwnd = FindWindowEx(hwnd, 0, "SysPager", vbNullString)
    hwnd = FindWindowEx(hwnd, 0, "ToolbarWindow32", vbNullString)
    
    '获取任务栏应用程序的名称
    Do While hwnd <> 0
        Dim buffer As String * 255
        Dim length As Long
        
        length = GetWindowTextLength(hwnd)
        buffer = Space$(length + 1)
        GetWindowText hwnd, buffer, length + 1
        
        '输出到Excel表格中
        taskbarAppNames = taskbarAppNames & buffer & vbCrLf
        
        hwnd = FindWindowEx(hwnd, 0, "ToolbarWindow32", vbNullString)
    Loop
    
    '将结果输出到Excel表格中的A列
    Range("A1").Value = taskbarAppNames
End Sub

vba
Sub GetTaskbarAppIcons()
    Dim hwnd As Long
    Dim hdc As Long
    Dim iconHandle As Long
    Dim iconWidth As Long
    Dim iconHeight As Long
    
    '遍历所有窗口
    hwnd = FindWindow("Shell_TrayWnd", vbNullString)
    hwnd = FindWindowEx(hwnd, 0, "TrayNotifyWnd", vbNullString)
    hwnd = FindWindowEx(hwnd, 0, "SysPager", vbNullString)
    hwnd = FindWindowEx(hwnd, 0, "ToolbarWindow32", vbNullString)
    
    '获取任务栏应用程序的图标
    Do While hwnd <> 0
        hdc = GetDC(hwnd)
        
        '获取图标大小
        iconWidth = 32
        iconHeight = 32
        
        '提取图标
        iconHandle = ExtractIconEx("shell32.dll", -1, 0, 0, 1)
        
        '绘制图标到Excel表格中
        DrawIconEx hdc, 0, 0, iconHandle, iconWidth, iconHeight, 0, 0, DI_NORMAL
        
        '释放资源
        ReleaseDC hwnd, hdc
        DestroyIcon iconHandle
        
        hwnd = FindWindowEx(hwnd, 0, "ToolbarWindow32", vbNullString)
    Loop
End Sub