Private Function SimplePostRequest(ByVal url As String, ByVal Parameters As _
  String) As String
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), _
        HttpWebRequest)
        Dim b() As Byte = System.Text.Encoding.ASCII.GetBytes(Parameters)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.ContentLength = b.Length
        req.KeepAlive = False
        Dim out As IO.Stream = req.GetRequestStream()
        out.Write(b, 0, b.Length)
        out.Close()
        Dim resp As WebResponse = req.GetResponse()
        Dim sr As New IO.StreamReader(resp.GetResponseStream())
        Dim res As String = sr.ReadToEnd()
        sr.Close()
        resp.Close()
        Return res
    End Function
 
    '// Anwendungsbeispiel:
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button9.Click
        Debug.WriteLine(Me.SimplePostRequest( _
        "http://sonne/tests/post-test.php", "para1=maywood¶2=vbarchiv"))
    End Sub

<?
  echo "para1: " . $_POST["para1"] . "\n";
  echo "para2: " . $_POST["para2"];
?>