Страницы: 1
RSS
Обработка событий Internet explorer (когда происходит переход на другие страницы после загрузки)
 
Добрый день, нужна помощь.
Нужно обработать события, когда происходит переход на другие страницы после загрузки.
Идея такая страница открывается, но нужно не допустить дальнейшую навигацию, как дождаться полной загрузки страницы известно.
К примеру перехватить TitleChange, что заголовок изменился и тогда Quit.
 
Доброе время суток.
Вариант.
 
Здравствуйте, Андрей! Спасибо за (как всегда) интересный пример!
Владимир
 
Спасибо за ответ, попробую применить, идея именно в том, чтобы после перехода по урлу страница загрузилась, отобразилась. Но когда пользователь начал дальше идти по сайту то Quit (по ссылке тыкнул у к примеру. Пример кода не прикладываю, потому что там несколько примитивных строк.
 
Была идея просто в режиме предварительного просмотра открыть, чтобы только показать страницу, но это неудобно.
Код
Sub test()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    url = "https://yandex.ru"
        
    With ie
        .Silent = False
        .Visible = 0
        .AddressBar = False
        .MenuBar = False
        .Resizable = False
        .Navigate url
        While .Busy Or (.ReadyState <> 4): DoEvents: Wend
        .ExecWB 7, 2  'эту строку выполнить для открытия 
    End With
  Set ie = Nothing
End Sub
Изменено: валерий М - 20.01.2021 16:23:13
 
Не получилось адаптировать пример под задачу, можете помочь?
Страницы: 1
Наверх