使用VB.NET向android模拟器发送通知得到错误401

Question

我正在编写 VB.NET 代码来向 android 模拟器发送通知。 我可以从 firebase 控件成功发送测试消息。 但是，当我尝试在本地计算机上通过 VB.NET 代码发送消息并收到错误消息“远程服务器返回错误：(401) 未经授权”时，它失败了。

我尝试查看以下链接： FCM (Firebase Cloud Messaging) Push Notification with Asp.Net并按照说明进行操作，但它仍然无法正常工作。

这是我的代码：

Imports System.Net
Imports Newtonsoft.Json

Public Class Notification

    Public Sub SendNotification(ByVal deviceIDList As List(Of String), ByVal title As String, ByVal bodyMsg As String)

        Dim fcmPath As String = "https://fcm.googleapis.com/fcm/send"
        Dim serverKey As String = "AIzaxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxoCAeI"
        Dim senderID As String = "35xxxxxxx37"

        Dim request As HttpWebRequest = CType(HttpWebRequest.Create(fcmPath), HttpWebRequest)
        With request
            .Method = "POST"
            .ContentType = "application/json"
            .Headers.Add(String.Format("Authorization: key={0}", serverKey))
            .Headers.Add(String.Format("Sender: id={0}", senderID))
        End With

        Using streamWriter = New StreamWriter(request.GetRequestStream())
            Dim webObject As New WebRequestFcmData
            With webObject
                .registration_ids = deviceIDList
                .notification.title = title
                .notification.body = bodyMsg
                .notification.content_available = True
                .notification.sound = "default"
                .notification.priority = "high"
            End With
            Dim body = JsonConvert.SerializeObject(webObject)
            With streamWriter
                .Write(body)
                .Flush()
                .Close()
            End With
        End Using
        Dim httpResponse = CType(request.GetResponse(), HttpWebResponse)
        Using streamReader As New StreamReader(httpResponse.GetResponseStream)
            Dim result = streamReader.ReadToEnd
        End Using
    End Sub
End Class

Public Class WebRequestFcmData
    Public Property registration_ids As List(Of String)
    Public Property notification As New NotificationData
End Class

Public Class NotificationData
    Public Property body As String
    Public Property content_available As Boolean
    Public Property priority As String
    Public Property title As String
    Public Property sound As String
End Class

错误发生在以下行：

Dim httpResponse = CType(request.GetResponse(), HttpWebResponse)

这是我使用的服务器密钥和发件人 ID：

更新：我尝试从 Postman 应用程序发送 Web 请求，它也给出了相同的错误（401：未经授权），如下图所示：

Answer 1

好的。 我通过使用不是实际服务器密钥的 API 密钥犯了一个愚蠢的错误。 尽管我已经读到我应该去项目设置中的云消息选项卡，但我误解了我必须查看侧栏中的云消息选项卡，这是错误的。 这是我找到服务器密钥的步骤：

1. 单击项目概述附近的设置按钮

   

2. 选择第一个选项（项目设置）

   

3. 单击第二个选项卡（云消息传递）

   

4. 在此页面中使用服务器密钥和发件人 ID

   

起初，我尝试在侧边栏的云消息选项卡中查找服务器密钥，但这是错误的位置。