Dim request As HttpWebRequest = DirectCast(WebRequest.Create(href), HttpWebRequest)
        request.Method = "POST"
        request.UserAgent = UserAgent
        request.Referer = Referer
        request.ContentType = "application/x-www-form-urlencoded;"
        request.Headers.Add("Cache-Control", "no-store, no-cache")
        request.Headers.Add("Pragma", "no-cache")
        request.ContentLength = postData.Length
        Dim writer As New StreamWriter(request.GetRequestStream(), System.Text.Encoding.Default)

        writer.Write(postData)
        writer.Close()

        Dim stream As Stream = request.GetResponse().GetResponseStream()
        Dim reader As New StreamReader(stream, System.Text.Encoding.Default, True)
        Dim s As String = ""

        retVal = reader.ReadToEnd

 Dim Referer As String
 Dim UserAgent As String = "Mozila/5.O (Windows; U; Windows NT 5.1; ru; rv:1.9.0.15) Gecko/2OO912O2O8 Firefox/3.O.16"
    
Dim href As String = "http://localhost/ppp.php?id=гет_запросик"
Dim postData As String = "id=пост_запрос"
Dim retVal As String

Страница проверки <br>
<hr>
<?

echo(iconv('utf-8', 'windows-1251', $_POST["id"]));
echo(iconv('utf-8', 'windows-1251', $_GET["id"]));
//echo($_GET["id"]);
//echo($_POST["id"]);
echo("<hr>");
echo("реферер = ".$_SERVER["HTTP_REFERER"]);
echo("<hr>");
echo("браузер = ".$_SERVER["HTTP_USER_AGENT"]);

?>

Страница проверки <br>
<hr>
гет_запросик;<hr>реферер = <hr>браузер = Mozila/5.O (Windows; U; Windows NT 5.1; ru; rv:1.9.0.15) Gecko/2OO912O2O8 Firefox/3.O.16