Sub Process_Globals
Dim publicKey As String 'wird von google-market bereitgestellt
publicKey = "...usw..."
Dim IsReg As String : IsReg=0
'usw
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Dim lc As LicenseChecker
Dim P As PhoneId
lc.Initialize("lc", P.GetDeviceId, publicKey, "hkzzudz6zutfgfg".GetBytes("UTF8"))
lc.SetVariableAndValue("IsReg","1")
lc.CheckAccess
DoEvents
End If
'
Activity.LoadLayout("Start")
If IsReg=0 Then
Activity.Title = "Meine App FREE"
Else
Activity.Title = "Meine App PRO"
End If
'
End Sub