Sub apaga
Dim rr As Reflector
rr.Target = rr.GetContext
rr.Target = rr.RunMethod2("getSystemService", "audio", "java.lang.String")
rr.RunMethod2("setSpeakerphoneOn", False, "java.lang.boolean")
rr.RunMethod2("setMicrophoneMute", True, "java.lang.boolean")
Log("Apagamos Sonido y Microfono, hipoteticamente ...")
End Sub