LLAMADA POST A SERVICIO

Necesitas referenciar a la dll Newtonsoft.Json.dll http://www.newtonsoft.com/json para deserialización de la respuesta al servicio (en json)

'Llamada post a: http://api.test.es/v1/post_insert_value para insertar los valores value1, value2, value3

    'Respuesta esperada: {"data":{"has_result":"yes"}}

    Public Class ContainerInsertResult

        Public data As InsertResult

    End Class

    Public Class InsertResult

        Public has_result As String

    End Class

    Sub post()

        Try

            Dim request As WebRequest = WebRequest.Create("http://api.test.es/v1/post_insert_value")

            request.Method = "POST"

            Dim postData As String = _

                "&value1=test" & _

                "&value2=test2" & _

                "&value3=test3"

            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)

            request.ContentType = "application/x-www-form-urlencoded"

            Dim response As WebResponse

            Dim dataStream As Stream

            dataStream = request.GetRequestStream()

            dataStream.Write(byteArray, 0, byteArray.Length)

            dataStream.Close()

            response = request.GetResponse()

            dataStream = response.GetResponseStream()

            Dim reader As New StreamReader(dataStream)

            Dim responseFromServer As String = reader.ReadToEnd()

            Dim parsedResponse As ContainerInsertResult = JsonConvert.DeserializeObject(Of ContainerInsertResult)(responseFromServer)

            Dim respuesta As InsertResult = parsedResponse.data

            MsgBox(respuesta.has_result)

        Catch ex As WebException

            If (ex.Status = WebExceptionStatus.ProtocolError) Then

                Dim responsee As WebResponse = ex.Response

                Using (responsee)

                    Dim httpResponse As HttpWebResponse = CType(responsee, HttpWebResponse)

                    Dim statusCode As HttpStatusCode = httpResponse.StatusCode

                    Dim myStreamReader As StreamReader = New StreamReader(responsee.GetResponseStream())

                    Using (myStreamReader)

                        Dim ResponseText As String = myStreamReader.ReadToEnd

                        MessageBox.Show(ResponseText)

                    End Using

                End Using

            End If

        End Try

    End Sub

LLAMADA GET A SERVICIO

Necesitas referenciar a la dll Newtonsoft.Json.dll http://www.newtonsoft.com/json para deserialización de la respuesta al servicio (en json)

'Llamada get a: http://api.test.es/v1/get_program_has_result?programId=test&programName=prueba

    'Respuesta esperada: {"data":{"has_result":"yes"}}

    Public Class ValidateResult

        Public has_result As String

    End Class

    Public Class ContainerValidateResult

        Public data As ValidateResult

    End Class

    Sub getResult()

        Try

            Dim webClient As New System.Net.WebClient

            Dim jsonString As String = webClient.DownloadString("http://api.test.es/v1/get_program_has_result?programId=test&programName=prueba")

            Dim respuesta As ContainerValidateResult = JsonConvert.DeserializeObject(Of ContainerValidateResult)(jsonString)

            MsgBox(respuesta.data.has_result)

        Catch ex As WebException

            If (ex.Status = WebExceptionStatus.ProtocolError) Then

                Dim responsee As WebResponse = ex.Response

                Using (responsee)

                    Dim httpResponse As HttpWebResponse = CType(responsee, HttpWebResponse)

                    Dim statusCode As HttpStatusCode = httpResponse.StatusCode

                    Dim myStreamReader As StreamReader = New StreamReader(responsee.GetResponseStream())

                    Using (myStreamReader)

                        Dim ResponseText As String = ""

                        ResponseText = myStreamReader.ReadToEnd()

                        ResponseText = ResponseText

                        MessageBox.Show(ResponseText)

                    End Using

                End Using

            End If

        End Try

    End Sub