Public Function MakeRequest(pBaseUrl As String, pMetodo As String, pToken As String, pJson As String) As MktApiResponse
Try
Dim request As New WebClient
request.Headers.Add("content-type", "application/json")
request.Headers.Add("Authorization", "Basic " & pToken)
If Strings.InStrRev(pBaseUrl, "/") = 1 Then
request.BaseAddress = pBaseUrl
Else
request.BaseAddress = pBaseUrl & "/"
End If
Dim response As String = Encoding.ASCII.GetString(request.UploadData(pMetodo, Encoding.Default.GetBytes(pJson)))
Dim js As New JavaScriptSerializer()
Dim ApiResponse As MktApiResponse = js.Deserialize(Of MktApiResponse)(response)
Return ApiResponse
Catch ex As Exception
Dim BadApiResponse As New MktApiResponse
BadApiResponse.Message = ex.Message
BadApiResponse.HasError = True
BadApiResponse.Code = -1
Return BadApiResponse
End Try
End Function