URLs geöffneter bzw vorhandener Browsertabs und Browserfenster auslesen

Imports mshtml
Imports NDde.Client

Function GetCurrentFFTab() As String
    Try
        Dim dde As DdeClient = New DdeClient("Firefox", "WWW_GetWindowInfo")  
        dde.Connect()
        Dim url As String = dde.Request("URL", 5000).Split("""")(1)  
        dde.Disconnect()
        Return url
    Catch ex As Exception
        Return ""  
    End Try
End Function

Function GetIETabs() As List(Of String)
    Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindows()
    Dim tabs As New List(Of String)
    For Each ie As SHDocVw.InternetExplorer In shellWindows

        If System.IO.Path.GetFileNameWithoutExtension(ie.FullName).ToLower() = "iexplore" Then  
            tabs.Add((ie.Document).url)
        End If
    Next
    Return tabs
End Function