Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
If AreNotificationsEnabled = False Then
Msgbox("Non hai le notifiche Abilitate. Per un corretto funzionamento Abilita le stesse","Msgbox")
Abilita
Else
Log("abiliato")
End If
End Sub
Sub Abilita
Dim in1 As Intent
in1.Initialize("android.settings.APP_NOTIFICATION_SETTINGS", "")
Dim jo As JavaObject
'Android 5-7
in1.PutExtra("app_uid", jo.InitializeContext.RunMethodJO("getApplicationInfo", Null).GetField("uid"))
in1.PutExtra("app_package", Application.PackageName)
'Android 8 o superiore
in1.PutExtra("android.provider.extra.APP_PACKAGE", Application.PackageName)
StartActivity(in1)
End Sub
Sub AreNotificationsEnabled As Boolean
Dim jo As JavaObject
Dim ctxt As JavaObject
ctxt.InitializeContext
jo = jo.InitializeStatic("android.support.v4.app.NotificationManagerCompat").RunMethod("from", Array(ctxt))
Return jo.RunMethod("areNotificationsEnabled", Null)
End Sub