مشکل اندروید 9 به بالا با دسترسی اینترنت

[koke_sa 43]

سلام پوزش خیلی سرچ کردم هم توی انجمن هم توی گوگل و... اما فقط چیزی که فهمیدم برای اندروید 9 به بالا باید به مانیفست کدی اضافه کرد که کردم اما باز هم جواب نمیده . کد زیر یک فایل تکست رو از سرور میخونه برای اندروید 8 به پایین درسته اما به بالا خطا میده و میدونمم خطای دسترسی اینترنت لطفا کمک کنید چون خیلی درگیرشم ممنون .

کد مانیفست .

AddManifestText(
<uses-sdk android:minSdkVersion="9" android:targetSdkVersion="28"/>
<supports-screens android:largeScreens="true"
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
SetApplicationAttribute(android:networkSecurityConfig, @xml/network_security_config)
CreateResource(xml, network_security_config.xml,
<network-security-config>
<base-config cleartextTrafficPermitted="true">
    <trust-anchors>
        <certificates src="system" />
    </trust-anchors>
</base-config>
</network-security-config>

)


AddPermission("android.permission.INTERNET")
AddPermission(android.permission.ACCESS_COARSE_LOCATION)
AddPermission(android.permission.ACCESS_NETWORK_STATE)

و کد برنامه

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Private xui As XUI

Dim ra As RuntimePermissions
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
End Sub
Sub Activity_Create(FirstTime As Boolean)
	ra.CheckAndRequest("android.permission.INTERNET")
	Activity.LoadLayout("Layout")
	
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click
	Dim Avolley As AriaVolley
	Avolley.Initialize("volley")
	Avolley.AddQueue(Avolley.CreateStringRequest("https://www.ams.usda.gov/mnreports/bh_fv201.txt",Avolley.GET))
	Avolley.Start
End Sub

Sub volley_OnError (Error As String)
	Msgbox(Error,"Volley Error!")
End Sub
Sub volley_OnStringResponse (response As String)
	Msgbox(response,"Volley")
End Sub




Sub Activity_PermissionResult (Permission As String, Result As Boolean)

	If Permission="android.permission.INTERNET" Then
		ToastMessageShow(Permission&":"&Result,False)
		If Result=False Then
			Msgbox("کاربر گرامی برای ادامه کار نرم افزار نیاز به فعالسازی این دسترسی دارید.","اخطار")
			ra.CheckAndRequest ("android.permission.INTERNET")
		End If
	End If

	
End Sub

ممنون واقعا کمک بزرگی میکنید .

[محمدرضا شاهپیری 5,489]

به جای کدهای بالا کد زیر رو بزارید.

SetApplicationAttribute(android:usesCleartextTraffic, "true")