VBA (Excel) - PhantomJS 驱动程序无法与“FindElementByXPath”一起使用 -> “NoSuchElementError”（与 Chrome 驱动程序一起使用）

Question

使用 PhantomJS：没有正确/预期的行为

带有网络元素的网站

Sub Logon()


Dim obj As New PhantomJSDriver 'PHANTOMdriver
obj.Start "PhantomJS", ""


    With obj
        .Get "https://logon.comuninow.net/"
    End With
    

obj.FindElementByXPath("//input[@formcontrolname='usernameControl']").SendKeys ("0101")
obj.FindElementByXPath("//input[@formcontrolname='passwordControl']").SendKeys ("9999")

obj.FindElementById("punchKind").Click



End Sub

错误7 无此类元素错误 找不到元素 XPath=//输入[@formcontrolname='usernameControl']

这很奇怪，因为它与 ChromeDriver 一起使用（相同的代码）

谢谢你 布鲁诺

我已将驱动程序更改为Chrome，然后就可以完美运行了。

Answer 1

解决方案是我们需要在执行 browser.get("") 之前设置一个假的浏览器大小

 With obj
    .Window.Maximize 'This is the solution!
    .Get "https://logon.comuninow.net/"
End With