Visual Basic

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