Суть проблемы заключается в том, что получается залогиниться на сайте, НО не получается подгрузить файл электронной цифровой подписи на сайт. Ниже приведен работающий текст по авторизации на сайте (Логин и Пароль по известным причинам написать не могу)
Код
Dim IeDoc As MSHTML.HTMLDocument
Sub Регистрация()
Dim URL$, Url_1$
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://scmo.oree.com.ua/portal/]http://scmo.oree.com.ua/portal/";
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
Set IeDoc = IE.document
Url_1 = IE.LocationURL
With IeDoc
.all("username").Value = "username"
.all("password").Value = "password"
.forms(0).submit
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend
End With
IE.Quit
End Sub
После того, как проходит авторизация, появляется следующее окно, где необходимо выбрать файл электронной цифровой подписи. И вот здесь проблема. не знаю как прописать в VBA код для загрузки файла электронной цифровой подписи и ввести пароль. Ниже через Проводник DOM текст HTML Страницы
Код
текст, где грузится файл Электронной цифровой подписи:
<div class="FlexBlock">
<input class="TextField" id="pkReadFileTextField" onclick="document.getElementById('pkReadFileInput').click();" type="text" readonly="true">
<div class="Button ButtonWithLeftMargin" id="pkReadFileSelectButton">
<a title="Обрати" onclick="document.getElementById('pkReadFileInput').click();" href="javascript:void(0);">
Обрати
</a>
<input id="pkReadFileInput" type="file" accept=".dat,.pfx,.pk8,.zs2,.jks">
</div>
</div>
текст, где вводится пароль к Электронной цифровой подписи
<div class="Block" id="pkReadFilePasswordBlock">
<label>Пароль захисту ключа:</label>
<br>
<input disabled="" class="TextField" id="pkReadFilePasswordTextField" type="password">
</div>
Подскажите пожалуйста, как прописать в VBA код, чтобы можно было подгружать файл и вводить пароль?
выкладывайте сюда свою электронную подпись, введем куда надо, даже не сомневайтесь и.... извините, каким боком это все к Excel: сайты, логины, пароли, файлы электронных подписей? каким?