Html 无需提交即可登录网页

Html 无需提交即可登录网页,html,excel,dom,vba,Html,Excel,Dom,Vba,我试图登录到一个网站,这基本上是一个用户/密码表单: 还有源代码: 我的问题是:使用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 I

我试图登录到一个网站,这基本上是一个用户/密码表单:

还有源代码:

我的问题是:使用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

要启动点击事件,我是否必须参考一些其他内容?

尝试直接提交表单

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

我只是想告诉大家,我通过调用java函数成功地解决了这个问题:

设置html=ie.Document ie.Document.formsIDPASS.elementsuser_id.Value=inter62535 ie.Document.formsIDPASS.ElementsPassrd.Value=****** ie.Document.parentWindow.execScript errmsgdocument.IDPASS

这是因为提交表单的操作返回false。请参见第一张图片


关于

我试过了,它只会刷新页面和清除密码,我想提交不是日志功能的功能。看来你需要更深入地了解errmsg的功能。