Sub Process_Globals
Dim publicKey As String
publicKey = "******************************"
Dim snc_1 As String
End Sub
Sub CheckLicense
Dim lc As LicenseChecker
lc.Initialize("lc", GetDeviceId, publicKey, "asjdewdncnskueA******************".GetBytes("UTF8"))
lc.SetVariableAndValue("snc_1", "thisisatestvariable")
lc.CheckAccess
End Sub
Sub lc_Allow
Log("OK Licensed")
End Sub
Sub lc_DontAllow
Log("License: DontAllow")
Msgbox("Not Licensed","License")
Activity.Finish
End Sub
Sub lc_Error (ErrorCode As String)
Log("License error: " & ErrorCode)
Msgbox("Not Licensed","License")
Activity.Finish
End Sub