#Region  Project Attributes
    #ApplicationLabel: PowerMenu
    #VersionCode: 1
    #VersionName: 2023.09.08
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
    #AdditionalRes: C:\Users\ccp\Desktop\PowerMenu\resAccessibility\res, com.tillekesoft.accessibilityservices
#End Region
#Region  Activity Attributes
    #FullScreen: true
    #IncludeTitle: False
#End Region
Sub Process_Globals
    Private xui As XUI
    
End Sub
Sub Globals
    
End Sub
Sub Activity_Create(FirstTime As Boolean)
    
    If FirstTime = True Then
        
        Activity.LoadLayout("layMain")
        CallSubDelayed(AccServ,"Check_ServiceEnabled")
    End If
    
End Sub
Sub Activity_Resume
    Log("Resume")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    
    Log("Pause")
End Sub
'Chiude l'applicazione
Sub Application_Exit
    
    Dim jo As JavaObject
    
    jo.InitializeContext
    jo.RunMethod("finishAndRemoveTask", Null)
 
    ExitApplication
    
End Sub
Private Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
    
    Application_Exit
    
    Return True
    
End Sub