| Код |
Public Class Form1
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim H As HtmlElementCollection = WebBrowser1.Document.Body.GetElementsByTagName("a")
For Each Url As HtmlElement In H
ListBox1.Items.Add(Url.GetAttribute("href"))
Next
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strimrid As New StreamReader( "http.txt", System.Text.Encoding.GetEncoding(1251))
Dim v2 As String = InputBox("Загрузить из http.txt", , strimrid.ReadLine()) ' читать по строкам файла
WebBrowser1.Navigate(v2) 'Вводим любой сайт из http.txt
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
End Class
|
Код рабочий, но мне надо, что бы в ListBox1 выводились url, все кроме содержащих "ya" |