VB.NET实现Firefox浏览器特定链接自动点击的方法求助

本人刚接触编程，有VB6基础，正在学习VB.NET，编写的程序需要实现以下功能：

• 在Firefox浏览器中打开google.com；
• 搜索指定内容（如“ABC”）；
• 点击搜索结果中的特定链接（如abc.com）。

目前已完成前两步，使用的代码如下：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Process.Start("C:\Program Files\Mozilla Firefox\firefox.exe", "https://www.google.com/")
    Threading.Thread.Sleep(5000) 
    SendKeys.SendWait("ABC")
    Threading.Thread.Sleep(500) 
    SendKeys.SendWait("~")
    Threading.Thread.Sleep(5000) 
End Sub

现在无法实现第三步的特定链接点击，且限制不能使用WebBrowser组件，寻求技术指导。

因为当前用SendKeys的方式依赖窗口焦点、延迟时间，稳定性差，且不能用WebBrowser组件，推荐以下两种更可靠的实现方式：

方法一：使用Windows UI自动化（UIAutomation） #

通过UI自动化框架识别Firefox窗口内的元素，定位目标链接并模拟点击：

1. 在VB.NET项目的引用中添加UIAutomationClient和UIAutomationTypes两个COM组件。
2. 编写代码定位Firefox窗口，筛选出包含目标URL的链接元素：

Imports System.Windows.Automation

Private Sub ClickTargetLink()
    ' 定位Firefox主窗口
    Dim desktop As AutomationElement = AutomationElement.RootElement
    Dim firefoxCondition As Condition = New PropertyCondition(AutomationElement.NameProperty, "Google - Mozilla Firefox")
    Dim firefoxWindow As AutomationElement = desktop.FindFirst(TreeScope.Children, firefoxCondition)
    
    If firefoxWindow IsNot Nothing Then
        ' 筛选包含"abc.com"的链接元素
        Dim linkCondition As Condition = New AndCondition(
            New PropertyCondition(AutomationElement.ControlTypeProperty, ControlType.Hyperlink),
            New PropertyCondition(AutomationElement.NameProperty, "*abc.com*", PropertyConditionFlags.IgnoreCase)
        )
        Dim targetLink As AutomationElement = firefoxWindow.FindFirst(TreeScope.Descendants, linkCondition)
        
        If targetLink IsNot Nothing Then
            ' 模拟点击操作
            Dim invokePattern As InvokePattern = DirectCast(targetLink.GetCurrentPattern(InvokePattern.Pattern), InvokePattern)
            invokePattern.Invoke()
        End If
    End If
End Sub

注意：Firefox窗口标题可能因版本或页面状态变化，需调整NameProperty的匹配值；操作时要确保Firefox窗口处于可见状态。

方法二：利用Firefox DevTools协议 #

Firefox支持通过DevTools协议与浏览器交互，无需模拟UI操作，直接通过代码控制浏览器：

1. 启动Firefox时开启远程调试：

Process.Start("C:\Program Files\Mozilla Firefox\firefox.exe", "--remote-debugging-port=9222 https://www.google.com/")

2. 通过HTTP请求获取调试会话，再用WebSocket连接DevTools执行JavaScript代码点击链接：

Imports System.Net
Imports System.Web.Script.Serialization
Imports System.Net.WebSockets
Imports System.Threading.Tasks

Private Async Sub UseDevTools()
    ' 获取调试会话信息
    Dim client As New WebClient()
    Dim sessionJson As String = client.DownloadString("http://localhost:9222/json/list")
    Dim sessions As List(Of Dictionary(Of String, Object)) = New JavaScriptSerializer().Deserialize(Of List(Of Dictionary(Of String, Object)))(sessionJson)
    Dim targetWsUrl As String = sessions(0)("webSocketDebuggerUrl").ToString()
    
    ' 建立WebSocket连接并执行点击链接的JS代码
    Using ws As ClientWebSocket = New ClientWebSocket()
        Await ws.ConnectAsync(New Uri(targetWsUrl), CancellationToken.None)
        
        ' 构造执行JS的命令
        Dim cmd As String = "{""id"":1,""method"":""Runtime.evaluate"",""params"":{""expression"":""document.querySelector('a[href*=\""abc.com\""]').click();""}}"
        Dim buffer As ArraySegment(Of Byte) = New ArraySegment(Of Byte)(System.Text.Encoding.UTF8.GetBytes(cmd))
        Await ws.SendAsync(buffer, WebSocketMessageType.Text, True, CancellationToken.None)
    End Using
End Sub

这种方式不依赖窗口焦点，稳定性更高，但需要处理WebSocket通信，对新手有一定学习成本。

内容的提问来源于stack exchange，提问作者Jack