, чтобы этот код работал, ваш код должен ссылаться на библиотеку COM: UIAutomationClient

ибудь знает, как получить URL из кванта Firefox? Я знаю для Firefox:

 Dim DdeClient As New DdeClient("Firefox", "WWW_GetWindowInfo")
 DdeClient.Connect()
 Dim URL As String = DdeClient.Request("URL", Integer.MaxValue)
 DdeClient.Disconnect()
 URL = Split(URL, """,""")(0)
 URL = Split(URL, """")(1)

Ответы на вопрос(3)

Решение Вопроса

Я сделал это сам с этим

        Dim ProcessFireFox As Process() = Process.GetProcessesByName("firefox")
        If ProcessFireFox.Count = 0 Then
            MsgBox("firefox not found", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Error")
            Exit Sub
        End If
        For Each Firefox As Process In ProcessFireFox
            If Firefox.MainWindowHandle = IntPtr.Zero Then Continue For
            Dim AutomationElement As System.Windows.Automation.AutomationElement = System.Windows.Automation.AutomationElement.FromHandle(Firefox.MainWindowHandle)
            For Each Elm As System.Windows.Automation.AutomationElement In AutomationElement.FindAll(TreeScope.Descendants, New PropertyCondition(AutomationElement.ControlTypeProperty, ControlType.Document))
                Dim BAutomationPattern As System.Windows.Automation.AutomationPattern() = Elm.GetSupportedPatterns()
                Dim BValuePattern As System.Windows.Automation.ValuePattern = DirectCast(Elm.GetCurrentPattern(BAutomationPattern(0)), System.Windows.Automation.ValuePattern)
                MsgBox(BValuePattern.Current.Value.ToString)
            Next
        Next
 PeterJ20 янв. 2018 г., 12:58
это работает для меня, но требуется время, чтобы получить URL
 Ayorus16 янв. 2018 г., 21:08
Здравствуйте, ваш код все еще работает? Я пытался, но безуспешно. @PeterJ

/ e10s).

В версии 57.0.4 Перейтиabout:config и установить:

browser.tabs.remote.autostart=false (default)
browser.tabs.remote.autostart.2=false

ответ и с учетом комментария Петра:it's working for me but it takes a while to get the url

Я написал следующий код. Может быть, это может быть полезно для кого-то:

  Process[] lFFs = Process.GetProcessesByName("firefox");

                    for (int i = 0; i < lEs.Length; i++)
                    {
                        UIAutomationClient.IUIAutomationElement ee = lEs.GetElement(i);
                        if (ee != null && ee.CurrentName  != null &&
 (ee.CurrentName.Contains("search") || ee.CurrentName.Contains("navigation")))                       
    { // For spanish you can use: (ee.CurrentName.Contains("de búsqueda") || ee.CurrentName==  "Barra de navegación")

                            lEs = ee.FindAll(UIAutomationClient.TreeScope.TreeScope_Children, c);
                            if (lEs.Length > 0)
                                i = 0;
                            else
                            {
                                try
                                {
                                    object obj = ee.GetCurrentPattern(10002); // 10002: ValuePattern

                                    if (obj != null)
                                    {
                                        string sUrl = ((UIAutomationClient.IUIAutomationValuePattern)obj).CurrentValue;
                                        return  sUrl;
                                    }
                                }
                                catch
                                { }
                            }
                        }
                    }

Важный, чтобы этот код работал, ваш код должен ссылаться на библиотеку COM: UIAutomationClient

Ваш ответ на вопрос