Использование VB.NET для отправки уведомления эмулятору Android с ошибкой 401

Я пишу код VB.NET для отправки уведомления эмулятору Android. Я могу успешно отправить тестовое сообщение из элемента управления firebase. Однако это не удалось, когда я попытался отправить сообщение через код VB.NET на своем локальном компьютере и получил ошибку «Удаленный сервер вернул ошибку: (401) Несанкционировано».

Я попытался просмотреть следующую ссылку: FCM (Firebase Cloud Messaging ) Push-уведомление с помощью 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)

Вот ключ сервера и идентификатор отправителя, которые я использую:

Обновлено: я попытался отправить веб-запрос из приложения Postman, и он также дал ту же ошибку (401: Unauthorized), как показано на рисунке ниже: