B4A(安卓) 关闭严格模式

源代码

Sub DisableStrictMode
  '关闭严格模式
  Dim jo As JavaObject
  jo.InitializeStatic("android.os.Build.VERSION")
  If jo.GetField("SDK_INT") > 9 Then
    Dim policy As JavaObject
    policy = policy.InitializeNewInstance("android.os.StrictMode.ThreadPolicy.Builder", Null)
    policy = policy.RunMethodJO("permitAll", Null).RunMethodJO("build", Null)
    Dim sm As JavaObject
    sm.InitializeStatic("android.os.StrictMode").RunMethod("setThreadPolicy", Array(policy))
  End If
End Sub