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

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