Використання 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: неавторизовано), як показано на малюнку нижче: