Блог

Я создал макрос для анализа названий разных фильмов, проходящих по нескольким страницам торрент-сайта. Я использовал InternetExplorer в сочетании с синтаксическим анализатором Html.body.innerHTML (обычно используется с запросами xmlhttp), чтобы ускорить выполнение. Хотя содержимое этого сайта не является динамическим, я использовал IE, чтобы посмотреть, как он ведет себя при очистке в сочетании с Html.body.innerHTML.

Когда я запускаю свой скрипт с помощью IE, он анализирует содержимое, как ожидалось, и завершает работу. Единственная проблема, с которой я сталкиваюсь, заключается в том, что в каждой разбивке на страницы из ниоткуда появляется пустой экран, подобный изображению ниже.

Как я могу избавиться от проблем с пустым экраном?

Мой скрипт (никаких проблем при использовании Html.body.innerHTML в сочетании с драйвером Chrome):

 Sub FetchContent()
    Const link = "https://yts.am/browse-movies/0/all/action/0/latest?page="
    Dim driver As New ChromeDriver, Html As New HTMLDocument, genre$
    Dim post As HTMLDivElement, Iamp;, Ramp;

    For I = 1 To 3
        With driver
            .AddArgument "--headless"
            .get link amp; I
            Html.body.innerHTML = .ExecuteScript("return document.documentElement.outerHTML")
        End With
        For Each post In Html.getElementsByClassName("browse-movie-bottom")
            R = R   1: Sheets(1).Cells(R, 1) = post.getElementsByClassName("browse-movie-title")(0).innerText
        Next post
    Next I
    driver.Quit
End Sub
  

Я хотел бы получить такое же поведение при попытке использования Html.body.innerHTML в сочетании с IE, но оно выдает пустые экраны вместе с желаемым результатом:

 Sub FetchContent()
    Const link = "https://yts.am/browse-movies/0/all/action/0/latest?page="
    Dim IE As New InternetExplorer, Html As New HTMLDocument, genre$
    Dim post As HTMLDivElement, Iamp;, Ramp;

    For I = 1 To 4
        With IE
            .Visible = False
            .navigate link amp; I
            While .Busy Or .readyState < 4: DoEvents: Wend
            Html.body.innerHTML = .document.DocumentElement.outerHTML
        End With
        For Each post In Html.getElementsByClassName("browse-movie-bottom")
            R = R   1: Sheets(1).Cells(R, 1) = post.getElementsByClassName("browse-movie-title")(0).innerText
        Next post
    Next I
    IE.Quit
End Sub
  

Пустой экран, который появляется при каждой разбивке на страницы в случае IE комбинации с Html.body.innerHTML :

Я пытаюсь протестировать ваш код с помощью IE и обнаруживаю, что могу устранить проблему.

Я обнаружил, что приведенная ниже строка вызывает эту проблему.

Html.body.innerHTML = .document.documentElement.outerHTML

Ниже приведена измененная версия вашего кода, в которой устранена эта проблема.

 Sub FetchContent1()
    Const link = "https://yts.am/browse-movies/0/all/action/0/latest?page="
    Dim IE As New InternetExplorer, Html As New HTMLDocument, genre$
    Dim post As HTMLDivElement, Iamp;, Ramp;

    For I = 1 To 4
        With IE
            .Visible = False
            .navigate link amp; I
            While .Busy Or .readyState < 4: DoEvents: Wend

            For Each post In .document.getElementsByClassName("browse-movie-bottom")
            R = R   1: Sheets(1).Cells(R, 1) = post.getElementsByClassName("browse-movie-title")(0).innerText
        Next post
        End With

    Next I
    IE.Quit
End Sub
  

Вывод в IE 11:

Теперь он не откроет ни одной пустой страницы в IE.