Imports System.Net

Imports System

​

Public Class Teste

​

Sub Main()

    ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

​

    Dim request As String = "{""Customer"":{""Address"":{""Street"":""Logradouro"",""Number"":""123"",""District"":""Higienopolis"",""ZipCode"":""90670090"",""Complement"":""Complemento"",""CityName"":""Porto Alegre"",""StateInitials"":""RS"",""CountryName"":""Brasil""},""Identity"":""04270435062"",""Name"":""Lucas Diogo"",""Email"":""lucas@safe2pay.com.br"",""Phone"":""51999999999""},""Products"":[{""Description"":""Teste"",""Quantity"":""2"",""UnitPrice"":""10.00""}],""PaymentMethods"":[{""CodePaymentMethod"":""1""},{""CodePaymentMethod"":""2""},{""CodePaymentMethod"":""3""},{""CodePaymentMethod"":""4""}],""DueDate"":""2019-09-19"",""Instruction"":""Instru\u00e7\u00e3o"",""DiscountAmount"":""5"",""Messages"":[""mensagem1"",""Mensagem 2""],""Reference"":""TESTE"",""PenaltyAmount"":""2.00"",""InterestAmount"":""2.00"",""Emails"":[""lucas@safe2pay.com.br""],""CallbackUrl"":""https:\/\/webhook.site\/8161f4bd-d850-4c53-9934-c86a50e6910b""}"

    Dim content As Byte() = System.Text.Encoding.Default.GetBytes(request)

    Dim url As String = "https://api.safe2pay.com.br/v2/SingleSale/Add"

    Dim client As WebClient = New WebClient()

    client.Headers.Add("Content-Type", "application/json")

    client.Headers.Add("X-API-KEY", "5325F24FD8A0402D8BF6362C489C66F7") 

        Dim response As String = client.UploadString(url, "POST", request)

        Console.WriteLine(response)

End Sub

​

End Class