HttpWebRequest не отправляет набор параметров заголовков - PullRequest
Новая
       48

HttpWebRequest не отправляет набор параметров заголовков

0 голосов
/ 11 апреля 2020

Я искал и нашел много похожих постов здесь и на других сторонах, но я все еще не могу исправить свою проблему, я не вижу параметры заголовка, установленные так, как я хочу. Мне нужно сделать это, чтобы использовать для API SDK Paypal.

Это мой код 

<%@ Page Language="VB" Debug="true" aspcompat=true%>
<%@ Import Namespace="MySql.Data.MySqlClient" %>
<%@ Import Namespace="PayPal.Api" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>

<%
    'Get accessToken
    Dim config = ConfigManager.Instance.GetProperties()
    Dim accessToken = New OAuthTokenCredential(config).GetAccessToken()
    response.write("accessToken "+accessToken)
    Dim request as HttpWebRequest = DirectCast(WebRequest.Create("http://www.contoso.com/PostAccepter.aspx"), HttpWebRequest)
        Dim postData as string= "This is a test that posts this string to a Web server."
        Dim byteArray= Encoding.UTF8.GetBytes(postData)

    ' Set header.  
        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
    request.Referer="http://www.tryyyy.com"
    request.UserAgent="Mozilla/5.0 (Macintosh; Intel Mac OS X x.y; rv:42.0) Gecko/20100101 Firefox/42.0"
        request.Headers.Add("Authorization", accessToken)
    request.Headers.Add("username", "letstry")
    request.Headers.Add("password", "letstryagain")

        ' Get the request stream.  
        Dim dataStream as Stream= request.GetRequestStream()
        ' Write the data to the request stream.  
        dataStream.Write(byteArray, 0, byteArray.Length)
        ' Close the Stream object.  
        dataStream.Close()
        ' Get the response.  
        Dim resp as WebResponse = request.GetResponse()        
        ' Get the stream containing content returned by the server.  
        dataStream = resp.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.  
        Dim reader as StreamReader= new StreamReader(dataStream)
        ' Read the content.  
        Dim responseFromServer as string  = reader.ReadToEnd()
        ' Display the content.  
    response.write(responseFromServer)
        ' Close the response.  
        resp.Close()
%>

В результате у меня есть AcessToken Brear и страница, которую я вызываю (http://www.contoso.com/PostAccepter.aspx) Но если я проверю с помощью Fiddler или с сетью консоли chrome, или что-то еще, я не увижу установленные параметры моего заголовка. В качестве изображения я вижу GET вместо POST и никаких обновлений об этом, я вызываю эту страницу в localhost с моего сервера.

Что я не понимаю? Что не так? Спасибо

enter image description here

...