Dim Anfrage As Net.HttpWebRequest
        Anfrage = CType(Net.WebRequest.Create( _
          "http://niklas-boesing.de/bot/bugmeldung.php"), Net.HttpWebRequest)
 
        Anfrage.Method = "POST"
        Anfrage.ContentType = "application/x-www-form-urlencoded"
 
        Dim Encoding As New System.Text.ASCIIEncoding
 
        Dim Text As String = "von=test&userid=test&e-mail=test&Text=test"
        Dim bytearray As Byte() = Encoding.GetBytes(Text)
        Anfrage.ContentLength = bytearray.Length
        Dim dataStream As IO.Stream = Anfrage.GetRequestStream()
        dataStream.Write(bytearray, 0, bytearray.Length)
        dataStream.Close()/code]
 
Und hier der serverseitige Code mit PHP:
 
 
<pre><code><?php
	$Von = $_POST['von'];
	$UserId = $_POST['userid'];
	$E-Mail = $_POST['e-mail'];
	$Text = $_POST['Text'];
 
	If($Wort != NULL AND $UserId != NULL AND $E-Mail !== NULL AND $Text !== NULL)
	{
			mail("Niklas-Boesing@t-online.de",",Bugmeldung: Suchbot","Text")
	}
?>