Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class TEST5
    Dim peoples() As String
 
 
    Private Sub lstPeoples_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles lstPeoples.SelectedIndexChanged
        Dim sqlCells() As String = peoples(lstPeoples.SelectedIndex).Split(";")
        lblPeopleInfo.Text = "Wohnort: " & sqlCells(1) & vbNewLine & "Alter: " _
          & sqlCells(2)
    End Sub
 
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim httpRequest As HttpWebRequest = HttpWebRequest.Create( _
          "http://www.internetadresse.com")
        Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
        Dim reader As StreamReader = New StreamReader( _
          httpResponse.GetResponseStream)
        Dim httpContent0 As String = reader.ReadToEnd
 
        txtSourcecode.Text = httpContent0
 
        'TEIL00
        Dim TEIL00RegEx As New Regex("\>\<td\>\<span class=""s""\>(" & _
          "?<string00>(.*))parts available")
        Dim TEIL00 As String = TEIL00RegEx.Match(httpContent0).Groups( _
        "string00").ToString()
        lblAlles.Text = "TEIL00: " & TEIL00
        ListBox1.Items.Add("TEIL00: " & TEIL00)
 
        Dim peopleRegEx As New Regex("\>\<td\>\<span class=""s""\>(" & _
          "?<string00>(.*))\/span")
 
        Dim sqlcollection As String = peopleRegEx.Match(httpContent0).Groups( _
          "string00").ToString()
        peoples = sqlcollection.Split(",")
 
        For Each sqlLine In peoples
            Dim sqlCells() As String = sqlLine.Split(";")
 
            lstPeoples.Items.Add(sqlCells(0))
        Next
 
        lblNachricht.Text = ("Abfragen erfolgreich!")
 
    End Sub
 
 
    Private Sub TEST5_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class