请先登录 | 注册
IPSC1978.GICP.NET
禁止截屏的代码 - 文章首页→返回版区
■标题:禁止截屏的代码
■作者:IPSC [2026/5/29 1:43:02]
有两种，一种是ACTIVITY的，这种测试成功，可用，在MAIN里加代码


[vb]




Sub Activity_Create(FirstTime As Boolean)





DisableScreenCapture'加上就禁止截屏



End Sub




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






[/vb]







另一种是对于B4XPages的，我没测试。








[vb]








Sub DisableScreenCapture



    Dim act As JavaObject = B4XPages.GetNativeParent(Me)



    Dim window As JavaObject = act.RunMethod("getWindow", Null)



    window.RunMethod("setFlags", Array(0x00002000, 0x00002000))



End Sub






Sub EnableScreenCapture



    Dim act As JavaObject = B4XPages.GetNativeParent(Me)



    Dim window As JavaObject = act.RunMethod("getWindow", Null)



    window.RunMethod("clearFlags", Array(0x00002000))



End Sub











Sub B4XPage_Appear

    DisableScreenCapture

End Sub


Sub B4XPage_Disappear

    EnableScreenCapture

End Sub











[/vb]





【回复/版区/上篇/下篇/发贴/仅文字/HTML】
【倒序/最近21条回复】(暂无)
(查看完整版网页)


短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
59 毫秒 .