枚举所有打开的标签vb.net中的Chrome URL

Imports System.Diagnostics

Dim chromeProcesses() As Process = Process.GetProcessesByName("chrome")

For Each chromeProcess As Process In chromeProcesses
    Dim chromeMainWindowHandle As IntPtr = chromeProcess.MainWindowHandle
    Dim chromeProcessId As Integer = chromeProcess.Id

    If chromeMainWindowHandle <> IntPtr.Zero Then
        For Each processThread As ProcessThread In chromeProcess.Threads
            Dim windowHandle As IntPtr = processThread.StartAddress

            If windowHandle <> IntPtr.Zero Then
                Dim chromeURL As String = GetChromeURL(windowHandle)
                If Not String.IsNullOrEmpty(chromeURL) Then
                    ' 在这里处理获取到的URL
                    Console.WriteLine(chromeURL)
                End If
            End If
        Next
    End If
Next

Private Function GetChromeURL(windowHandle As IntPtr) As String
    Dim chromeURL As String = ""

    Dim chromeBufferLength As Integer = 256
    Dim chromeBuffer As New System.Text.StringBuilder(chromeBufferLength)

    If SendMessage(windowHandle, WM_GETTEXT, chromeBufferLength, chromeBuffer) > 0 Then
        chromeURL = chromeBuffer.ToString()
    End If

    Return chromeURL
End Function

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As StringBuilder) As Integer
Private Const WM_GETTEXT As Integer = &HD