Dim textpisbma As String = "ewttауцауц135АУАУ!№;%:^"
        Dim postData As String = "hoz9in=" & Uri.EscapeDataString(hoz9in) & "&rab=" & rab & "&text=" & Uri.EscapeDataString(textpisbma)
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse
        request = CType(WebRequest.Create("http://site/sender.php"), HttpWebRequest)
        request.Accept = "image/gif, image/x-xbitmap, image/jpeg, 
                           image/pjpeg, application/x-shockwave-flash,
                           application/vnd.ms-excel, 
                           application/vnd.ms-powerpoint,
                           application/msword, */*"

        request.Headers.Add("Accept-Language", "ru")
        request.ContentType = "application/x-www-form-urlencoded"
        request.Method = "POST"
        request.AllowAutoRedirect = False
        Dim requestStream As Stream
        requestStream = request.GetRequestStream()
        Dim postBytes As Byte() = System.Text.Encoding.GetEncoding(65001).GetBytes(postData)
        requestStream.Write(postBytes, 0, postBytes.Length)
        requestStream.Close()

Dim result As IAsyncResult = _
            CType(request.BeginGetRequestStream(AddressOf GetRequestStreamCallback, request), _
            IAsyncResult)

Dim response As HttpWebResponse = CType(request.EndGetResponse(asynchronousResult), _
           HttpWebResponse)