Firefox Quantum获取网址(VB.Net/C#) [英] Firefox Quantum get url (VB.Net/C#)
本文介绍了Firefox Quantum获取网址(VB.Net/C#)的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
任何人都知道如何从Firefox量子中获取url吗?我知道Firefox:
Anyone knows how to get the url from firefox quantum? I know for 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)
推荐答案
我自己这样做的
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
这篇关于Firefox Quantum获取网址(VB.Net/C#)的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文