Как сделать POST запрос к серверу - Visual Basic .NET - Ответ 3024844

' обновление данных с сервера
        Label10.Text = "Соединение с сервером"
        Application.DoEvents() ' ждем пока система отрисует изменения в text
 
        Dim postData As String = "id=" & MainForm.clinicN & "&code=" & MainForm.CPU ' Данные для POST запроса
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        Dim request As WebRequest = WebRequest.Create(MainForm.Server & "a-animals") ' POST запрос
 
        With request
            .Method = "POST"
            .ContentType = "application/x-www-form-urlencoded"
            .ContentLength = byteArray.Length
        End With
 
        Dim dataStream As IO.Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()
 
        ' получение данных от сервера
        Label10.Text = "Получение данных"
        Application.DoEvents() ' ждем пока система отрисует изменения в text
        Dim response As WebResponse = request.GetResponse()
        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        reader.Close()
        dataStream.Close()
        response.Close()