Доброго времени суток, Товарищи.
Помогите разобраться, может у кого-то знания есть в этой области.
Если вышеуказанную процедуру выполнить ручками, то на сайте сработает событие и добавятся новые поля. Document как бы обновиться.
Перепробовал кучу разных вариантов и перемещал фокус и кликал на другие элементы. но всё безуспешно.
Вопрос как запустить события (скрипты) на странице?
Помогите разобраться, может у кого-то знания есть в этой области.
Код |
---|
#If Win64 Then Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Sub Vipiska() ' подключено две библиотеки microsoft internet controls и microsoft html object library Dim IE As InternetExplorer Dim PageHTML As HTMLDocument Dim Sayt As String Sayt = "https://rosreestr.gov.ru/wps/portal/p/cc_present/EGRN_3" ' ссылка на сайт Set IE = New InternetExplorer ' открываем IE IE.Visible = True ' Делаем IE видимым IE.Navigate Sayt ' загружаем сайт Sleep dwMilliseconds:=5000 ' На всякий жду 5 сек, чтобы уже точно все прогрузилось. Do While IE.Busy = True ' Ещё раз проверяю что страница загружена полностью Loop Dim ColElements As Collection Set ColElements = New Collection Set PageHTML = IE.Document ' загоняем страницу в переменную For Each FR In PageHTML.all ' цикл по всем элементам на странице If FR.className = "v-filterselect-input" Then ' "v-filterselect-input" - нашёл в коде HTML ColElements.Add FR ' Добавляем элемент в коллекцию End If Next ' Выяснил через код HTML, что № элемента который я хочу изменить - это 4 ColElements(4).Value = "Российское юридическое лицо" ' изменяю значение ColElements(4).Click ' на всякий кликую, для отработки события, но ничего не происходит ' откопал событие (я так надеюсь), которое должно возникать при Click и пытаюсь его запустить с помощью нижеуказанной процедуры, но всё равно ничего не происходит. PageHTML.parentWindow.execScript "function jd(b){return function(){try{return kd(b,this,arguments)}catch(a){throw a}}}", "JScript" End Sub |
Перепробовал кучу разных вариантов и перемещал фокус и кликал на другие элементы. но всё безуспешно.
Вопрос как запустить события (скрипты) на странице?