Anjie Lees Ответов: 1

Запрос был прерван: запрос был отменен. Vb.net


Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://api.test.payadvantage.com.au/v3/token")
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = 94
request.KeepAlive = True
request.ContinueTimeout = 10000
request.Host = "api.test.payadvantage.com.au"
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Dim outgoingQueryString As NameValueCollection = HttpUtility.ParseQueryString(String.Empty)
outgoingQueryString.Add("grant_type", "password")
outgoingQueryString.Add("username", username)
outgoingQueryString.Add("password", password)
 Dim postBytes As Byte() = New UTF8Encoding().GetBytes(outgoingQueryString.ToString())


Try
    Using requestStream = request.GetRequestStream()
      requestStream.Write(postBytes, 0, postBytes.Length)
End Using
Catch ex As Exception

    Dim MessageInput as string = ex.Message
    Dim MessageOutput as String = Regex.Replace(MessageInput, "'", " ")
    tblBillingAccount.GetControl(Of MTTextBox)("ISOScope").Value = "Auth Fail " + MessageOutput
End try

Try
     Using response = CType(request.GetResponse(), HttpWebResponse)
     accessToken = response.StatusDescription
End Using
Catch ex As Exception
    Dim MessageInput as string = ex.Message
    Dim MessageOutput as String = Regex.Replace(MessageInput, "'", " ")
    tblBillingAccount.GetControl(Of MTTextBox)("ISONotApplicable").Value = "Auth Fail " + MessageOutput

End try


Что я уже пробовал:

Некоторые из параметров включены в документацию Pay Advantage. то есть сохранить живым и содержание длины. Я пробовал несколько протоколов безопасности, и это единственный, который не возвращает ошибку.

Срочно нужна помощь, чтобы довести этот проект до конца. Заранее спасибо.

MadMyche

И какая линия генерирует эту ошибку?

1 Ответов

Рейтинг:
1

Anjie Lees

Using requestStream = request.GetRequestStream()


Richard Deeming

Если вы хотите ответить на комментарий, нажмите кнопку "ответить" рядом с комментарием.

Не опубликуйте свой ответ как "решение" вашего вопроса.