Hi Experts,

I would like to seek your help, I need to create an application which can extract the current Active Tab and URL of any browser (i.e Chrome, IE, FireFox). I had googled around but there no samples had satisfy my needs.

Sample:

I would like to get the URL of active tab of Chrome and this code will get the current process of Chrome:

    Private Function GetURL() as string 
        Dim proc As System.Diagnostics.Process = GetBrowser("chrome")
        return GetURL
    End Sub

From this code, how can I know if what was the active tab of the browser?

    Private Function GetBrowser(BrowserName as string) as System.Diagnostics.Process
        Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName(BrowserName)
        For Each proc As System.Diagnostics.Process In pList
            If proc.ProcessName = appName Then
                If proc.MainWindowHandle.ToInt32 > 0 Then Return proc
            End If
        Next
    End Function

From this code, how can i extract the activebrowser URL?

    private Function GetURL(ActiveBrowser as System.Diagnostics.Process) as string
         'What to code?
    End Function

Hoping there would somebody out there who can help me on this.

Thank you and more power.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.