网站自动登录按钮VBA代码失效问题求助

我在SCADA系统中使用WebCamVBA这个ActiveX控件访问服务器页面，已经通过VBA代码完成了用户名和密码的填充，但登录按钮的点击操作始终无法正常触发，未调用IE浏览器。

我的VBA代码 #

Private Sub Display_AnimationStart()

Dim HTMLDocs As HTMLDocument
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "http://192.168.1.1/"

WebCamVBA.Silent = True
WebCamVBA.Navigate (MyURL)
WebCamVBA.Visible = True

Do
Loop Until WebCamVBA.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = WebCamVBA.Document
HTMLDoc.all.username.Value = "admin1"
HTMLDoc.all.password.Value = "*****"

For Each MyHTML_Element In HTMLDoc.getElementsByName("input")
If MyHTML_Element.Type = "login" Then MyHTML_Element.Click: Exit For
Next

Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If

End Sub

登录按钮的HTML代码截图 #

你的代码无法触发登录按钮的核心问题是定位按钮的逻辑错误，以下是修正方案：

1. 修正元素定位逻辑 #

你当前用HTMLDoc.getElementsByName("input")查找元素，这是在找name="input"的标签，但从截图可见，登录按钮的name属性是login，所以这个集合里根本找不到目标按钮。

方式一：直接通过name属性定位

替换原有遍历代码为：

Dim loginBtn As IHTMLElement
Set loginBtn = HTMLDoc.getElementsByName("login")(0)
If Not loginBtn Is Nothing Then loginBtn.Click

方式二：遍历所有input标签筛选

如果需要遍历所有input元素，应该用getElementsByTagName而非getElementsByName，再通过属性筛选：

For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
    ' 匹配name为login或type为submit的按钮
    If MyHTML_Element.Name = "login" Or MyHTML_Element.Type = "submit" Then
        MyHTML_Element.Click
        Exit For
    End If
Next

2. 应对JavaScript绑定的情况 #

如果页面登录按钮绑定了自定义JavaScript事件（比如onclick），直接调用Click方法可能不生效，可尝试触发对应的JS事件：

Dim loginBtn As IHTMLElement
Set loginBtn = HTMLDoc.getElementsByName("login")(0)
If Not loginBtn Is Nothing Then
    HTMLDoc.parentWindow.execScript loginBtn.onclick, "JavaScript"
End If

内容的提问来源于stack exchange，提问作者Karthik K V