Sub getRingtone As JavaObject
jo.InitializeStatic("android.media.RingtoneManager")
jo2.InitializeContext
Dim u As Uri
u.Parse(rm.GetDefault(rm.TYPE_ALARM))
' u.Parse("content://media/internal/audio/media/49")
Log(u)
Dim rt As JavaObject
rt.InitializeContext
rt = jo.RunMethodJO("getRingtone", Array(jo2, u))
Log(rt)
Return rt
End Sub
Sub PlayRingtone
rt.RunMethod("play", Null)
Do While rt.RunMethod("isPlaying", Null) = True
Sleep(20)
Loop
Log("finished playing here")
End Sub