fatto ora non si apre più nemmeno l'app va in crash, bisogna trovare un altro modo per spegnere, mi sa tanto che sarà molto difficileSi, succede spesso, devi spostare su OFF, e poi riselezionare su ON, a quel punto funziona
fatto ora non si apre più nemmeno l'app va in crash, bisogna trovare un altro modo per spegnere, mi sa tanto che sarà molto difficileSi, succede spesso, devi spostare su OFF, e poi riselezionare su ON, a quel punto funziona
10-12strano, a me funziona perfettamente
prova a disinstallarla e installarla di nuovo
che versione di Android stai usando ??
Mostraci un po' di codice o allega qui un progettino10-12
l'ho disinstallata e torna a OFF poi la reinstallo, ed è OFF e si spre la schermata di consenso, metto ON la lancio e mi propone sempre la schermata di consenso
#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
Inoltre la rigadovrebbe essere cambiata inB4X:If AccessibilitySevices.IsAccessibilityServiceEnabled("com.acc.powermenu/.accserv") = False Then
Android 10 non funziona, poi proverò sulla box Android 12sul Android 9 non funziona, prova sul 12, a me funziona