Italian Gestione USB e alimentazione

#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

#Region  Service Attributes
    #StartAtBoot: False
#End Region

#Extends: com.tillekesoft.accessibilityservices.AccessibilityEventsListenerWrapper

Sub Process_Globals

    Public AccessibilitySevices As AccessibilityEventsListener
    Private AccessibilitySevicesCostants As AccessibilityConstants
    'Public PowerDialogShowed As Boolean = False
    
End Sub

Sub Service_Create

    'Inizializzo il servizio
    AccessibilitySevices.initialize("Accessibility")
    
End Sub

'Sub Accessibility_OnAccessibilityEvent (Event As Object, node As Object)
'   
'    '***QUESTO EVENTO VIENE SEMPRE RICHIAMATO DA QUALSIASI AZIONE SULL'APP USARE PowerDialogShowed = TRUE PER NON ENTRARCI NUOVAMENTE SE NO COMPAIONO
'    'PIU' POWERMENU
'   
'    'Visualizzo il dialog dello spegnimento
'    If PowerDialogShowed = False Then
'        PowerDialogShowed = True
'        AccessibilitySevices.PerformGlobalAction(AccessibilitySevicesCostants.GLOBAL_ACTION_POWER_DIALOG )
'        CallSubDelayed(Main,"Application_Exit")
'    End If
'   
'End Sub

Sub Show_PowerMenu
    
    Log("Show PowerMenu")

    AccessibilitySevices.PerformGlobalAction(AccessibilitySevicesCostants.GLOBAL_ACTION_POWER_DIALOG)

End Sub

Sub Service_Start (StartingIntent As Intent)
    
    Service.StopAutomaticForeground
    
End Sub

Sub Service_Destroy

End Sub

Sub Check_ServiceEnabled
    
    'SERVE A VISUALIZZARE LA SCHERMATA DI CONSENSO ALL'UTILIZZO DI ACCESSIBILITYSERVICES
    
    If AccessibilitySevices.IsAccessibilityServiceEnabled("com.acc.powermenu/.accserv") = False Then
            
        Dim Intent1 As Intent
        Intent1.Initialize( "android.settings.ACCESSIBILITY_SETTINGS", "" )
        StartActivity( Intent1 )
        
    Else
        
        'se il servizio è abilitato visualizzo il PowerMenu
        Show_PowerMenu
        
    End If
    
    CallSubDelayed(Main,"Application_Exit")

End Sub

Sub Activity_Create(FirstTime As Boolean)
        CallSubDelayed(AccServ,"Check_ServiceEnabled")
End Sub

If AccessibilitySevices.IsAccessibilityServiceEnabled("com.acc.powermenu/.accserv") = False Then

If AccessibilitySevices.IsAccessibilityServiceEnabled("com.acc.powermenu/.accservice") = False Then