Запрос в Visal Basic.NET(Очень интересный код)

[reyn90]

Сообщение от alexBlack

Попробуйте:

 Dim S As String = "&name=" & HttpUtility.UrlEncode("русские символы") & "&bt=ok"

// Если будете пробовать в консоли, нужно добавить в Reference System.Web

Я попробовал этот метод:

Dim S As String = "&name=" & HttpUtility.UrlEncode("русские символы") & "&bt=ok"

и мне бейсик пишет что HttpUtility необъявлен.
Как его объявить? Я НЕ в консоли работаю.
Ещё у меня в ответ приходит из базы где имя на русских символах вопросики(????????), а через EnternetExplorer приходит нормальное имя из русских символов.

[alexBlack]

[QUOTE=reyn90;293420]...и мне бейсик пишет что HttpUtility необъявлен.
Как его объявить?
[QUOTE]

Imports System.Web

На будущее. Нажимаем F1 на HttpUtility, смотрим в каком пространстве имен объявлено (в самом конце страницы - System.Web Namespace), подключаем. В некоторых случаях кроме объявления Imports требуется добавить соответствующий компонент - в Solution Explorer жмем правую клавишу, выбираем Add Reference, ищем пакет System.Web, Ok.

Ещё у меня в ответ приходит из базы где имя на русских символах вопросики(????????), а через EnternetExplorer приходит нормальное имя из русских символов.

Думаю, нужно указать кодировку в StreamReader:

Dim r As StreamReader = New StreamReader(data, System.Text.Encoding.ASCII)

[reyn90]

На будущее. Нажимаем F1 на HttpUtility, смотрим в каком пространстве имен объявлено (в самом конце страницы - System.Web Namespace), подключаем. В некоторых случаях кроме объявления Imports требуется добавить соответствующий компонент - в Solution Explorer жмем правую клавишу, выбираем Add Reference, ищем пакет System.Web, Ok.

Всё работает. В базу отправляется закодированый текст, прям как из веб браузера.
Для ответа использую

Dim r As StreamReader = New StreamReader(data, System.Text.Encoding.ASCII)

Тоже не выбаёт ошибок, только он теперь не может авторизовать меня. Пишет что я гость. У меня Response приходит в TextBox. Пишет нормально, но как только создаю отчёт в формате html, то тут ??????

[reyn90]

Вот как обошол ошибку авторизации:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim request As WebRequest = WebRequest.Create("http://localhost/www.warez.ru/")
        request.Credentials = CredentialCache.DefaultCredentials
        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"

        Dim name As String
        name = HttpUtility.UrlEncode(TextBox3.Text) 'C этим кодом авторизует, но отчёт с ?????
        'name = TextBox3.Text ' C этим кодом не авторизует     
   Dim S As String = "&user=" & name & "&bt=submit"
        request.ContentLength = S.Length
        Dim w As StreamWriter = New StreamWriter(request.GetRequestStream(), System.Text.Encoding.ASCII)
        w.Write(S)
        w.Close()

        Dim response As WebResponse = request.GetResponse()
        Dim data As Stream = response.GetResponseStream
        Dim r As StreamReader = New StreamReader(data) 'System.Text.Encoding.Unicode)
        'Dim r As StreamReader = New StreamReader(data)

        Dim text As String = r.ReadToEnd()
        HttpUtility.UrlEncode(text)
        TextBox2.Text = text

        response.Close()

Но отчёт все ещё остался с вопросиками

[reyn90]

Всё нашол ошибку и исправил!