Capture Browser address

[D Willett]

Maybe a long shot.
Is there a way to capture an open browser address?

Lets say I have Chrome or IE open ( not in VB6 ) is there an API to detect which browser is open and to capture the url via VB?

[HansV]

Set a reference to Microsoft Internet Controls.

The following procedure will list the URLs of all open tabs in Internet Explorer:

Code: Select all

Sub GetURLs()
    Dim sw As SHDocVw.ShellWindows
    Dim objIE As SHDocVw.InternetExplorer

    Set sw = New SHDocVw.ShellWindows

    For Each objIE In sw
        Debug.Print objIE.LocationURL
    Next objIE

    Set sw = Nothing
    Set objIE = Nothing
End Sub

(Adapted from Get Current URL in IE Using Visual Basic)

I don't know how to find the active tab (the code in the above link doesn't do that, although it claims to do so), and I have no idea how to do this for Chrome, if it is possible at all.

[D Willett]

Cheers Hans
A quick test gives me:
User-defined type not defined and errors on the first line of code.

I have the "Microsoft Internet Controls" active in the project references.
Any idea's?

Code: Select all

Private Sub Command1_Click()
GetURLs

End Sub
Sub GetURLs()
    Dim sw As SHDocVw.ShellWindows
    Dim objIE As SHDocVw.InternetExplorer

    Set sw = New SHDocVw.ShellWindows

    For Each objIE In sw
        Debug.Print objIE.LocationURL
    Next objIE

    Set sw = Nothing
    Set objIE = Nothing
End Sub

[HansV]

Are you absolutely sure? I tested the code, and it worked.
IntelliSense recognizes ShDocVw:

S0314.png

The reference:

S0315.png

ShDocVw really is part of Microsoft Internet Controls:

S0316.png

[D Willett]

Perhaps theres different versions of the control:??

[HansV]

What happens if you replace both instances of ShDocVw with ShDocVwCtl?

[D Willett]

I get type mismatch?

[HansV]

Apparently I have an entirely different library on my PC than you have. I have tried to search for a solution using ShDocVwCtl, but can't find it. Sorry.

[D Willett]

No Probs Hans.
It was always a long shot given the different browsers available so it would end up being a pointless addition to the project.
Have a great weekend. And thanks.