iOS Tutorial Push notifications

'Code module
#Region  Project Attributes
    #ApplicationLabel: B4i Example
    #Version: 1.0.0
    'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
    #iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
    #iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
    #ProvisionFile: Push.mobileprovision
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page
    Private Const ServerUrl As String = "http://192.168.0.13:51044"
End Sub

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.Title = "Page 1"
    Page1.RootPanel.Color = Colors.White
    Dim but As Button
    but.Initialize("but",but.STYLE_SYSTEM)
    but.Text ="SEND PUSH"
    Page1.RootPanel.AddView(but,100,100,100,20)
    NavControl.ShowPage(Page1)
    App.RegisterUserNotifications(True, True, True)
    App.RegisterForRemoteNotifications
    CheckForPushMessage
End Sub

Sub but_Click
       Dim job As HttpJob
    job.Initialize("jobsend", Me)
    job.PostString(ServerUrl & "/send", "password=123" & "&text=Hello" & "&badge=1" & "&sound=piece.mp3")
End Sub

Private Sub Application_PushToken (Success As Boolean, Token() As Byte)
    If Success Then
        Dim bc As ByteConverter
        Dim j As HttpJob
        j.Initialize("j", Me)
        j.PostString(ServerUrl & "/devicetoken", "token=" & bc.HexFromBytes(Token) & "&type=1")
    Else
        Log("Error getting token: " & LastException)
    End If
End Sub

Private Sub JobDone(j As HttpJob)
    Log(j.JobName)
    If j.Success Then
        Log("Token uploaded successfully.")
    Else
        Log("Error uploading token")
    End If
    j.Release
End Sub

Private Sub Application_RemoteNotification (Message As Map)

    Log("Remote notification: " & Message)
    Dim m As Map = Message.Get("aps")
    Log(m)
    Log(m.Get("alert"))
End Sub

Private Sub Page1_Resize(Width As Int, Height As Int)
  
End Sub

Private Sub Application_Background
  
End Sub
Private Sub CheckForPushMessage
   If App.LaunchOptions.IsInitialized AND _
     App.LaunchOptions.ContainsKey("UIApplicationLaunchOptionsRemoteNotificationKey") Then
     Dim data As Object = app.LaunchOptions.Get("UIApplicationLaunchOptionsRemoteNotificationKey")
     Dim no As NativeObject = app
     no.GetField("delegate").RunMethod("application:didReceiveRemoteNotification:", _
       Array(App, data))
   End If
End Sub

Private Sub Application_RemoteNotification (Message As Map) 
' with attribute I mean (Message as Map)
End Sub

Dim no As NativeObject = App
no.RunMethod("unregisterForRemoteNotifications", null)

Dim NativeMe As NativeObject = Me
NativeMe.RunMethod("openNotificationSettings",Null)

#If OBJC
- (void)openNotificationSettings {
   if (&UIApplicationOpenSettingsURLString != NULL)
    [[UIApplication sharedApplication] openURL:[NSURL URLWithString:UIApplicationOpenSettingsURLString]];
}
#end if

If Main.App.OSVersion >= 8 Then
    Main.app.OpenURL("app-settings:")
End If

If App.OSVersion >= 8 Then
    Dim NativeMe As NativeObject = Me
    Dim isRegged As Boolean
    isRegged=NativeMe.RunMethod("isRegisteredForRemoteNotifications", Null).AsBoolean
End If

#If OBJC
- (BOOL)isRegisteredForRemoteNotifications {
    if ([[UIApplication sharedApplication] isRegisteredForRemoteNotifications]) return YES;
    return NO;
}
#end if