Следующий код vb пытается войти на сайт:
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLElement As MSHTML.IHTMLElement
IE.Visible = True
IE.navigate ("https://www.website.com/login")
Do While IE.ReadyState <> READYSTATE_COMPLETE: Loop
Set HTMLDoc = IE.Document
HTMLDoc.all("loginForm-email").Value = "email@address.com"
HTMLDoc.all("loginForm-password").Value = "password"
HTMLDoc.all("loginForm-submit").Click
Адрес электронной почты и пароль правильно отображаются на веб-странице, однако при нажатии кнопки входа в систему происходит ошибка, как если бы не было введено никаких данных, это потому, что есть некоторая проверка того, что он не запускается сценарием vb.
Я заметил, что атрибуты некоторых элементов IHTMLElement по умолчанию установлены на:
"has-feedback form-group has-error pristine untouched ember-view"
... и при вводе адреса электронной почты и пароля изменяются на:
"has-feedback form-group has-success pristine touched ember-view"
.... но не изменяются сценарием VB выше?
Любые идеи, приветствуются.