Création de Notifications FireBase

Signaler
Messages postés
4
Date d'inscription
dimanche 19 juillet 2020
Statut
Membre
Dernière intervention
13 décembre 2020
-
Messages postés
15780
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
6 avril 2021
-
Bonjour, Je cherche Via mon Application en VB, Créer un envoi de nouvelle Notification dans le Cloud Messaging de Firebase

J'ignore même si c'est possible du coup je me demande quelqu'un pourrai m'aider?

Merci d'avance
A voir également:

3 réponses

Messages postés
15780
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
6 avril 2021
529
Bonjour

VB.Net c'est du C# déguisé en VB.
Souvent ce qu'on ne trouve pas en VB.Net, on le trouve en C#.
https://www.c-sharpcorner.com/blogs/how-to-send-firebase-notification-from-c-sharp

Il ne reste plus qu'à traduire
https://lite.qwant.com/?q=c%23+to+vb&t=web
Messages postés
4
Date d'inscription
dimanche 19 juillet 2020
Statut
Membre
Dernière intervention
13 décembre 2020

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myReq As HttpWebRequest
        Dim myResp As HttpWebResponse
        Dim reader As StreamReader

        Try
            myReq = HttpWebRequest.Create("https://fcm.googleapis.com/fcm/send")

            myReq.Method = "POST"
            myReq.ContentType = "application/json"
            myReq.Headers.Add(HttpRequestHeader.Authorization, "key=masque")

            Dim myData As String = "{
                    ""to"": ""/topics/ServiceNow"",
                    ""data"": {
                        ""ShortDesc"": ""This is sample"",
                        ""IncidentNo"": ""INC0010438"",
                        ""Description"": ""This is sample""
  },
  ""notification"": {
                ""title"": ""ServiceNow"",
    ""text"": ""Click me to open an Activity!"",
""sound"":""default""
  }}"
            myReq.GetRequestStream.Write(System.Text.Encoding.UTF8.GetBytes(myData), 0, System.Text.Encoding.UTF8.GetBytes(myData).Count)
            myResp = myReq.GetResponse
            Dim myreader As New System.IO.StreamReader(myResp.GetResponseStream)
            Dim myText As String
            myText = myreader.ReadToEnd()

            txtMuestra.Items.Add(myText)

        Catch ex As Exception
            txtMuestra.Items.Add(ex)
        End Try
    End Sub


Je Parviens a Envoyer quelque chose cependant dans mon Firebase aucune trace du message qu'ai-je pu rater?
Messages postés
15780
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
6 avril 2021
529
Bonjour

je n'en ai pas la moindre idée.
Je ne connais pas Firebase.

Cela dit, je t'avais trouvé un tuto expliquant comment faire avec une extension Nuggets.

Le code que tu montres n'a rien à voir.
Je suppose donc que tu l'as trouvé ailleurs, à mon avis c'est auprès de l'auteur qu'il faut te renseigner....

PS: sur la page du tuto, on voit que l'auteur répond au questions.