Question

系统采用getelementbyid值，但是如果我们单击该框，则允许登录

我想登录网页“ https://www.connect2nse.com/MemberPortal/home.jsp”，但网站仅接受键盘输入值

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "https://www.connect2nse.com/MemberPortal/home.jsp"
While ie.readyState <> 4: DoEvents: Wend
ie.Visible = True
ie.document.getElementById("user_id").Value = "1234ABC"
ie.document.getElementById("member_code").Value = "1234"
ie.document.getElementById("password").Value = "5678"
Dim VAL As String
VAL = InputBox("Enter Captcha Value", "CAPTCHA", "")
If VAL = "" Then
End
End If
ie.document.getElementById("loginCap").Value = (VAL)
ie.document.getElementById("ext-gen39").Click

如果使用键盘输入了用户ID，会员代码，密码和验证码，则系统启用了“提交”按钮。

如何通过VBA进行操作

Answer 1

您需要首先关注元素

ie.document.getElementById("loginCap").Focus
ie.document.getElementById("loginCap").Value = VAL

我可以建议您使用

安全地退出代码吗？

If VAL = vbNullString Then Exit Sub

，而不是您当前使用If的{{1}}语句。

另外，使用适当的页面加载，等待

End

单击最后的元素值

1 个答案: