VBA: Get URL of a Chrome browser window

[SammyB]

I would like to look at all of the visible windows & if it is a Chrome window, find the URL. Cycling thru the windows is easy, but I'm not sure how to get the URL once I have found a Chrome window. Here is the code to find the Chrome window(s), but I'm not sure what to do next. TIA

Code: Select all

Option Explicit
Private Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias _
                "GetDesktopWindow" () As Long
Private Declare PtrSafe Function apiGetWindow Lib "user32" Alias _
                "GetWindow" (ByVal hwnd As Long, _
                ByVal wCmd As Long) As Long
Private Declare PtrSafe Function apiGetWindowText Lib "user32" Alias _
                "GetWindowTextA" (ByVal hwnd As Long, ByVal _
                lpString As String, ByVal aint As Long) As Long
Private Declare PtrSafe Function apiGetWindowLong Lib "user32" Alias _
                "GetWindowLongA" (ByVal hwnd As Long, ByVal _
                nIndex As Long) As Long
                
Private Const GW_CHILD As Long = 5
Private Const GW_HWNDNEXT As Long = 2
Private Const GWL_STYLE As Long = (-16)
Private Const mconMAXLEN = 255

Public Sub ChromeInfo()
    Dim hwnd As Long, sWinTxt As String, iLength As Long, iHandleStyle As Long
    Dim v As Variant
    hwnd = apiGetWindow(apiGetDesktopWindow(), GW_CHILD)
    Do While hwnd <> 0
        sWinTxt = String$(mconMAXLEN - 1, 0)
        iLength = apiGetWindowText(hwnd, sWinTxt, mconMAXLEN)
        If iLength > 0 Then
            sWinTxt = left$(sWinTxt, iLength)
            iHandleStyle = apiGetWindowLong(hwnd, GWL_STYLE)
            If iHandleStyle And WS_VISIBLE Then
                v = Split(sWinTxt, "-")
                If v(UBound(v)) = " Google Chrome" Then
                    MsgBox "Need to get Chrome URL for " & v(0)
                End If
            End If
        End If
        hwnd = apiGetWindow(hwnd, GW_HWNDNEXT)
    Loop
End Sub

[HansV]

Sorry, I can only find old code that doesn't work with recent versions of Chrome...

You might have a look at Selenium.

[YasserKhalil]

Can you share the code that you found?

[HansV]

Just search Google - for example How can I get URLs of open pages from Chrome and Firefox?

[ChrisGreaves]

Can you share the code that you found?

i found the WiseOwl videos useful.
The videos are written in Excel/VBA but I adapted them for Word20002/VBA with success.
This Topic too may help.
Cheers, Chris

[SammyB]

Sorry that I am so long in responding. I'm too busy on other stuff. I will eventually look at the links that everyone provided. I think that the bottom line is to have two macros. It is for a window manager that knows exactly where I want to see my windows, but a Chrome window for Fathom needs to be just a little wider than I would normally have, so rather than try to understand Selenium, it will probably just be easier to have an extra button for a Fathom window setup because I only use it a couple of days a month. But, I will eventually give an integrated approach another try. Thanks!