Код | 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"
|