تابع گرفتن صدای زنگ گوشی کاربر

به درود به کاربران عزیز سایت یاهو ۹۸ YAHOO

 

شاید براتون پیش اومده بخواین همون صدای زنگی که کاربر برای گوشیش تنظیم کرده رو بگیرید و پخشش کنید.

با کد زیر این عمل قابل اجراست :

 

Dim jo As JavaObject
  jo.InitializeStatic("android.media.RingtoneManager")
  Dim context As JavaObject = Activity
  context = context.RunMethod("getContext", Null)
  Dim r As Reflector
  r.Target = "ContentDir"
  r.Target = r.RunMethod("intern")
  Dim mp As MediaPlayer
  mp.Initialize
  mp.Load(r.Target, jo.RunMethod("getActualDefaultRingtoneUri", Array As Object(context, 1)))
  mp.Play