VB.NET - Salesforce POST 请求返回 400 错误请求错误

Question

注意 : 在此之前我从未编写过 vb.net 代码。我已经用谷歌搜索了一个解决方案，但没有找到任何有效的方法。

我正在尝试从 Salesforce 获取访问 token 。 下面的代码昨天才工作 .而且我不知道为什么它今天不起作用。我尝试将内容类型添加为 应用程序/x-www-form-urlencoded 但它也没有工作。当我使用 curl 时，我可以获得访问 token 。此外，我还可以使用谷歌浏览器中的高级休息客户端获取访问 token 。为什么它返回 400 Bad Request 的任何想法未知错误重试您的请求 ?

Imports System.Collections.Specialized
Imports System.Net
Imports System.Text

Module Module1

Sub Main()
    Dim clientId As String = "clientId"
    Dim clientSecret As String = "clientSecret"
    Dim redirectUri As String = "https://test.salesforce.com"
    Dim environment As String = "https://test.salesforce.com"
    Dim tokenUrl As String = ""
    Dim username As String = "username@salesforce.com"
    Dim password As String = "passwordtoken"
    Dim accessToken As String = ""
    Dim instanceUrl As String = ""

    Console.WriteLine("Getting a token")

    tokenUrl = environment + "/services/oauth2/token"
    Dim request As WebRequest = WebRequest.Create(tokenUrl)

    Dim values As NameValueCollection = New NameValueCollection()
    values.Add("grant_type", "password")
    values.Add("client_id", clientId)
    values.Add("client_secret", clientSecret)
    values.Add("redirect_uri", redirectUri)
    values.Add("username", username)
    values.Add("password", password)

    request.Method = "POST"

    Try
        Dim client = New WebClient()
        Dim responseBytes As Byte() = client.UploadValues(tokenUrl, "POST", values)
        Dim response As String = Encoding.UTF8.GetString(responseBytes)
        Console.WriteLine(response)
        Console.ReadKey()
    Catch ex As Exception
        Console.WriteLine(ex.Message)
        Console.WriteLine("Press any key to close")
        Console.ReadKey()
    End Try

End Sub

End Module

Answer 1

好吧，显然问题是关于 TLS 版本不匹配。所有 Salesforce 沙盒都拒绝 TLS 1.0 连接。我们的 vb.net 测试代码使用 TLS 1.0，因此返回错误。如果 Salesforce 能返回更好的错误代码，那就太好了。

我需要做的就是在代码块的顶部添加一行代码:

ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls11