VB.NET中Selenium EdgeDriver新标签页无法加载URL问题求助

针对你遇到的新标签页导航后空白的问题，可从以下几个方向排查和修复：

1. 移除干扰性的调试参数 #

--remote-debugging-pipe参数用于远程调试管道模式，在指定用户数据目录的场景下，容易导致浏览器上下文异常，干扰新标签页的正常加载。直接从EdgeOptions中移除该参数：

' 移除这一行
' options.AddArgument("--remote-debugging-pipe")

2. 避免使用默认用户数据目录 #

直接使用Edge默认的用户数据目录（C:\Users\jasonfan\AppData\Local\Microsoft\Edge\User Data）可能会因为浏览器后台进程占用、权限问题导致异常。建议复制一份该目录到临时路径，或者创建新的空目录作为用户数据目录：

' 使用临时用户数据目录（需先手动创建该目录）
options.AddArgument("--user-data-dir=C:\Users\jasonfan\AppData\Local\Microsoft\Edge\TempUserData")

3. 增加窗口切换后的等待逻辑 #

JS执行打开新标签页后，浏览器需要时间完成新标签的初始化，直接切换并导航可能会因为页面未就绪导致空白。添加显式等待确保新窗口出现且页面就绪：

' 打开新标签页
Dim jsExecutor As IJavaScriptExecutor = CType(driver, IJavaScriptExecutor)
jsExecutor.ExecuteScript("window.open('about:blank', '_blank');")

' 等待新窗口句柄生成
Dim wait As New WebDriverWait(driver, TimeSpan.FromSeconds(5))
wait.Until(Function(d) d.WindowHandles.Count > 1)

' 切换到新标签页
Dim newTabHandle As String = driver.WindowHandles.Last
driver.SwitchTo().Window(newTabHandle)

' 等待新标签页DOM加载完成后再导航
wait.Until(Function(d) CType(d, IJavaScriptExecutor).ExecuteScript("return document.readyState").ToString() = "complete")
driver.Navigate().GoToUrl("https://www.google.com/")

4. 改用原生方式打开新标签页 #

若JS打开标签的方式不稳定，可尝试用键盘快捷键（Ctrl+T）替代，这是更贴近用户操作的原生方式：

' 先确保焦点在页面上
driver.FindElement(By.TagName("body")).SendKeys(Keys.Control + "t")

' 等待并切换到新标签页
Dim wait As New WebDriverWait(driver, TimeSpan.FromSeconds(5))
wait.Until(Function(d) d.WindowHandles.Count > 1)
Dim newTabHandle As String = driver.WindowHandles.Last
driver.SwitchTo().Window(newTabHandle)

driver.Navigate().GoToUrl("https://www.google.com/")

修改后的完整代码示例 #

Imports OpenQA.Selenium
Imports OpenQA.Selenium.Edge
Imports OpenQA.Selenium.Support.UI
Imports System.Threading

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Setup EdgeOptions
        Dim options As New EdgeOptions()

        ' 使用临时用户数据目录（需提前创建）
        options.AddArgument("--user-data-dir=C:\Users\jasonfan\AppData\Local\Microsoft\Edge\TempUserData")
        options.AddArgument("log-level=3")

        Dim driver As IWebDriver = New EdgeDriver(options)

        Try
            driver.Navigate().GoToUrl("http://www.bing.com")

            ' 打开新标签页并切换
            Dim jsExecutor As IJavaScriptExecutor = CType(driver, IJavaScriptExecutor)
            jsExecutor.ExecuteScript("window.open('about:blank', '_blank');")

            Dim wait As New WebDriverWait(driver, TimeSpan.FromSeconds(5))
            wait.Until(Function(d) d.WindowHandles.Count > 1)

            Dim newTabHandle As String = driver.WindowHandles.Last
            driver.SwitchTo().Window(newTabHandle)

            ' 等待页面就绪后导航
            wait.Until(Function(d) CType(d, IJavaScriptExecutor).ExecuteScript("return document.readyState").ToString() = "complete")
            driver.Navigate().GoToUrl("https://www.google.com/")

            MessageBox.Show("Process completed.")

        Catch ex As WebDriverException
            MessageBox.Show("Error: " & ex.Message)
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message)
        Finally
            ' Clean up
            driver.Quit()
        End Try
    End Sub
End Class

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