'RecaptchaKey is a process global string.
Sub Verify
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim Client As JavaObject
Client = Client.InitializeStatic("com/google/android/gms/safetynet.SafetyNet".Replace("/", ".")).RunMethod("getClient", Array(ctxt))
Dim task As JavaObject = Client.RunMethod("verifyWithRecaptcha", Array(RecaptchaKey))
Dim start As Long = DateTime.Now
Do While task.RunMethod("isComplete", Null) = False And start + 10000 > DateTime.Now
Sleep(100)
Loop
If task.RunMethod("isSuccessful", Null) Then
Dim token As JavaObject = task.RunMethod("getResult", Null)
Dim tokenkey As String = token.RunMethod("getTokenResult", Null)
Log(tokenkey)
VerifyToken(tokenkey) '<---the token should be sent to your server and the server should verify the token
Else
Log("error")
End If
End Sub