Obter todos os Elementos de uma página HTml

[Lukas S.]

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("www.youtube.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

        For Each webpageelement As HtmlElement In allelements

            ListBox1.Items.Add(webpageelement.GetAttribute("src"))
        Next
        For i As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items.Item(i) = " ".ToString Then
                ListBox1.Items.Remove(i)
            End If
        Next
    End Sub



End Class

Soo... O que eu pretendo fazer é poder obter todos os elementos de uma página para mais tarde conseguir fazer manipulação de botôes online podendo assim talvez até mesmo criar um Bot que necessito 😁

O problema... Bem o problema é que muitos dos elementos bem não tem source entao eu nao consigo tirar o Branco ... já tentei com o  "  If ListBox1.Items.Item(i) = " ".ToString Then " mas nada consegui ... se alguém poder ajudar pfv dê ai a sua opiniao

[ribeiro55]

" ".ToString não faz sentido.

" " já é uma explícitamente string.

Como estás a apanhar todos os elementos, e nem todos têm o atributo, deverias antes tentar perceber o que é que é devolvido nesses casos.

Ainda assim, experimenta com trim:

        For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1
            If ListBox1.Items.Item(i).Trim = String.Empty Then
                ListBox1.Items.Remove(i)
            End If
        Next

[Lukas S.]

Estranho ribeiro porque eu tentei por sem ser .ToString e causava erro

[ribeiro55]

Não era, garantidamente, dali.

Quanto muito, terias de colocar:

ListBox1.Items.Item(i).ToString = " "

Porque o objecto que espetas para a listbox pode não ter representação decente.

Pensando bem, até é melhor colocares o .ToString como te digo acima: no Item(i)

Já experimentaste com o Trim ?

[Lukas S.]

já exprimentei e nada deu ... estranho nunca tinha ouvido falado do trim ... pra que serve ?

[Andrepereira9]

Boas

Tens 3 opções de Trim:

-> Trim serve para remover espaços no inicio e no fim de uma string.

-> TrimEnd remove os espaços no final da string

-> TrimStart remove espaços no inicio da string

[ribeiro55]

já exprimentei e nada deu ... estranho nunca tinha ouvido falado do trim ... pra que serve ?

Dar até dá. Só não reparei que estavas a utilizar .Remove(i).

Um dos grandes problemas do pessoal com as listbox é não entenderem que os items não são forçosamente Strings.

É mantida uma coleção de objectos.

Ao fazeres .Remove(i), ele vai tentar eliminar um item do tipo Integer com o número i, ou seja, não elimina coisa nenhuma.

Podes resolver o problema com RemoveAt(i), que já indica explicitamente que é o índice e não o item:

For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1
    If ListBox1.Items.Item(i).Trim = String.Empty Then
        ListBox1.Items.RemoveAt(i)
    End If
Next

Deixo-te com uma alternativa que te poupa o teres de fazer dois conjuntos de iteração:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate("www.youtube.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        For Each webpageelement As HtmlElement In WebBrowser1.Document.All
            Dim srcatt As String = webpageelement.GetAttribute("src")
            If Not srcatt.Trim = String.Empty Then ListBox1.Items.Add(srcatt)
        Next
    End Sub
End Class