Sub Service_Create
Dim jo As JavaObject
jo.InitializeStatic("com.google.android.gms.security.ProviderInstaller")
Dim context As JavaObject
context.InitializeContext
DisableStrictMode
Dim listener As Object = jo.CreateEventFromUI("com.google.android.gms.security.ProviderInstaller.ProviderInstallListener", _
"listener", Null)
Log("Installing security provider if needed...")
jo.RunMethod("installIfNeededAsync", Array(context, listener))
Wait For listener_Event (MethodName As String, Args() As Object)
If MethodName = "onProviderInstalled" Then
Log("Provider installed successfully")
Else
Log("Error installing provider: " & Args(0))
End If
End Sub
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