test licensing service

[stefanoa]

how can I test if it works properly licensing service in my app ?

I published my app on the market but when i test locally (on my phone) i have the errore LICENSE NOT VALID...

In Process_Globals:

Dim publicKey As String
publicKey = "MII........"
Dim test1 As String

In Main:

'--- initialize a LicenseChecker object

If FirstTime Then
Dim lc As LicenseChecker
Dim p As PhoneId
lc.Initialize("lc", p.GetDeviceId, publicKey, "k.......".GetBytes("UTF8"))
lc.SetVariableAndValue("test1", "vtest1")
lc.CheckAccess
End If

Sub lc_Allow
StartApplication
End Sub

Sub lc_DontAllow
Msgbox("License not valid","nameapp")
ExitApplication
End Sub

Sub lc_Error (ErrorCode As String)
Msgbox("License Error","nameapp")
ExitApplication
End Sub

it's all correct??

 

[Erel]

You should be able to test the license through the market developer console .

Note that if you use obfuscation then you should rename test1 variable to test_1 (otherwise it will be renamed by the obfuscator and not found at runtime).

 

[stefanoa]

thanks.. i use code obfuscation so i've renamed variable in test1_xxx

i use the phone with the same developer account but i've the same error: LICENSE NOT VALID (event lc_DontAllow)...

i don't know if other users have same problem...

:sign0085: