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


باسلام خدمت دوستان و همراهان عزیز
گوگل با منتشر کردن اندروید ۱۰ و برای بالابردن امنیت اندروید اومده یه سری از دسترسی ها رو گرفته
خوب من قبلا برای گرفتن سریال گوشی کاربر در برنامه از کد زیر استفاده میکنم
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