2015-05-28 6 views
0

Мой код ниже. Открывает браузер, заполняет форму, но я не мог нажать кнопку. В источнике нет имени или идентификатора кнопки.Как нажимать кнопку на веб-странице (имя скрыто) с VBA?

Спасибо за помощь.

Melis.

Dim htmlDoc As HTMLDocument 
Dim MyBrowser As InternetExplorer 
    Sub ICON() 
    Dim MyHTML_Element As IHTMLElement 
    Dim MyURL As String 
    MyURL = "http://icon.icon-mng.com/login/" 
    Set MyBrowser = New InternetExplorer 
    MyBrowser.navigate MyURL 
    MyBrowser.Visible = True 
    Do 
    Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE 
    Set htmlDoc = MyBrowser.document 
    htmlDoc.all.login.Value = "xxx" 
    htmlDoc.all.pass.Value = "xxx" 
    For Each MyHTML_Element In htmlDoc.getElementsByTagName("input") 
    If MyHTML_Element Like "submit" Then MyHTML_Element.Click: Exit For 
    Next 

    End Sub 

ответ

1

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

With MyBrowser 
    .document.forms(0).submit 'your login form is indexed 0. 
    End With 
Смежные вопросы