Hola Iñaki:
Saber el IMEI es muy facil, te pongo un ejemplo completo aunque simplemente con dos lineas lo puedes hacer, pero ya que pides como implementarlo te lo explico:
' desde donde lo quieras llamar
Dim Id As String
Id= LeerIMEI ' en la variable Id viene el IMEI en formato string aunque sea un número
Log("IMEI = " & Id)
Sub LeerIMEI() As String
Dim p As PhoneId ' tienes que marcar la libreria Phone
Dim IMEI As String
IMEI=p.GetDeviceId
Return IMEI
End Sub
No se que utilidad le quieres dar a saber el IMEI, pero el IMEI como identificador tiene varias desventajas:
- Se requiere el permiso "
android.permission.READ_PHONE_STATE" (en el manifest).
- No funciona en los dispositivos sin la funcionalidad de teléfono (tablet sin telefono, solo wifi) te devolverá una cadena vacia.
- Al parecer hay un error en algunos dispositivos que devuelven el mismo id.
Si lo que buscas es un id para algo concreto, hay otro id mas fiable y no necesitas permisos en el manifest, pero el codigo es algo mas largo.
Saludos