无法使用 VBA 在网页中输入用户名和密码

Question

我正在尝试使用 VBA 登录网页，但无法完成。问题是在输入用户名和密码后，点击登录按钮时，网页会出现“必填字段”错误，因此基本上没有输入凭据。

我还尝试使用 IE.document.getElementById("email").setAttribute("Value") = "XX" 将值设置为属性，但仍然会引发相同的错误。我也尝试过 .focus 方法，但没有运气。

我希望我已经解释了我的问题，如有任何错误请原谅。 网页链接“”https://dashboard.stripe.com/login“”我不能共享凭据，因为它是机密的。”

Set IE = CreateObject("InternetExplorer.application")

IE.Visible = True
IE.navigate "https://dashboard.stripe.com/login"
Do Until Not IE.busy: DoEvents: Loop
Set doc = IE.document
Do While doc.ReadyState <> "complete": DoEvents: Loop

IE.document.getelementbyid("email").Value = "a@A.com"
IE.document.getelementbyid("password").Value = "a"

Set ElementCol = IE.document.getElementsByTagName("span")
For Each link In ElementCol
If link.innerHTML = "Sign in to your account" Then
link.Click
End If
Next

Answer 1

我使用selenium basic 执行了以下操作。安装后转到 VBE > 工具 > 参考 > 添加对硒类型库的引用。

Option Explicit
Public Sub EnterInfo()
    Dim d As WebDriver, keys As New Selenium.keys
    Set d = New ChromeDriver
    Const url = "https://dashboard.stripe.com/login"
    With d
        .AddArgument "--headless"
        .Start "Chrome"
        .get url
         .FindElementById("email").SendKeys "joe.blogs@aol.com"
         .FindElementById("password").SendKeys keys.Enter
        .FindElementById("password").SendKeys "password"
        .FindElementById("password").SendKeys keys.Enter
         .FindElementByTag("form").submit
         Stop '<== Delete me
        '.Quit
    End With
End Sub