Sub Checklic
Dim lc As LicenseChecker
Dim Pho As Phone
lc.Initialize("lc", Pho.GetSettings("android_id"), publicKey, "RFhWZxbaWdp".GetBytes("UTF8"))
lc.SetVariableAndValue("test_1", secret_1)
lc.CheckAccess
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Checklic
Else
--> continue the program
End If
End Sub
Sub lc_Allow
If test_1 <> secret_1 Then
'-->not licensed
Else
'licensed
End If
End Sub
Sub lc_DontAllow
'-->not licensed
End Sub
Sub lc_Error (ErrorCode As String)
'-->not licensed
End Sub