Visual Basic

Dim procsChrome As Process() = Process.GetProcessesByName("chrome")
02
    For Each chrome As Process In procsChrome
03

04
        If chrome.MainWindowHandle = IntPtr.Zero Then Continue For
05
        Dim elm As AutomationElement =    AutomationElement.FromHandle(chrome.MainWindowHandle)
06
        Dim elmUrlBar As AutomationElement = elm.FindFirst(TreeScope.Descendants, New PropertyCondition(AutomationElement.NameProperty, "Address and search bar"))
07
        If elmUrlBar IsNot Nothing Then
08
            Dim patterns As AutomationPattern() = elmUrlBar.GetSupportedPatterns()
09
            If patterns.Length > 0 Then
10
                Dim val As ValuePattern = DirectCast(elmUrlBar.GetCurrentPattern(patterns(0)), ValuePattern)
11
                If Not elmUrlBar.GetCurrentPropertyValue(AutomationElement.HasKeyboardFocusProperty) Then
12
                    MsgBox(LCase(val.Current.Value).Trim)
13

14

15

16
                End If
17
                Exit For
18
            End If
19
        End If
20
    Next