HRESULT Исключение: 0x800A01B6

В своем заявлении я открываю различные веб-страницы и получаю определенную информацию с сайта. До сих пор у меня не было никаких проблем. Я передаю массив с адресами страниц, которые я хочу получить.

При перелистывании первой страницы я не вижу ошибок, но когда это происходит на второй странице, я получаю следующую ошибку:

Не контролируется Исключение NotSupportedException из HRESULT: 0x800A01B6

Кто-нибудь знает, почему это может произойти?

Я приложил код

Sub ParsearWeb(ByRef icInformacionCine As InformacionCines)
        Dim iContPeliculas As Integer
        'Dim iContFormatos As Integer
        Dim iContHorarios As Integer
        iContPeliculas = 0
        iContHorarios = 0
        Dim iContador = 2
        Dim ienlaces = 0
        Dim objIE As New SHDocVw.InternetExplorerMedium
        Dim strTitulo As String = ""
        Dim arrEnlaces() As String = Nothing
        Dim strTipo As String = ""
        Dim strfecha = ""
        Dim strDia
        Dim strMes
        Dim strAnio
        Dim fecha As Date = Now
        'Dim arrHorarios() As String
        'Dim iCount As Integer
        objIE.Visible = True
        objIE.Navigate(icInformacionCine.strURLCartelera)
        WaitIEField(objIE, 0, "cartelera")
        For Each div In objIE.Document.GetElementsByTagName("div")
            If div.hasAttribute("id") Then
                If div.id = "cartelera" Then
                    For Each enlace In div.GetElementsByTagName("a")
                        If enlace.HasAttribute("href") Then
                            ReDim Preserve arrEnlaces(0 To ienlaces)
                            Dim strParteEnlace = enlace.getAttribute("href").ToString()
                            'Obtenemos la posición del último / de la cadena
                            Dim posicion As Integer
                            posicion = InStrRev(icInformacionCine.strURLCartelera, "/")
                            Dim nuevoLink = Mid(icInformacionCine.strURLCartelera, 1, posicion) + strParteEnlace
                            arrEnlaces(ienlaces) = nuevoLink.ToString
                            ienlaces = ienlaces + 1
                        End If
                    Next
                End If
            End If
        Next
        'objIE.Quit()
        'objIE = Nothing
        For Each nuevoenlace In arrEnlaces
            Dim objIE2 As New SHDocVw.InternetExplorerMedium
            objIE2.Visible = True

            objIE2.Navigate(nuevoenlace.ToString)
            'WaitIEField(objIE, 0, "efectotexto")
            Thread.Sleep(5000)
            objIE2.Stop()
            'Para obtener la fecha 
            For Each div In objIE2.Document.getElementsByTagName("div")
                If div.hasAttribute("id") Then
                    If div.id = "titulopelicula" Then
                        strTitulo = div.innertext
                    End If
                    If div.id = "barraotrodia" Then
                        For Each div3 In div.getElementsByTagName("div")
                            If div3.hasAttribute("id") Then
                                If div3.id = "formatodia" Then
                                    Dim strTempFecha = div3.innerText
                                    If strTempFecha = "HOY" Then
                                        strDia = Day(fecha).ToString
                                        strMes = Month(fecha).ToString
                                        strAnio = Year(fecha).ToString
                                        strfecha = strAnio + "-" + strMes + "-" + strDia
                                        'MsgBox(strfecha)
                                    ElseIf strTempFecha = "MAÑANA" Then
                                        fecha = (DateAdd(DateInterval.Day, 1, fecha))
                                        strDia = Day(fecha).ToString
                                        strMes = Month(fecha).ToString
                                        strAnio = Year(fecha).ToString
                                        strfecha = strAnio + "-" + strMes + "-" + strDia
                                        'MsgBox(strfecha)
                                    Else
                                        Dim arrTemp = Split(Trim(strTempFecha), "/")
                                        strfecha = arrTemp(2) + "-" + arrTemp(1) + "-" + arrTemp(0)
                                        'MsgBox(strfecha)
                                    End If
                                    ReDim Preserve icInformacionCine.ipPeliculas(0 To iContPeliculas)
                                    icInformacionCine.ipPeliculas(iContPeliculas).strFecha = strfecha
                                    icInformacionCine.ipPeliculas(iContPeliculas).strTitulo = strTitulo
                                End If

                                If div3.id = "posicionhoras" Then
                                    'MsgBox(div3.innertext)
                                    ReDim Preserve icInformacionCine.ipPeliculas(iContPeliculas).arrFormatos(0 To iContHorarios)
                                    icInformacionCine.ipPeliculas(iContPeliculas).arrFormatos(iContHorarios).strTipo = "Normal"
                                    icInformacionCine.ipPeliculas(iContPeliculas).arrFormatos(iContHorarios).strHorario = div3.innertext
                                    iContHorarios = iContHorarios + 1
                                End If
                            End If

                        Next
                        iContPeliculas = iContPeliculas + 1
                        iContHorarios = 0
                    End If
                End If

            Next
            objIE2.Quit()

        Next
        objIE.Quit()
        objIE = Nothing
        'Next
        Exit Sub

stackTrace указывает следующее:

в Microsoft.VisualBasic.CompilerServices. LateBinding.LateGet (Object o, Тип objType, Имя строки, Аргументы Object [], Имена параметров String [], Boolean [] CopyBack) в Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet (Экземпляр объекта, Тип типа, String MemberName, Object [ ] Arguments, String [] ArgumentNames, Type [] TypeArguments, Boolean [] CopyBack)

в EBInformationParser.ALANDALUS.ParsearWeb (InformationCines & icInformationCine) в C: \ XXXX \ WEBInformationParser \ xxxInformation.bars: строка 57 в WEBInformationParser.MainModule.Main () в C: \ xxxx \ WEBInformationParser \ WEBInformationParser \ MainModule.vb: строка 48 в системе. AppDomain._nExecuteAssembly (сборка Сборка, String [] арг) в Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly () в System.Threading.ExecutionContext.Run (ExecutionContext ExecutionContext, ContextCallback обратного вызова, объект состояния) в System.Threading.ThreadHelper.ThreadStart ()

0
задан 09.01.2017, 20:47
0 ответов

Я добился "упорядочивать это" оставляя больше времени выполнения для груза новой страницы, которая открывается. Надеясь на то, что загружается этикетка, откуда я получаю данные, и уже он не дает ошибку. Затруднение состоит в том, что в пробегании всех страниц он опаздывает некоторое время

0
ответ дан 03.12.2019, 17:48

Теги

Похожие вопросы