GetDeviceId As Map
Dim p As Phone
Dim id As String
Dim r As Reflector
Dim Api As Int
Dim nam, model As String
Dim mp As Map
mp.Initialize
Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
nam = p.Manufacturer
model = p.model
mp.Put("manu",nam)
mp.Put("model",model)
Log(" DEVICE Name: "&nam&" Model: "&model)
If Api < 9 Then
'Old device
id = p.GetSettings("android_id")
Log(" API less than 9")
mp.Put("serial",id)
Return mp
Else
'New device
id = r.GetStaticField("android.os.Build", "SERIAL")
If id.ToLowerCase = "unknown" Then
id = p.GetSettings("android_id")
Log(" unknown - using phone device id")
Else
Log(" API returned a valid serial "& id)
End If
mp.Put("serial",id)
Return mp
End If
End Sub