cheveguerra/FLP_2.0
1
0
Fork 0
mirror of https://github.com/cheveguerra/FLP_2.0.git synced 2026-04-18 03:39:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

4/1/2024 - Permisos

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-04 03:35:45 -06:00
parent aec2c705a2
commit 6fd36f54b4
2 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
FLP_2.0.b4a
View File

@@ -38,7 +38,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: FLP 2.0 #ApplicationLabel: FLP 2.0
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.11.11 #VersionName: 4.01.04
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified #SupportedOrientations: unspecified
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
@@ -105,6 +105,8 @@ End Sub
Sub Activity_Resume Sub Activity_Resume
chkPermisosUbicacion 'Permisos de ubicacion para Tracker chkPermisosUbicacion 'Permisos de ubicacion para Tracker
chkPermisosAlmacenamientoExterno chkPermisosAlmacenamientoExterno
chkPermisosLeerLlamadas 'Permisos de telefono para registrar llamadas
chkPermisosEstadoTelefono
Subs.getPhnId Subs.getPhnId
et_id.Text = Starter.devModel.Trim et_id.Text = Starter.devModel.Trim
getSSID getSSID
@@ -148,6 +150,7 @@ Sub b_pong_LongClick
Wait For WiFi_ScanDone (Results() As String, Count As Int) Wait For WiFi_ScanDone (Results() As String, Count As Int)
End Sub End Sub
'Obtenemos permisos de almacenamiento.
Sub chkPermisosAlmacenamientoExterno Sub chkPermisosAlmacenamientoExterno
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean) Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
@@ -158,6 +161,7 @@ Sub chkPermisosAlmacenamientoExterno
End If End If
End Sub End Sub
'Obtenemos permisos de ubicacion.
Sub chkPermisosUbicacion Sub chkPermisosUbicacion
' If Starter.logger Then Log("Revisamos permisos de ubicación.") ' If Starter.logger Then Log("Revisamos permisos de ubicación.")
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
@@ -170,6 +174,20 @@ Sub chkPermisosUbicacion
End If End If
End Sub End Sub
'Obtenemos permisos de llamadas.
Sub chkPermisosLeerLlamadas
Starter.rp.CheckAndRequest("android.permission.READ_CALL_LOG")
wait for Activity_PermissionResult(permission As String, result As Boolean)
Log("READ_CALL_LOG: " & result)
End Sub
'Obtenemos permisos de estado de telefono.
Sub chkPermisosEstadoTelefono
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
wait for Activity_PermissionResult(permission As String, result As Boolean)
Log("READ_PHONE_STATE: " & result)
End Sub
Sub getSSID Sub getSSID
If wifi.isWifiConnected Then If wifi.isWifiConnected Then
Subs.ssid = wifi.WifiSSID Subs.ssid = wifi.WifiSSID

4
FLP_2.0.b4a.meta
View File

@@ -16,7 +16,7 @@ ModuleBreakpoints5=
ModuleBreakpoints6= ModuleBreakpoints6=
ModuleBreakpoints7= ModuleBreakpoints7=
ModuleBreakpoints8= ModuleBreakpoints8=
ModuleClosedNodes0=12,13 ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes2=6,9,10 ModuleClosedNodes2=6,9,10
ModuleClosedNodes3=1 ModuleClosedNodes3=1
@@ -25,6 +25,6 @@ ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7=2,5,6,7,9,11,13,14,16,19,20 ModuleClosedNodes7=2,5,6,7,9,11,13,14,16,19,20
ModuleClosedNodes8=8,11,12 ModuleClosedNodes8=8,11,12
NavigationStack=Tracker,StartFLP,107,0,Main,b_pong_Click,92,0,Starter,Service_Start,31,0,Starter,Application_Error,56,0,Starter,Timer1_Tick,49,0,Starter,Service_TaskRemoved,53,0,Starter,Service_Create,37,0,Starter,Process_Globals,26,0,Starter,restartTracker,84,0,Starter,PE_PhoneStateChanged,90,6 NavigationStack=Starter,Service_Create,37,0,Starter,Process_Globals,26,0,Starter,restartTracker,84,0,Starter,PE_PhoneStateChanged,101,6,Main,b_pong_Click,92,0,Main,chkPermisosAlmacenamientoExterno,124,0,Main,b_pong_LongClick,114,0,Main,chkPermisosLeerLlamadas,145,0,Main,chkPermisosUbicacion,138,0,Main,chkPermisosEstadoTelefono,146,3,Main,Activity_Resume,71,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=6,2,8,3,7,4,5 VisibleModules=6,2,8,3,7,4,5