I have a big problem. Yesterday I published my widget on Google
I typed linsensig cod to application design by Erel
all good just a small detail that have written google
of my widget:
This application has access to the following:
Phone calls
read phone status and identity
Allows the app to access the phone features of the device. This permission allows the app to determine the phone number and device IDs, whether a call is active, and the remote number connected by a call.
This is my cod:
Sub Process_Globals
Dim DB_REAL, DB_INTEGER, DB_BLOB, DB_TEXT As String
DB_REAL = "REAL"
DB_INTEGER = "INTEGER"
DB_BLOB = "BLOB"
DB_TEXT = "TEXT"
Dim DBTableName As String
Dim DBFileName As String
Dim DBFileDir As String
Dim DSQL As SQL
Dim publicKey As String
publicKey = "MIIBIjAN..."
Dim test_1 As String
End Sub
Sub Globals
Dim imgk1 As ImageView
Dim imgz2 As ImageView
Dim Label1 As Label
Dim lblmoon As Label
Dim Panel1 As Panel
Dim Panel2 As Panel
Public secret As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim lc As LicenseChecker
Dim p As PhoneId
lc.Initialize("lc", p.GetDeviceId, publicKey, "abcdef".GetBytes("UTF8"))
lc.SetVariableAndValue("test_1","alert")
lc.CheckAccess
If File.Exists(File.DirInternal,"ktm.db") = False Then
File.Copy(File.DirAssets,"kmt.db",File.DirInternal,"kmt.db")
End If
If DSQL .IsInitialized = False Then
DSQL.Initialize(File.DirInternal & "/", "kmt.db", False)
End If
End Sub
Sub lc_Allow
Log("Allow")
End Sub
Sub lc_DontAllow
Log("DontAllow")
ToastMessageShow("Closing application.", True)
ExitApplication
End Sub
Sub lc_Error (ErrorCode As String)
Log("error: " & ErrorCode)
ToastMessageShow("Closing application.", True)
Activity.Finish
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
How to change it to use only the license check and no phone libraries
Please Help !!!
:sign0085:
I typed linsensig cod to application design by Erel
all good just a small detail that have written google
of my widget:
This application has access to the following:
Phone calls
read phone status and identity
Allows the app to access the phone features of the device. This permission allows the app to determine the phone number and device IDs, whether a call is active, and the remote number connected by a call.
This is my cod:
Sub Process_Globals
Dim DB_REAL, DB_INTEGER, DB_BLOB, DB_TEXT As String
DB_REAL = "REAL"
DB_INTEGER = "INTEGER"
DB_BLOB = "BLOB"
DB_TEXT = "TEXT"
Dim DBTableName As String
Dim DBFileName As String
Dim DBFileDir As String
Dim DSQL As SQL
Dim publicKey As String
publicKey = "MIIBIjAN..."
Dim test_1 As String
End Sub
Sub Globals
Dim imgk1 As ImageView
Dim imgz2 As ImageView
Dim Label1 As Label
Dim lblmoon As Label
Dim Panel1 As Panel
Dim Panel2 As Panel
Public secret As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim lc As LicenseChecker
Dim p As PhoneId
lc.Initialize("lc", p.GetDeviceId, publicKey, "abcdef".GetBytes("UTF8"))
lc.SetVariableAndValue("test_1","alert")
lc.CheckAccess
If File.Exists(File.DirInternal,"ktm.db") = False Then
File.Copy(File.DirAssets,"kmt.db",File.DirInternal,"kmt.db")
End If
If DSQL .IsInitialized = False Then
DSQL.Initialize(File.DirInternal & "/", "kmt.db", False)
End If
End Sub
Sub lc_Allow
Log("Allow")
End Sub
Sub lc_DontAllow
Log("DontAllow")
ToastMessageShow("Closing application.", True)
ExitApplication
End Sub
Sub lc_Error (ErrorCode As String)
Log("error: " & ErrorCode)
ToastMessageShow("Closing application.", True)
Activity.Finish
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
How to change it to use only the license check and no phone libraries
Please Help !!!
:sign0085:
Last edited: