登录网页，不提交

Question

我试图登录网络，这基本上是用户/密码形式：

还有源代码：

我的问题是：使用Excel vba我试图使用form.submit方法，但这只是刷新页面，所以我试图找到并单击按钮，但显然我做错了什么：

Sheets("Hoja1").Cells.Clear
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "https://smap.komatsu.co.jp/cgi-bin/webdriver"
'Wait until IE is done loading page
Do While ie.READYSTATE <> READYSTATE_COMPLETE
DoEvents
Loop
'show text of HTML document returned
Set html = ie.Document
ie.Document.forms("IDPASS").elements("user_id").Value = "inter62535"
ie.Document.forms("IDPASS").elements("paswrd").Value = "******"
Set boton = ie.Document.getElementsByTagName("TD")
boton(5).Click

为了触发点击事件，我是否需要引用一些附件？

Answer 1

尝试直接提交表单。

with ie.Document.forms("IDPASS")
    .elements("user_id").Value = "inter62535"
    .elements("paswrd").Value = "******"
    .submit
end with

Answer 2

告诉我通过调用java函数来设法解决问题：

Set html = ie.Document ie.Document.forms("IDPASS").elements("user_id").Value = "inter62535" ie.Document.forms("IDPASS").elements("paswrd").Value = "******" ie.Document.parentWindow.execScript "errmsg(document.IDPASS);

那是因为提交表格的行为是假的（见第一张图片）

此致