jampayeshe
New member
Hello!
I’m already starting to get used to the fact that there is no difference whether the program is paid for or not – anyway, technical support responds for a very long time. We can only hope that one day you will answer.
I have already written about some problems related to online sales before. But now, there are more specific questions that take into account some of your answers. Due to the lack of answers, the start of my project is greatly delayed. And I bear losses. Although I paid for your program, I can’t use it, because there are so many unresolved issues.
First, I’ll tell you what I need in the end. (I will clarify right away that we are talking about the sale of subscriptions through the site).
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
IsTrial = XLSPadlock.PLEvalVar(“IsTrial”)
Exit Function
Err:
IsTrial = False
End Function
This function is of little use, since it always shows that the program is a trial version.
But in essence, all licenses are trial, since they have their own expiration date:
I must have five versions of the program. 1) - A downloaded file that should work for all users for one day without entering a key; 2) A license for 3 days; 3) A license for 7 days; 4) A license for 30 days; 5) A license for 1 year.
Only the first option (trial version) should be shown as a trial version. But your code shows that all versions are trial versions, since they have their own expiration date. And what is the solution?
4) The user should always have up-to-date information about how many days are left before the license ends.
In this case, you have provided the following code:
Public Function ReadTrialState()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
ReadTrialState = XLSPadlock.PLEvalVar(“TrialState”)
Exit Function
Err:
ReadTrialState = “”
End Function
You can then call the function:
Sub Test_Trial()
rdays = ReadTrialState()
Worksheets(“Sheet1”).Range(“A1”).Value = rdays
End Sub
But even if you apply these functions without changes, then 0 is always displayed in cell A1.
Thus, it is generally unclear how the functions you specified can help if they do not work.
I eventually need the following (including questions):
I’m already starting to get used to the fact that there is no difference whether the program is paid for or not – anyway, technical support responds for a very long time. We can only hope that one day you will answer.
I have already written about some problems related to online sales before. But now, there are more specific questions that take into account some of your answers. Due to the lack of answers, the start of my project is greatly delayed. And I bear losses. Although I paid for your program, I can’t use it, because there are so many unresolved issues.
First, I’ll tell you what I need in the end. (I will clarify right away that we are talking about the sale of subscriptions through the site).
- The Exe file must be shared by all users without entering a license key. I didn’t find such an opportunity. You must specify the key. But why do you need it if this is a trial version for review, which only works for one day?
- If there is no way to avoid entering the license key even for the trial version, then what about the fact that there is a hardware lock? When the program is linked to a specific computer, does this mean that the trial version must also have a unique key for each user? If I distribute a file with a free trial subscription for one day, does this mean that I have to provide a unique key for the trial version for each user? This is inconvenient! This is absurd! I need any user who downloaded the file to be able to use the program without any keys for one day.
- In case the user is cunning and does not close the program, you have two solutions:
3.1) The code that determines whether the program is registered or not:
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
IsTrial = XLSPadlock.PLEvalVar(“IsTrial”)
Exit Function
Err:
IsTrial = False
End Function
This function is of little use, since it always shows that the program is a trial version.
But in essence, all licenses are trial, since they have their own expiration date:
I must have five versions of the program. 1) - A downloaded file that should work for all users for one day without entering a key; 2) A license for 3 days; 3) A license for 7 days; 4) A license for 30 days; 5) A license for 1 year.
Only the first option (trial version) should be shown as a trial version. But your code shows that all versions are trial versions, since they have their own expiration date. And what is the solution?
4) The user should always have up-to-date information about how many days are left before the license ends.
In this case, you have provided the following code:
Public Function ReadTrialState()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
ReadTrialState = XLSPadlock.PLEvalVar(“TrialState”)
Exit Function
Err:
ReadTrialState = “”
End Function
You can then call the function:
Sub Test_Trial()
rdays = ReadTrialState()
Worksheets(“Sheet1”).Range(“A1”).Value = rdays
End Sub
But even if you apply these functions without changes, then 0 is always displayed in cell A1.
Thus, it is generally unclear how the functions you specified can help if they do not work.
I eventually need the following (including questions):
- The user downloads a common exe file for all.
- He does not enter any keys and freely uses the program for one day.
- The use of the program can be measured in minutes. Is it possible to notify the user that the use of the program is not one day left, but, for example, 15 minutes?
- When you first run the exe file, how does the time count down? If the limit is set to one day, what does it mean? If the file was launched for the first time at 12: 00 on the user’s computer time, then it will only work until 12: 00 the next day? Is it possible to count the remaining time, which is measured in minutes? After all, the user can see a message that there is one day left, but in fact there are five minutes left.
- When the user has only one day left, it is necessary that the corresponding message pops up. Is this implemented somehow? It is clear that you can use VBA. But the code that you provide does not work. But even if you fix it, it will only inform you that the deadline has expired. And it is necessary that a message pops up with an offer to buy a license to use the program for a certain number of days. That is, not only information should pop up, but also a button that leads to the subscription payment site.
I will be eternally grateful to you for providing all the answers step by step.
I will tell you right away that your compiler is much inferior to your competitor https://doneex.com/
Your competitors have more advanced VBA protection. The entire VBA code is fully protected there, and at the same time the program even speeds up. There, all the code is translated into a binary system. And at the same time, the user does not need to do anything particularly complicated. It’s very simple. The only reason why I chose your company is the online sales function. But in practice, your products turned out to be very difficult for the implementation of my tasks. I sincerely hope that you can help me set up everything in accordance with my wishes. Otherwise, I will have to admit that your program has no practical application due to all sorts of errors.