PayPal Get Access Token vb.net Запрос был прерван: не удалось создать безопасный канал SSL / TLS - PullRequest
Новая
       14

PayPal Get Access Token vb.net Запрос был прерван: не удалось создать безопасный канал SSL / TLS

0 голосов
/ 12 июня 2018

У меня есть несколько вопросов по поводу вызова API доступа к токену PayPal, ниже приведен мой код: 

Public Function testAPI() As String
    Dim data As StringBuilder
    Dim byteData() As Byte
    Dim request As HttpWebRequest
    Dim response As HttpWebResponse = Nothing
    Dim postStream As Stream = Nothing
    Dim reader As StreamReader
    Dim Result As String = ""
    request = DirectCast(WebRequest.Create("https://api.sandbox.paypal.com/v1/oauth2/token"), HttpWebRequest)
    request.Headers.Add("Username", "XXXXXXXXXX")
    request.Headers.Add("Password", "XXXXXXXXXX")
    data = New StringBuilder("{""grant_type"":""client_credentials""}")
    request.ContentType = "application/x-www-form-urlencoded"
    request.Method = WebRequestMethods.Http.Post
    byteData = UTF8Encoding.UTF8.GetBytes(data.ToString())
    request.ContentLength = byteData.Length
    postStream = request.GetRequestStream()
    postStream.Write(byteData, 0, byteData.Length)
    If Not postStream Is Nothing Then postStream.Close()
    response = DirectCast(request.GetResponse(), HttpWebResponse)
    reader = New StreamReader(response.GetResponseStream())
    Result = reader.ReadToEnd().ToString
    Return Result
End Function
  1. Правильно ли я передаю имя пользователя и пароль?
  2. Я правильно передаю "grant_type": "client_credentials"?

  3. Я получаю сообщение об ошибке: Запрос был прерван: Не удалось создать безопасный канал SSL / TLS.Я попытался добавить код, который искал в Google: 

    ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
request.ProtocolVersion = HttpVersion.Version11

Но все равно не получилось и выдает то же сообщение об ошибке.Пожалуйста, помогите.

...