condicionar el resultado de un bucle for

[i34a23]

Hola amigos, tengo un problema que me parte la cabeza. les dejo el codigo y les explico.

Código:

 For Each webpageelement As HtmlElement In allelements
                If webpageelement.GetAttribute("data-endpoint") = "/ajax/composerx/attachment/group/post/" Then
                    webpageelement.Focus()
                    webpageelement.InvokeMember("click")
                    Exit For
                End If
            Next

Ese pedazo de codigo funciona, el problema es que NO SIEMPRE existe el atributo indicado ahí "webpageelement.GetAttribute("data-endpoint") = /ajax/composerx/attachment/group/post/ " entonces cuando el atributo no existe el programa arroja una "unhandled exception"

Ese codigo se ejecuta dentro de un bucle, en diferentes paginas en cada iteración.

Lo que necesito es que si el bucle FOR no encuentra algo como webpageelement.GetAttribute("data-endpoint") = "/ajax/composerx/attachment/group/post/" entonces realice un end sub.

gracias por cualquier consejo.

[i34a23]

Me auto respondo, agregue una variable de tipo boolean al resultado, de esta forma compruebo si dentro del for existe el atributo. lo dejo por si a alguien le sirve.

Código:

Dim CheckElement As Boolean
            For Each webpageelement As HtmlElement In allelements
                If webpageelement.GetAttribute("data-endpoint") = "/ajax/composerx/attachment/group/post/" Then
                    webpageelement.Focus()
                    webpageelement.InvokeMember("click")
                    CheckElement = True
                    Exit For
                End If
            Next

            If CheckElement = False Then
                Timer1.Stop()
                Label5.Text = 0
                StartPublish(ActualCount + 1)
                Exit Sub
            End If

[agleiva]

Iniciado por i34a23

Me auto respondo, agregue una variable de tipo boolean al resultado

En realidad una forma más profesional de hacer eso es:

Código VB.Net:

Dim webPageElement = allelements.OfType(Of HtmlElement)
                                .FirstOrDefault(Function(x) x.GetAttribute("data-endpoint") = "/ajax/composerx/attachment/group/post/")
 
If webPageElement IsNot Nothing Then
    webPageElement.Focus()
    webPageElement.InvokeMember("click")
Else
    Timer1.Stop()
    Label5.Text = 0
    StartPublish(ActualCount + 1)
    Exit Sub
End If
 

Y por supuesto, mucho más profesional que todo eso sería usar C# o F#, en lugar de VB.Net.