Удаленный сервер возвратил ошибку: (401) Несанкционированный. VB - PullRequest
Новая
       66

Удаленный сервер возвратил ошибку: (401) Несанкционированный. VB

0 голосов
/ 14 февраля 2020

Я получаю ошибку в

Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)

, говоря

Удаленный сервер возвратил ошибку: (401) Не авторизован .

Пожалуйста, помогите 

Dim jsonStringS As String = "{""no"": ""69696969696""}"
Dim parameter = Encoding.UTF8.GetBytes(jsonString)
Dim HandsomeURL As New Uri("https://sample@handsome.org/sendtoprettygirl?no=69696969696")
Dim origRequest = GetRequest(HandsomeURL , parameter, "application/json", "GET")
Private Function GetRequest(ByVal uri As Uri, ByVal jsonDataBytes As Byte(), ByVal contentType As String, ByVal method As String) As String
        Dim responseResult As String
        Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(uri), HttpWebRequest)
        request.Method = method
        request.UseDefaultCredentials = True
        request.PreAuthenticate = True
        request.Proxy.Credentials = CredentialCache.DefaultCredentials
        request.Headers("Authorization") = "Bearer" & Acccess_Token
        request.Headers("EmailAddress") = "sample@handsome.org"
        request.Headers("AccountNo") = "00-00-00000-00000-00"
        request.Headers("AccountID") = "HandsomeID"
        request.ContentType = contentType


        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)

ВОЗВРАТИТЕ функцию завершения ответа

...