Sub LeerIdDispositivo() As String
Dim p As Phone
Dim id, id1 As String
Dim r As Reflector
Dim Api As Int
Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
If Api < 9 Then
'dispositivo antiguo
id= p.GetSettings("android_id")
Else
'dispositivo nuevo
id= r.GetStaticField("android.os.Build", "SERIAL")
id1 = id.ToLowerCase
If id1.Contains ("unknown") Or id1.Contains("123456789") Then id= p.GetSettings("android_id")
End If
Return id
End Sub