Creating 30 day trials for my VB applications

[Jayachandra]

Helo everybody,

HOw can we make an Application to 30 days trail program & HOw to Update the same Application for a client ?

thank you.

[willakawill]

Hi. You can download the full version of vb 2005 from microsoft's website to try it out for free. All of the trial downloads are here

[Roldan]

I think what Jayachandra is asking is, how can one make a trial application in vb (30 days for example) and how to update that application once a customer has paid? for the full application rights....

Methinks.

Too bad I don't know how to do that either, otherwise I would help!!!

Roldan

[willakawill]

I think what Jayachandra is asking is, how can one make a trial application in vb (30 days for example) and how to update that application once a customer has paid? for the full application rights....

Methinks.

Too bad I don't know how to do that either, otherwise I would help!!!

Roldan

Oh I see. Good pickup
This is a registry issue. You need to store the date that the app is installed in the registry encrypted. You access that date each time the app is used and disable the app if you pass the 30 day limit. You also need a separate encrypted access code to disable the timer feature.

[VBman]

Here is a simple solution suitable if you are distributing programs in bulk.
Paste this code into a sub-routine that is called on start-up
What the routine does is allow uninterrupted use until 31May07.
After that date and for a month after it will allow use but a polite reminder (in frm.Licence) prompts the user to register.

'This routine checks the validity of a licence
'The first bit is the reminder if used after the date shown

If (DateDiff("d", "31/05/2007", Now) > 0) And (Time > StartTime + TimeSerial(0, 1, 0)) Then
frmLicence.Show
StartTime = Time
End If

'This next bit disables program after the date specified
If (DateDiff("d", "30/06/2007", Now) > 0) Then
frmLicence.Show
SSTab1(0).Enabled = False 'This line can be anything to disable program
End If


Hope this helps you.