Отобразить выборочные данные с сайта в форме - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Уважаемые админы и. Мне необходим Ваш совет: как отобразить выборочно информацию с сайта в форме (в виде текста, наверное)

Решение задачи: «Отобразить выборочные данные с сайта в форме»

textual
Листинг программы
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim req As HttpWebRequest = WebRequest.Create("https://www.google.com/")
        req.Timeout = 1000
        Dim stream1 As Stream = req.GetResponse().GetResponseStream()
        Dim reader1 As StreamReader = New StreamReader(stream1, Encoding.Default)
        Dim htmlResponse As String = reader1.ReadToEnd
        Dim browser1 As New WebBrowser
        browser1.ScriptErrorsSuppressed = True
        browser1.DocumentText = htmlResponse
        browser1.Document.Write(htmlResponse)
        stream1.Close()
        reader1.Close()
        Dim htmlDoc As HtmlDocument = browser1.Document
        ' И еще... Не знаю насколько это правильно, но без этого работало некорректно
        browser1.Dispose()
 
        For Each elementA As HtmlElement In htmlDoc.GetElementsByTagName("div")
            Label8.Text += elementA.OuterText & vbCrLf
        Next
End Sub

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы