Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
'Pour éviter que le système tue votre service
Dim in As Intent
in.Initialize("android.settings.REQUEST_IGNORE_BATTERY_OPTIMIZATIONS", _
"package:" & Application.PackageName)
Try
StartActivity(in)
Catch
Log("Impossible d'ouvrir les paramètres d'optimisation batterie")
End Try
StartServiceAt(ServiceNotification, DateTime.Now + 30 * 1000, True)
End If