Ссылки со страницы

На форму кидаем:

  • Button
  • ListBox
  • WebBrowser

В WebBrowser пишите любой сайт, я взял https://ya.ru/

Ну и сам код:

Dim H As HtmlElementCollection = WebBrowser1.Document.Body.GetElementsByTagName("a")
For Each Url As HtmlElement In H
ListBox1.Items.Add(Url.GetAttribute("href"))
Next

Также можно получить, как ссылку так и текст к ней.

ListBox1.Items.Add(Url.GetAttribute("href") & "|" & Url.InnerHtml)

URL 300x214 Ссылки со страницы

  Метки:
  Евгений
  Просмотров: 6 042
  Запись опубликована в 07:12

Есть что сказать? Тогда действуй!