گرفتن سریال گوشی دربیسیک فور اندروید

گرفتن سریال گوشی در b4a
گرفتن سریال گوشی در b4a

باسلام خدمت دوستان و همراهان عزیز

گوگل با منتشر کردن اندروید ۱۰ و برای بالابردن  امنیت اندروید اومده یه سری از دسترسی ها رو گرفته 

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

Public Sub GetDeviceId As String
	Dim r As Reflector
	Dim Api As Int
	Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
	If Api < 9 Then
		If File.Exists(File.DirInternal, "__id") Then
			Return File.ReadString(File.DirInternal, "__id")
		Else
			Dim id As Int
			id = Rnd(0x10000000, 0x7FFFFFFF)
			File.WriteString(File.DirInternal, "__id", id)
			Return id
		End If
	Else
		Return r.GetStaticField("android.os.Build", "SERIAL")
	End If
End Sub

اما این کد نسخه های اندروید زیر ۱۰ کار میکنه  و برای رفع این مشکل

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

تست شده و جواب میده ☺

Sub GetDeviceId As String
	Dim p As Phone
	Dim id As String
	Dim r As Reflector
	Dim Api As Int

	Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
	If Api < 9 Then
		'Old device
		id= p.GetSettings("android_id")
	Else
		'New device
		id= r.GetStaticField("android.os.Build", "SERIAL")
		If id.ToLowerCase = "unknown" Then id= p.GetSettings("android_id")
	End If
	Return id
End Sub
  • بهمن تیموری نژاد
  • هیچ
  • 386 بازدید
  • ۰۷ اسفند ۹۸
درباره نویسنده
برچسبها
مطالب مرتبط

دیدگاهی بنویسید.

بهتر است دیدگاه شما در ارتباط با همین مطلب باشد.

0