InvalidSelector错误：不允许使用“FindElementByClass”复合类名

Question

我在尝试使用类名时遇到代码问题。我已尝试并运行时错误32显示为：

InvalidSelector Error: compund class names not permitted

也许有人可以帮助编写下面的代码。我有chrome浏览器103.5060.114，但web驱动程序103.5060.56。我找不到其他司机下载。

超文本标记语言：

<span dir="auto" title="Customer" class="ggj6brxn gfz4du6o r7fjleex g0rxnol2 lhj4utae le5p0ye3 l7jjieqr i0jNr">Customer</span>

VBA代码：

Sub iselementpresenttest()
    
Dim bot As New WebDriver
Dim ks As New Keys

'Init New Chrome instance & navigate to WebWhatsApp
bot.Start "chrome", "https://web.whatsapp.com/"
bot.Get "/"
bot.Window.Maximize
MsgBox "Please scan the QR code. After you are logged in, please confirm this message box by clicking 'ok'"
bot.Wait (3500)
        
'        If bot.FindElementByClass("_2qo4q _3NIfV") = 1 Then
'    Debug.Print "true"
'End If
        
        If bot.FindElementByClass("ggj6brxn gfz4du6o r7fjleex g0rxnol2 lhj4utae le5p0ye3 l7jjieqr i0jNr") = 1 Then
'                If bot.FindElementByXPath("//*[@id='pane-side']/div/div/div/div[11]/div/div/div[2]/div[2]/div[1]/span/div/span") = 1 Then
    Debug.Print "true"
End If
'        If bot.FindElementsByXPath("//*[@id='main']/div[3]/div/div[2]/div[3]/div[20]/div/div[1]/div[1]/div[2]/div/div/span").Count > 0 Then
    If bot.FindElementsByXPath("//*[@id='main']/div[3]/div/div[2]/div[3]/div[20]/div/div[1]/div[1]/div[2]/div/div/span").Count > 0 Then
        bot.TakeScreenshot.ToExcel.PasteSpecial (xlPasteAll)
        
            bot.Quit
            MsgBox "Yes"
        Else
            bot.Quit
            MsgBox "NO"
        End If
        
    End Sub

我的目标是将发送接收WhatsApp图标带到Excel表

Answer 1

您需要在这里处理几件事：

• 的类名

要识别元素，您可以使用以下定位器策略：

> < li>

使用FindElementByCss:

bot.FindElementByCss("span[title='Customer']")

使用FindElementByXPath:

bot.FindElementByXPath("//span[@title='Customer' and text()='Customer']")