iOS Question IOS not receiving the push notifications


Well-Known Member
Licensed User
Hi Guys,

We have an App with push notifications.
The push notifications are working fine with Android, but not working with IOS iPhone.

To test, I use the b4j tool to send push-tests to Android and IOS, just IOS not receiving the pushs.

It was working fine until last year (last time that I tested it :rolleyes: ), then I think maybe something with the certificates, because I updated the certificates the last July, but not tested the pushs :cool: then I'm not sure if it stopped working at that time or just now.

Do we have any new bigs changes then that the problem could be in the IOS-App or maybe I just have to create the certificates/profile again?

Thanks for any advice.


Staff member
Licensed User


Well-Known Member
Licensed User
....Make sure to use the latest version of the B4J tool (there was an old version that only sent to Android)..
until last year I was using this b4j-tool, Is it correct?
'Non-UI application (console / server application)
#Region  Project Attributes
    #MergeLibraries: True
#End Region

Sub Process_Globals
    Private const API_KEY As String = "AAA...........m7o"
    'Private const API_KEY As String = "AAA...........ukL"

End Sub

Sub AppStart (Args() As String)

    SendMessage("ios_general", "title", "body") 
    'SendMessage("general", "title", "body")
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
    Job.PostString("", jg.ToString)
    Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)
End Sub

Sub JobDone(job As HttpJob)
   If job.Success Then
   End If
   ExitApplication '!
End Sub
Last edited: