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.
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.