Submit data to designated API endpoints.

Question

User944339287 posted

Hi guys.. can help me to see what's wrong to my code?

i'm not able to submit data to designated API endpoints.

    Private Function registration() As Boolean

        Dim serviceUrl As String = "https://mydomain.com/api/registration"
        Dim input As Object = New With { _
                        .APIKey = "b7f3ac51f3a9c-043ed53-4453e0-873-2c151f0cf", _
                        .FullName = "Tony Stark", _
                        .Username = "[e-mail]", _
                        .Password = "qwert123" _
        }

        Dim inputJson As String = (New JavaScriptSerializer()).Serialize(input)

        Dim httpRequest As HttpWebRequest = DirectCast(WebRequest.Create(New Uri(serviceUrl)), HttpWebRequest)
        httpRequest.Accept = "application/json"
        httpRequest.ContentType = "application/json"
        httpRequest.Method = "POST"

        Dim bytes As Byte() = Encoding.UTF8.GetBytes(inputJson)

        Using stream As Stream = httpRequest.GetRequestStream()
            stream.Write(bytes, 0, bytes.Length)
            stream.Close()
        End Using

        Using httpResponse As HttpWebResponse = DirectCast(httpRequest.GetResponse(), HttpWebResponse)
            Using stream As Stream = httpResponse.GetResponseStream()
                Me.lbl_result.Text = (New StreamReader(stream)).ReadToEnd()
            End Using
        End Using

    End Function

Parameters: (guideline)

JSON format for input:
{
“APIKey”: ”b7f3ac51f3a9c-043ed53-4453e0-873-2c151f0cf”
“FullName”: ”Tony Stark”
“Username”: “[e-mail]”
“Password”: ”qwert123”
}

API Responses:
 
Success: { ResponseCode: 1, Status: “Success”, Message: “Account has been created successfully!” } 

Error : { ResponseCode: 0, Status: “Failed”, Message: “Registration Failed.” }