Страницы: 1
RSS
Регистрация на сайте и ввод Электронной цифровой подписи
 
Добрый день.

Суть проблемы заключается в том, что получается залогиниться на сайте, НО не получается подгрузить файл электронной цифровой подписи на сайт.
Ниже приведен работающий текст по авторизации на сайте (Логин и Пароль по известным причинам написать не могу)
Код
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 код, чтобы можно было подгружать файл и вводить пароль?
Изменено: Serg80 - 23.09.2020 20:38:35
 
вообще никто ничего не скажет?(((
 
выкладывайте сюда свою электронную подпись, введем куда надо, даже не сомневайтесь
и....
извините, каким боком это все к Excel: сайты, логины, пароли, файлы электронных подписей?  каким?
Изменено: Ігор Гончаренко - 23.09.2020 21:41:19
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх