Sub Button2_Click
handleVolume
Dim rf As Reflector
rf.Target = mp
rf.Target = rf.GetField("mp")
rf.RunMethod2("setAudioStreamType", rf.GetStaticField("android.media.AudioManager", "STREAM_SYSTEM"), "java.lang.int")
mp.Load(File.DirAssets, "5.mp3")
mp.setVolume(1, 1)
mp.play
End Sub
Sub mp_Complete
RestoreVolume
End Sub
Sub BackupVolume
phvol1 = ph.getVolume(ph.VOLUME_MUSIC)
phvol2 = ph.getVolume(ph.VOLUME_SYSTEM)
End Sub
Sub RestoreVolume
ph.setVolume(ph.VOLUME_MUSIC, phvol1, False)
ph.setVolume(ph.VOLUME_SYSTEM, phvol2, False)
End Sub
Sub handleVolume
ph.setVolume(ph.VOLUME_MUSIC, ph.GetMaxVolume(ph.VOLUME_MUSIC) / 10, False)
ph.setVolume(ph.VOLUME_SYSTEM, ph.GetMaxVolume(ph.VOLUME_SYSTEM), False)
End Sub
Sub BackupRinger
phmod = ph.GetRingerMode
ph.SetRingerMode(ph.RINGER_NORMAL)
End Sub
Sub RestoreRinger
ph.SetRingerMode(phmod)
End Sub