Войдите на защищенную веб-страницу, используя VBA

Question

меня зовут Франциско, в настоящее время я пытаюсь автоматизировать создание ежедневного отчета, загруженного с веб-страницы, но я пытаюсь пропустить страницу входа.

Мне не нужно вводить логининформация, так как она уже есть.Мне просто нужна строка кода, чтобы нажать кнопку входа в систему на странице.

пока все идет так:

 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>

Страница входа в систему

Пожалуйста, помогите.

Спасибо!

HTML-код

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();"