Sub Process_Globals
Dim publicKey As String
publicKey = "MII....."
Dim app_2 As String
Dim lc As LicenseChecker
End Sub
Sub Activity_Create(FirstTime As Boolean)
lc.Initialize("lc", GetDeviceId, publicKey, "ssdfgdDf3dsfs.....".GetBytes("UTF8"))
lc.SetVariableAndValue("app_2", "AppChKVer....")
lc.CheckAccess
End Sub
Sub lc_Allow
End Sub
Sub lc_DontAllow
Msgbox("License Check Failed","")
Activity.Finish
End Sub
Sub lc_Error (ErrorCode As String)
Msgbox("License Check Failed","")
Activity.Finish
End Sub