Sub DisableScreenCapture
Dim r As Reflector
Dim act As Object = r.GetActivity
Dim jo As JavaObject = act
Dim window As JavaObject = jo.RunMethod("getWindow", Null)
window.RunMethod("setFlags", Array(0x00002000, 0x00002000))
End Sub
Sub EnableScreenCapture
Dim r As Reflector
Dim act As Object = r.GetActivity
Dim jo As JavaObject = act
Dim window As JavaObject = jo.RunMethod("getWindow", Null)
window.RunMethod("clearFlags", Array(0x00002000))
End Sub