0

我使用 Internet Explorer 创建了一个 vba 脚本，以使用我的凭据登录网站。问题是脚本有时可以完美运行，但大多数时候它在sign in按下按钮时会失败，这意味着卡在那里。

Sub SignIn()
    Const Url$ = "https://member.angieslist.com/app/search?categoryName=Plumbing&isMisspelling=false&query=Plumbing&categorySearchType=legacy&category=107"
    Dim IE As New InternetExplorer, HTML As HTMLDocument
    Dim oPass As Object, oMail As Object, oButton As Object

    With IE
        .Visible = True
        .navigate Url
        While .Busy Or .readyState < 4: DoEvents: Wend
        Set HTML = .document

        With HTML
            Do: DoEvents: Loop Until .querySelectorAll("#login--login-email").Length > 0
            Set oMail = .querySelector("#login--login-email")
            oMail.Focus
            oMail.innerText = "useremail"

            Do: DoEvents: Loop Until .querySelectorAll("#login--login-password").Length > 0
            Set oPass = .querySelector("#login--login-password")
            oPass.Focus
            oPass.innerText = "password"

            Do: DoEvents: Loop Until .querySelectorAll("#login--login-button").Length > 0
            Set oButton = .querySelector("#login--login-button")
            oButton.Focus
            oButton.Click 'It gets here stuck most of the times
        End With
    End With
End Sub

我怎样才能不失败地登录该站点？

4

1 回答 1

0

这可能有效...... 50/50镜头。

  Sub SignIn()
Const Url$ = "https://member.angieslist.com/app/search?categoryName=Plumbing&isMisspelling=false&query=Plumbing&categorySearchType=legacy&category=107"
Dim IE As New InternetExplorer, HTML As HTMLDocument
Dim oPass As Object, oMail As Object, objElement As Object, objCollection As Object

With IE
    .Visible = True
    .navigate Url
    While .Busy Or .readyState < 4: DoEvents: Wend
    Set HTML = .document

    With HTML
        Do: DoEvents: Loop Until .querySelectorAll("#login--login-email").Length > 0
        Set oMail = .querySelector("#login--login-email")
        oMail.Focus
        oMail.innerText = "useremail"

        Do: DoEvents: Loop Until .querySelectorAll("#login--login-password").Length > 0
        Set oPass = .querySelector("#login--login-password")
        oPass.Focus
        oPass.innerText = "password"

        Set ElementCol = IE.document.getElementsByClassName("btn btn-sm btn-primary btn-block btn-flat")
        ElementCol.Item(0).Click
    End With
End With

结束子

于 2019-08-05T21:42:03.787 回答