Как отправить POST запрос, получить ответ и закончить соед.

[KingManiya]

Всё что я нашел это

Код: Выделить всё

Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create("www.sayt.ru")
        'myHttpWebRequest.Proxy = New WebProxy("127.0.0.1", 8888)
        myHttpWebRequest.Method = "POST"
        myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"
        Dim sQueryString As String = "lg=" & Player.Text & "&pw=" & Password.Text & "&act=2" ' Параметры POST запроса.
        Dim ByteArr As Byte() = Encoding.GetEncoding(1251).GetBytes(sQueryString)
        myHttpWebRequest.ContentLength = ByteArr.Length()
        myHttpWebRequest.GetRequestStream().Write(ByteArr, 0, ByteArr.Length)

        Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse()
        Dim myStreamReader As New StreamReader(myHttpWebResponse.GetResponseStream, Encoding.Default)
        TextBox1.Text = myStreamReader.ReadToEnd()
    End Sub
End Class

Так вот после нажатия кнопки приходит ответ и всё вроде бы хорошо, но если второй раз нажать на кнопку то появляеться ошибка. Как я понял это из за незактыртого соеденения. Так вот как его закрыть что бы вновь и вновь отправлять запросы.

P.S.
Тут используеться HttpWebRequest. Но я где то видел смутную инфу о WebRequest. Через него тоже вроде можно отослать post запрос. Не могли бы вы если что покозать пример и на нем.

[Williams]

Можно еще WebCleint.UploadValues.

[KingManiya]

А поподробней можно? Что это и как этим пользоваться?

[MIT]

Тебе HttpWebRequest вполне может помочь.

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

Код: Выделить всё

Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create("http:\\www.yandex.ru")
        'myHttpWebRequest.Proxy = New WebProxy("127.0.0.1", 8888)
        myHttpWebRequest.Method = "POST"
        myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"
        Dim sQueryString As String = "lg=" & 1 & "&pw=" & 2 & "&act=2" ' Параметры POST запроса.
        Dim ByteArr As Byte() = Encoding.GetEncoding(1251).GetBytes(sQueryString)
        myHttpWebRequest.ContentLength = ByteArr.Length()
        myHttpWebRequest.GetRequestStream().Write(ByteArr, 0, ByteArr.Length)

        Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse()
        Dim myStreamReader As New StreamReader(myHttpWebResponse.GetResponseStream, Encoding.Default)
        TextBox1.Text = myStreamReader.ReadToEnd()
    End Sub
End Class

Автор, дай реальный код, который у тебя вызывает ошибку.

[KingManiya]

Я и дал его.
Я нажимаю на кнопку. Получаю данные. Вроде бы всё хорошо. Нажимаю кнопку второй раз и тут ошибка. коротко "сервер разорвал соединение".

[MIT]

Сколько я не нажимал - ни одной ошибки не возникло. Что за сервер-то хоть, сайт можешь назвать?

[KingManiya]

http://www.tanchiki.ru/online/ver2/uplmap.php

Так. Проблему решил.
keepalive=false
Спасибо за попытку помочь.

Вот код для людей у которых может возникнуть ошибка с post

Код: Выделить всё

Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
    Dim query As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        query = "lg=" & Player.Text & "&pw=" & Password.Text ' Параметры POST запроса.
        TextBox1.Text = PostData(query)
    End Sub

    Public Function PostData(ByVal data As String) As String
        Dim request As HttpWebRequest = HttpWebRequest.Create("http://www.server.ru/") ' Сервер для подключения
        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"
        request.KeepAlive = False
        request.ContentLength = data.Length

        Dim writer As New StreamWriter(request.GetRequestStream(), Encoding.Default)
        writer.Write(data)
        writer.Close()

        Dim stream As Stream = request.GetResponse().GetResponseStream()
        Dim reader As New StreamReader(stream, Encoding.Default)
        Dim response As String = reader.ReadToEnd

        Return response
    End Function
End Class