如何在特定网站上执行(登录)按钮? [英] How to execute (Login) button on specific website?

问题描述

我在网上找到了这个VBA代码，例如，它可以在Facebook上运行.

I found this VBA code online and it works on Facebook for example.

在 https://www.solarmanpv.com/portal/LoginPage.aspx它不起作用.它会打开Internet Explorer，将凭据放在正确的位置，但不会按登录键.

On https://www.solarmanpv.com/portal/LoginPage.aspx it does not work. It opens Internet Explorer, puts the credentials on the right places but won't press login.

当我尝试运行时，VBA上显示错误'424'.

Error '424' is shown on VBA when I try to run.

Sub LoginViaBrowser()
    Dim Dc_Usuario As String
    Dim Dc_Senha As String
    Dim Dc_URL As String
    Dim objIE As New InternetExplorer 'Referencie "Microsoft Internet Controls"

    objIE.Visible = True

    Dc_Usuario = "[e-mail]"
    Dc_Senha = "pass"
    Dc_URL = "https://www.solarmanpv.com/portal/LoginPage.aspx"

    objIE.Navigate2 Dc_URL

    Do Until objIE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop

    objIE.document.all("uNam").innertext = Dc_Usuario
    objIE.document.all("uPwd").innertext = Dc_Senha

    objIE.document.all("login").submit

End Sub

推荐答案

请尝试使用F12开发人员工具检查html元素，然后，您会发现登录按钮的ID是登录"，而不是登录" ".

Please try to use F12 developer tools to check the html elements, then, you could find that the id of the login button is "Loginning", not "login".

尝试如下修改您的代码:

Try to modify your code as below:

Sub LoginViaBrowser()
    Dim IE As Object

    Dim Dc_Usuario As String
    Dim Dc_Senha As String
    Dim Dc_URL As String

    Dim txtNam As Object, txtPwd As Object

    Dc_Usuario = "[e-mail]"
    Dc_Senha = "pass"

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "https://www.solarmanpv.com/portal/LoginPage.aspx"

        While IE.ReadyState <> 4
            DoEvents
        Wend
        IE.Document.getElementById("uNam").Value = Dc_Usuario
        IE.Document.getElementById("uPwd").Value = Dc_Senha

        IE.Document.getElementById("Loginning").Click

    End With
    Set IE = Nothing
End Sub

这篇关于如何在特定网站上执行(登录)按钮?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！