Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.tbLog.Clear()
        Dim zaehler As Integer 
        Do Until (zaehler = 20)
            Dim antwortseite As String
            antwortseite = getResults( _
              "http://localhost/antiquartwo/test-params.php", _
              "field-keywords=ASP.NET 2.0")
			' todo: verarbeiten der antwortseite
            ' anzeige der response in der GUI
			Me.tbLog.Text &= antwortseite
            zaehler = zaehler + 1
        Loop
        Me.Refresh()
    End Sub

 
    Function getResults(ByVal portalURI As String, ByVal suchbegriff As String) _
      As String
 
        Dim uri As New Uri(portalURI)
        'Dim data As String = "field-keywords=ASP.NET 2.0"
        Dim data As String = suchbegriff
        Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
        request.Method = WebRequestMethods.Http.Post
        request.ContentLength = data.Length
        request.ContentType = "application/x-www-form-urlencoded"
        Dim writer As New StreamWriter(request.GetRequestStream)
        writer.Write(data)
        writer.Close()
        Dim oResponse As HttpWebResponse = request.GetResponse()
        Dim reader As New StreamReader(oResponse.GetResponseStream())
        Dim tmp As String = reader.ReadToEnd()
        oResponse.Close()
        'Response.Write(tmp)
        getResults = tmp
    End Function