iOS Tutorial FirebaseNotifications / Push Messages (server not required)

'Non-UI application (console / server application)
#Region  Project Attributes
    #CommandLineArgs:
    #MergeLibraries: True
#End Region

Sub Process_Globals
    Private const API_KEY As String = "AIzaSyBkR_qTtUkwnpLb4ONV1FwCPcvzHnnDzlk"
End Sub

Sub AppStart (Args() As String)
    SendMessage("ios_general", "title", "body")
    StartMessageLoop
End Sub

Private Sub SendMessage(Topic As String, Title As String, Body As String)
    Dim Job As HttpJob
    Job.Initialize("fcm", Me)
    Dim m As Map = CreateMap("to": $"/topics/${Topic}"$)
    Dim data As Map = CreateMap("title": Title, "body": Body)
    If Topic.StartsWith("ios_") Then
        Dim iosalert As Map =  CreateMap("title": Title, "body": Body, "sound": "default")
        m.Put("notification", iosalert)
        m.Put("priority", 10)
    End If
    m.Put("data", data)
    Dim jg As JSONGenerator
    jg.Initialize(m)
    Job.PostString("https://fcm.googleapis.com/fcm/send", jg.ToString)
    Job.GetRequest.SetContentType("application/json;charset=UTF-8")
    Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)
End Sub


Sub JobDone(job As HttpJob)
   Log(job)
   If job.Success Then
     Log(job.GetString)
   End If
   job.Release
   ExitApplication '!
End Sub

#Entitlement: <key>aps-environment</key><string>production</string>

   App.RegisterUserNotifications(True, True, True)
   App.RegisterForRemoteNotifications

Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
    Log($"Message arrived: ${Message}"$)
    'Msgbox(Message.Get("body"), Message.Get("title"))
    CompletionHandler.Complete
End Sub

Application_Remotenotification
Message arrived: (read only map) {
    body = "Stay Tuned1 ...!";
    "collapse_key" = "do_not_collapse";
    from = "/topics/general";
    title = "Sna";
}
Application_Inactive
App Inactive
Application_Background
App Background
Application_Remotenotification
Message arrived: (read only map) {
    body = "Stay Tuned1 ...!";
    "collapse_key" = "do_not_collapse";
    from = "/topics/general";
    title = "Sna";
}

#Version: 1.0.8
    #iPhoneOrientations: Portrait
    #Target: iPhone
    #MinVersion: 8
    #PlistExtra: <key>UIViewControllerBasedStatusBarAppearance</key><false/>
    #AppFont: AvenirLTStd-Black.ttf

    #Entitlement: <key>aps-environment</key><string>production</string>

    #PlistExtra:<key>NSPhotoLibraryUsageDescription</key><string>Select a photo.</string>
    #PlistExtra:<key>NSCameraUsageDescription</key><string>Taking a photo.</string>
    #PlistExtra:<key>NSMicrophoneUsageDescription</key><string>Record video.</string>
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    #CertificateFile:ios_distribution.cer
    #ProvisionFile:pushProvisionalAdhocDistribution.mobileprovision
#End Region

'#If RELEASE
'   #CertificateFile: ios_distribution.cer
'   #ProvisionFile: ios_distribution_appstore.mobileprovision
'#END IF

Sub Process_Globals
    Public App As Application
    Public NavControl As NavigationController
    Public Page1,Referal As Page
    Public kvs As KeyValueStore
    Dim downloadLinks As Map
    Private background As ImageView
    Private login As ImageView
    Public hd As HUD

    Dim parentURL As String
    Dim userDetail,userDetail1 As Map

    Public senderId,parentURL,AccessToken,userID,referalCode,refBy,profilePicLink As String
    Dim parentPicLink As String : parentPicLink = "http://photo_admin/"

    Private referl As TextView
    Private submitReferal As ImageView
    Dim firebaseAnalytics As FirebaseAnalytics
    Public fm As FirebaseMessaging
    Public auth As FirebaseAuth

    Dim strUserName As String
    Dim strInputDialog As String
    Dim txtUserName As String
     Dim newLogin As Boolean
    Private loginEmailBt As Button
    Private SignUp As Button
End Sub

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
'    parentURL="http://livemobtech.com/photocontest/photo_admin/mobile_api.php"
    parentURL = "http://www.medbaltra.com/photo_admin/mobile_api.php"
    Page1.Initialize("page1")
    Referal.Initialize("referal")

    kvs.Initialize(File.DirLibrary,"datastore")

    Dim no As NativeObject = App
    no.RunMethod("setStatusBarHidden:animated:", Array(True, False))

    firebaseAnalytics.Initialize()        
    auth.Initialize("auth")
    ''''''''''''''''''''''
    App.RegisterUserNotifications(True, True, True)
    App.RegisterForRemoteNotifications
    fm.Initialize("fm")
    '''''''''''''''''''''''''
    downloadLinks.Initialize
    If kvs.ContainsKey("regComplete")Then
        If kvs.Get("regComplete") = "yes" Then
            initPageDashboard
        Else
            Page1.RootPanel.LoadLayout("loginPage")
            Nav.NavigationBarVisible = False
            Nav.ShowPage(Page1)
        End If
    Else
        kvs.Put("regComplete","no")
        Page1.RootPanel.LoadLayout("loginPage")
        Nav.NavigationBarVisible = False
        Nav.ShowPage(Page1)
    End If
End Sub

Private Sub fm_FCMConnected
    If kvs.ContainsKey("regComplete")Then
        If kvs.Get("regComplete") = "yes" Then
            Log("FCMConnected")
            fm.SubscribeToTopic("general") 'add ios_ prefix to all topics
        End If
    End If
End Sub

Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
    Log($"Message arrived: ${Message}"$)
    'Msgbox(Message.Get("body"), Message.Get("title"))
'    Dim ln As Notification
'    ln.Initialize(DateTime.Now)
'    ln.IconBadgeNumber = 1
'    ln.AlertBody = Message.Get("body")
'    ln.PlaySound = True
'    ln.Register
    CompletionHandler.Complete
End Sub

Private Sub Application_Background
    Log("App Background")
'    fm.FCMDisconnect 'should be called from Application_Background
End Sub

Private Sub Application_Inactive
    Log("App Inactive")
 
End Sub

Private Sub Application_Active
    Log("App Active")
    App.ApplicationIconBadgeNumber = 0
    fm.FCMConnect 'should be called from Application_Active
End Sub