Question

我的名字是Francisco，我目前正在尝试自动生成从网页下载的每日报告，但是我正在努力通过登录页面。

我不需要输入登录信息，因为它已经存在。我只需要一行代码即可按页面上的登录按钮。

到目前为止，我是这样的：

 Set ObjIE = CreateObject("InternetExplorer.Application")
    ObjIE.Top = 0
    ObjIE.Left = 0
    ObjIE.Width = 800
    ObjIE.Height = 600
    ObjIE.AddressBar = 0
    ObjIE.StatusBar = 0
    ObjIE.Toolbar = 0

    ObjIE.Visible = True 'We will see the window navigation

    ObjIE.Navigate ("http://kirby.inst.strykercorp.com")

寻找按钮的源代码时页面的HTML代码：

 <FORM id=loginForm method=post name=form action=j_security_check><TABLE <TR>

    <INPUT onclick=checkSave() type=submit value=Login></TD>

Login Page

请帮助。

谢谢！

HTML Code

Answer 1

您可以尝试：

1）

ObjIE.document.querySelector("[value=Login]").click

2）

ObjeIE.document.parentWindow.execScript "checkSave();"

3）

Dim event_onClick As Object
Set event_onClick = ObjIE.document.createEvent("HTMLEvents")
event_onClick.initEvent "click", True, False

ObjIE.document.querySelector("[value=Login]").dispatchEvent event_onClick

4）

ObjIE.document.querySelector("[value=Login]").FireEvent "onclick"

5）

ObjIE.document.parentWindow.execScript "document.querySelector('[value=Login]').click();"

使用VBA登录到安全网页

1 个答案: