German B4A: Autostart und "Hintergrundprozess"

#Region  Service Attributes
   #StartAtBoot: True
 
#End Region
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim PhoneWakeState1 As PhoneWakeState 'Phone library
    Dim PhoneEvents1 As PhoneEvents
    Dim ToastMessageOnOff As Boolean '<- damit kann man steuern ob die Meldungen angezeigt werden sollen oder nicht

End Sub

Sub Service_Start(StartingIntent As Intent)
  
    Log("Connection.Service_Start")
   
    Dim n As Notification
    n.Initialize
    n.Icon="icon"
    n.Sound=False
    n.Light = False
    n.Vibrate = False
    n.SetInfo("Alarm","Listening for a Alarm Message",Main)
    Service.StartForeground(1,n)

    PhoneWakeState1.PartialLock
  
    PhoneEvents1.Initialize("PhoneEvents1")
  
End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.

    Log("Connection.Service_TaskRemoved")
  
    PhoneWakeState1.ReleasePartialLock

End Sub

Sub Service_Destroy

    Log("Connection.Service_Destroy")

    PhoneWakeState1.ReleasePartialLock

End Sub

Sub PhoneEvents1_ConnectivityChanged(NetworkType As String, State As String, Intent As Intent)
  
   Log("PhoneEvents1_ConnectivityChanged")
  
   'NetworkType - WIFI or MOBILE.
   '#State - One of the following values: CONNECTING, CONNECTED, SUSPENDED, DISCONNECTING, DISCONNECTED, UNKNOWN.
  
   If State = "CONNECTED" Then
       If ToastMessageOnOff Then ToastMessageShow("Connectivity Changed, Network Type " & NetworkType,False)

   End If
  
End Sub

Sub Service_Start(StartingIntent As Intent)
  
    Log("Starter.Service_Start")
      
    StartService(Connection)
  
End Sub

Sub Alarm_Notification(m As Message) '<- jMQTT
  
    Dim n As Notification
    n.Initialize2(n.IMPORTANCE_HIGH)
    n.AutoCancel=True
    n.Icon="icon"
    n.Insistent=True
    n.Sound=True
    n.Vibrate=False
    n.Light=True
    n.SetInfo("Alarm",m.Topic & " " & m.Body,Me)
    n.Notify(1)

End Sub

Sub StartService_Click
  
    StartService(Connection)
  
End Sub

Sub StopService_Click
  
    StopService(Connection)
  
End Sub

Sub Class_Globals
 
    Dim Timer1 As Timer
 
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
 
    Timer1.Initialize("Timer1",1000)
    Timer1.Enabled = True
 
End Sub

Sub Timer1_Tick

    Log("Tick " & DateTime.Date(DateTime.Now) )

End Sub

Dim Class1 As MyClass
Class1.Initialize