Dim request As HttpWebRequest
Dim response As HttpWebResponse
Dim str, str2 As IO.Stream
Dim buffer As String
Dim data As Byte() = (...).GetBytes 'hier welche Daten auch immer gesendet 
' werden sollen
request = Net.WebRequest.Create(URL)
request.Method = "POST"
request.Accept = "*/*"
request.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, "de")
request.Headers.Add("UA-CPU", "x86")
request.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, "gzip, deflate")
request.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0) "
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = data.Length
str2 = request.GetRequestStream()
str2.Write(data, 0, data.Length)
str2.Close()
 
response = request.GetResponse
str = response.GetResponseStream()
If (response.ContentEncoding.ToLower().Contains("gzip")) Then
  str = New IO.Compression.GZipStream(str, _
    IO.Compression.CompressionMode.Decompress)
ElseIf (response.ContentEncoding.ToLower().Contains("deflate")) Then
  str = New IO.Compression.DeflateStream(str, _
    IO.Compression.CompressionMode.Decompress)
End If