Добавить определенный URL-адрес с веб-страницы в список

Вопрос:

Привет всем, я пытаюсь захватить определенные ссылки с сайта и добавить их в список.

У меня две проблемы:

  1. При попытке добавить URL-адрес в список, он будет добавлять всю строку html, а не только URL-адрес. Как я могу добавить URL?

  2. В списке ничего не отображается. В соответствии с приведенным ниже кодом он должен работать. И добавление URL-адресов в список.

Вот код im, используемый для захвата ссылок:

       Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("DIV")
For Each curElement As HtmlElement In theElementCollection
If curElement.OuterHtml.Contains("active_scanner") Then
If curElement.OuterHtml.Contains("http://scanner.chad.com/SweScanner/") Then
Dim data As String = curElement.OuterHtml
data = data.Substring(data.IndexOf("http://scanner.chad.com/SweScanner/"))
If Not ListBox1.Items.Contains(data) Then ListBox1.Items.Add(data)
Label4.Text = "Added 1 URL."
End If
Else

End If

И вот источник веб-сайта:

<div class="content">
<div class="content-header"><span class="script">Active</span> Scanner</div>
<div class="section" id="active_scanner">
<ul>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb1">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb2">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb3-">This url will be grabbed </a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb4">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb5">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb6">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb7">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb8">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb9">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb10">This url will be grabbed</a></li>
<li><a href="http://scanner.chad.com/SweScanner/testing-vb11">This url will be grabbed</a></li>
</ul>
</div>

Пожалуйста, вы можете помочь мне здесь. Благодаря Чаду

Лучший ответ:

Попробуй это

    Dim i As Integer = 0
    For Each Link As HtmlElement In WebBrowser1.Document.Links()
        i += 1
        If Link.OuterHtml.Contains("scanner.chad.com/SweScanner/testing") Then
            ListBox1.Items.Add(i & ". " & Link.InnerHtml & ": " & Link.OuterHtml)
            Debug.Print(i - 1 & " " & Link.OuterHtml)
        End If
    Next

Оцените статью
TechArks.Ru
Добавить комментарий