使用VB.net与OpenQA Selenium点击WordPress站点按钮遇阻求助

我在使用VB.NET结合OpenQA Selenium点击WordPress站点按钮时遇到定位元素的问题，站点的代码结构导致元素难以定位。当前代码如下：

Imports OpenQA.Selenium
Imports OpenQA.Selenium.Chrome
Imports System.IO

Module Module1
    Sub Main()
        ' Create a new ChromeDriver instance
        Dim driver As New ChromeDriver()
        ' Navigate to the URL
        driver.Navigate().GoToUrl("https://www.airexpert.net/2023dreamteam")
        ' Find the button element by its ID and click it
        Dim bodyElement As IWebElement = driver.FindElement(By.CssSelector("#y9ar97_0_offer"))
        ' Find the button element with the id "choice_57" within the body element
        Dim button As IWebElement = bodyElement.FindElement(By.Id("choice_101"))
        ' Click on the button element
        button.Click()
        ' Quit the driver to close the browser
        driver.Quit()
    End Sub
End Module

解决方法： #

• 等待元素加载完成
  页面未完全加载就执行查找操作会导致元素找不到，添加显式等待确保元素可交互：

  Imports OpenQA.Selenium.Support.UI
  ' ...
  Dim driver As New ChromeDriver()
  driver.Navigate().GoToUrl("https://www.airexpert.net/2023dreamteam")
  
  ' 等待10秒，直到按钮可点击
  Dim wait As New WebDriverWait(driver, TimeSpan.FromSeconds(10))
  Dim button As IWebElement = wait.Until(ExpectedConditions.ElementToBeClickable(By.Id("choice_101")))
  button.Click()
  
  driver.Quit()
  

• 检查元素是否在iframe内
  如果按钮嵌套在iframe中，必须先切换到对应的iframe才能定位元素：

  Dim driver As New ChromeDriver()
  driver.Navigate().GoToUrl("https://www.airexpert.net/2023dreamteam")
  
  ' 定位并切换到iframe（示例用CSS选择器，需根据实际页面调整）
  Dim iframe As IWebElement = driver.FindElement(By.CssSelector("iframe"))
  driver.SwitchTo().Frame(iframe)
  
  ' 查找并点击按钮
  Dim button As IWebElement = driver.FindElement(By.Id("choice_101"))
  button.Click()
  
  ' 切回主文档
  driver.SwitchTo().DefaultContent()
  driver.Quit()
  

• 更换定位策略（应对动态ID）
  WordPress插件生成的元素ID可能是动态变化的，改用文本、class或XPath定位更可靠：

  ' 按按钮文本定位（文本需完全匹配）
  Dim button As IWebElement = driver.FindElement(By.XPath("//*[text()='按钮显示的文本']"))
  
  ' 按class属性组合定位
  Dim button As IWebElement = driver.FindElement(By.CssSelector(".survey-choice-option .choice-btn"))
  

• 用JavaScript强制点击（元素被覆盖/隐藏时）
  如果元素存在但无法通过常规Click()点击，尝试用JavaScript执行点击：

  Dim button As IWebElement = driver.FindElement(By.Id("choice_101"))
  Dim js As IJavaScriptExecutor = DirectCast(driver, IJavaScriptExecutor)
  js.ExecuteScript("arguments[0].click();", button)
  

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