عدم گرفتن دسترسی ها

[mostafaHD 44]

سلام من کدهای زیر رو در برنامه قرار دادم اما از کاربر دسترسی درخواست نمیکنه.

کدهای منیفست رو هم اضافه کردم

روی اندروید 9 و 10 تست کردم

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	
	Activity.LoadLayout("main")
	
	If Not(rr.Check(rr.PERMISSION_READ_SMS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_SMS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_RECEIVE_SMS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_RECEIVE_SMS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_READ_CONTACTS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_CONTACTS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_READ_CALL_LOG)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_CALL_LOG)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If

	
End Sub

 

[GreenMan 5]

در در 16 بهمن 1399 در 23:07، mostafaHD گفته است :

سلام من کدهای زیر رو در برنامه قرار دادم اما از کاربر دسترسی درخواست نمیکنه.

کدهای منیفست رو هم اضافه کردم

روی اندروید 9 و 10 تست کردم

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	
	Activity.LoadLayout("main")
	
	If Not(rr.Check(rr.PERMISSION_READ_SMS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_SMS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_RECEIVE_SMS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_RECEIVE_SMS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_READ_CONTACTS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_CONTACTS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_READ_CALL_LOG)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_CALL_LOG)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If

	
End Sub

 

دوست عزیز برنامه رو از حالت دیباگ دربیارید بعد رو گوشی خودتون نصب کنید از طریق شریت و این برنامه ها به گوشی دیگری بفرستید کار میکنه.

مانیفیست اندروید هم بزار ۲۱

[Mr.Kafiri 221]

در در 16 بهمن 1399 در 23:07، mostafaHD گفته است :

سلام من کدهای زیر رو در برنامه قرار دادم اما از کاربر دسترسی درخواست نمیکنه.

کدهای منیفست رو هم اضافه کردم

روی اندروید 9 و 10 تست کردم

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	
	Activity.LoadLayout("main")
	
	If Not(rr.Check(rr.PERMISSION_READ_SMS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_SMS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_RECEIVE_SMS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_RECEIVE_SMS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_READ_CONTACTS)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_CONTACTS)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If
	
	If Not(rr.Check(rr.PERMISSION_READ_CALL_LOG)) Then
		Wait For Msgbox_Result (Result As Int)
		rr.CheckAndRequest(rr.PERMISSION_READ_CALL_LOG)
		Wait For activity_PermissionResult (Permission As String, havePermission As Boolean)
		If havePermission = False Then
			Return
		End If
	End If

	
End Sub

 

فک نکنم روش درستی برای گرفتن چندین دسترسی باشه شما متد CheckAndRequest  رو که صدا بزنید ، خودش چک میکنه اگر دسترسی داده نشده بود از کاربر درخواست میکنه اگر داده بود کاری انجام نمیده

rr.CheckAndRequest(rr.PERMISSION_READ_SMS)
rr.CheckAndRequest(rr.PERMISSION_RECEIVE_SMS)
rr.CheckAndRequest(rr.PERMISSION_READ_CONTACTS)
rr.CheckAndRequest(rr.PERMISSION_READ_CALL_LOG)

sub Activity_PermissionResult (Permission As String, Result As Boolean)
	log(Permission)
	log(Result)
    If Result = false Then
        Log("No Permission")
    End If
End If