Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




System Date && License Expiry


When a user enters a license key into my software, the key generates a date (which is stored in the registry), when the software "license" will expire. Obviously by altering the system date and time renders my license just about useless in terms of "licensing".

The users that will be using the software are quite experienced but not enough to go through the registry. Does anyone have any advice to lend concerning what I could do to maybe stop people tampering.

The OS it is running on is Windows 98, if it was Win 2000 I would have probably just not given them any rights to the clock.

Regards and Thanks in advance!

Matt.




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Expiry Date
Hi all,

I would like to check a date input against the current date + #months/days

how do i access the current date through vb ??

and could someone point me in the right direction of adding #months/days to the date and then validating against date input...

TIA.

Osk.

Expiry Date
Ok. I've made a program that stores all it's top secret information in the tempory file folder during runtime. When the program finishes executing, that file is deleted. Now here's my problem:

Suppose windows crashes or something and the program is not been able to shut down properly. Then the file remains in the temp directory. Is there anyway to overcome this problem. I heard that there is something called expiry dates for tempory files. Like in a certain number of days the file deletes itself or something like that. Is there some way to set the expiry date.

Thanks

Expiry Date....help!
Hi can anybody help me..
I'm trying to take a date from a text file,
put it into a variable varExpiryDate, and compare the
ExpiryDate with the varDateNow variable..


If varDateNow >= varExpiryDate Then
MsgBox "This Program has reached the end of its time
limit."
End
End If

the previous code works if I manually put in the date instead of the variable varExpiryDate, #12/4/00#

The code to find the date is something like this

If InStr(TextLine, 1) = #12/5/00# Then
varExpiryDate = #12/5/00#
Call TimeLimit
End If


the date in the text file is written 12/5/00


if anyone can help I would be most grateful.
cheers
skat

Creating Expiry Date
Can someone help me in creating an expiry date program?

How To Set Expiry Date Of Application
How do i set an expiry date for my application.
Say for example i dont want it to open after 1 year?
Plz help.

Expiry Date On Application
I just completed my first application using VB (access db), and I am ready for the clients to test it. However, I would like to put an expiry date on it and am not sure how to go about this, or if it is even possible. Essentially we have set the test period for 4 weeks, and after that, if they are happy with the prototype developed, then we will move to the next phase of development. We, therefore don't want them to be able to continue using the "prototype" instead of purchasing the final product, but we don't want to lose their data either (they need to be able to take their data with them even if they don't take the product). They will be installing the setup on their system, and the db will be located on their server as well.

Any help will be appreciated!

Thankx, Addie

Simple Database With Expiry Date
how to create this one..

we have 1 text box for name, 1 text box for registered date and 1 text box for expiry date

example: you register Your Name:

e.g

John Volt
DATE REGISTERED: 09/24/06
EXPIRY DATE: 09/31/06

after the date of expirty delete the john volt record..

Setting Expiry Date For VB Software
Any one pls let me know, How to set the expiry date for a VB software.I've developped one software using VB,and want to distribute the evaluation copy which should work for only one week.first i thought to set the date(from system date) in one encrypted hidden file ,which would become useless when the user deletes that file.so any one pls help me to set the details in registry or ini file...
Thanks in advance.

Message Box To Capture List Of Expiry Date
Dear all,

I have 3 worksheets representing product A, B and C to monitor the expiry dates of each product. All these worksheets have same format with column A for Product Code and column B for Expiry Date. The expiry dates are sorted in ascending order.

My requirement are:
1) A message box will remind me with product code if it is going to expire within 7 days.
2) After the prompt message of each expired products, I would like to have a final message box which list down all the expired products from worksheet 1, 2 and 3.

My problem lies on the second requirment which sees it captures product codes from worksheet 1 i.e. Product A only and leaves out other worksheets. Appreciate for your assistance to review the below codes. Thank you.

Private Sub Workbook_Open()

Dim LRow As Integer
Dim LResponse As Integer
Dim LName As String
Dim LDiff As Integer
Dim LDays As Integer
Dim ref(5) As Variant, refdate(5) As Variant, c As Integer, i As Integer, refmsg As String
c = 0
LRow = 2
LDays = 7
refmsg = "Referenceate Due" & vbCrLf

While LRow < 200
'Check Product A
If Len(Sheets("Product A").Range("B" & LRow).Value) > 0 Then
LDiff = DateDiff("d", Date, Sheets("Product A").Range("B" & LRow).Value)
If (LDiff >= 0) And (LDiff <= LDays) Then
ref(c) = Range("B" & LRow).Offset(0, -1).Value
refdate(c) = Format(Range("B" & LRow).Value, "dd/mm/yyyy")
c = c + 1
LName = Sheets("Product A").Range("A" & LRow).Value
LResponse = MsgBox("The AW Reference No. for " & LName & " will due on " & LDiff & " days.", vbCritical, "Warning")
End If
End If

'Check Product B
If Len(Sheets("Product B").Range("B" & LRow).Value) > 0 Then
LDiff = DateDiff("d", Date, Sheets("Product B").Range("B" & LRow).Value)
If (LDiff >= 0) And (LDiff <= LDays) Then
LName = Sheets("Product B").Range("A" & LRow).Value
LResponse = MsgBox("The BW Reference No. for " & LName & " will due on " & LDiff & " days.", vbCritical, "Warning")
End If
End If


'Check Product C
If Len(Sheets("Product C").Range("B" & LRow).Value) > 0 Then
LDiff = DateDiff("d", Date, Sheets("Product C").Range("B" & LRow).Value)
If (LDiff >= 0) And (LDiff <= LDays) Then
LName = Sheets("Product C").Range("A" & LRow).Value
LResponse = MsgBox("The CW Reference No. for " & LName & " will due on " & LDiff & " days.", vbCritical, "Warning")
End If
End If

LRow = LRow + 1

Wend

'-------------------------------------------------------------------

For i = 0 To c - 1
refmsg = refmsg & ref(i) & ":" & refdate(i) & vbCrLf
Next i
MsgBox refmsg, vbOKOnly, "Expiry Dates"
'PROBLEM : The msgbox captures data from worksheet "Product A" only.
'-------------------------------------------------------------------



End Sub

Data Validation For Expiry Date And Email Address
How do I create a data validation to an expiry date for a credit card number?
For example, I need a code so that a value of only 1-12 is acceptable for the
month and 05 (or greater than) for the year. how do i assign these codes to a command button so that when the button is pressed, the customer is informed about wether the code is correct or not.

Lastly, how do i create a data validation for an email address so that the '@' symbol is entered

Software Licence Expiry Date / Adjusting Windows Time
We have produced a small licence activation bolt on for a our software, which allows the user to activate their copy of the software. After confirming activation with us it logs the activation date on the local machine. This is then used to calculate when the software should expire.

We will know when the time is up and our central system will reinvoice the client. However, we can't stop the client cancelling the subscription and adjusting the Windows time to keep the software running.

We have considered using the BIOS date rather than the Windows date, however we came accross problems coding this (nasty code), besides the BIOS time is not always correct!!

I have some ideas for how to at least detect if the client has changed the time, but wondered if there was an excepted solution to this problem. I can't find anything out there, and am sure that we are not the first people to want to do this!!

Any ideas would be gratefully received...
 

License System
can some body help me out with my License system....
I want it so when you open the Application you enter the forum where you have to enter your username and your license key.. Could enybody help. Please and thank you

Check For Expire Date In License File In VB
Hello,

I have to create a demo version of our application.

I have a Question about the expire date of license file.
How to check for the 30 day from the installation date.
Is there any way to get the installation date and count
for 30 days from that date and make the system non functional
after 30 day.

Eventhough the system date is modified to some other
date this has to expire within 30 day.
If anyone knows about it please give me some idea.

Thank You

Regards
Rechen

Setup Cannot Continue Because Some System Files Are Out Of Date On Your System.
I realized that many people, just like myself, were having problems with the Package and Deployment Wizard for VB 6.0 and when trying to install their program on another PC they were getting the following message:

"Setup cannot continue because some system files are out of date on your system. Click OK if you would like setup to update these files for you now. You will need to restart Windows before you can run setup again. Click cancel to exit setup without updating system files."

Microsoft addresses this issue in their Help and Support and proposes 8 solutions.

However, I found out that the problem was coming from the Bootstrap files in the Setup.LST file.
If you open Setup.LST (generated with the wizard) you'll see something like this:

[Bootstrap Files]
File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3 25 99 11:00:00 PM,101888,6.0.84.50
File2=@MSVCRT40.DLL,$(WinSysPathSysFile),,,5 30 98 11:00:00 PM,326656,4.21.0.0
File3=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5 30 98 11:00:00 PM,22288,4.71.1460.1
File4=@stdole2.tlb,$(WinSysPathSysFile),$(TLBRegister),,8 23 01 1:00:00 PM,17920,3.50.5014.0
File5=@asycfilt.dll,$(WinSysPathSysFile),,,8 4 04 8:56:41 AM,65024,5.1.2600.2180
File6=@olepro32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8 4 04 8:56:44 AM,83456,5.1.2600.2180
File7=@oleaut32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8 4 04 8:56:44 AM,553472,5.1.2600.2180
File8=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8 4 04 8:56:43 AM,1392671,6.0.96.90

Files 1 through 3 are needed to run your VB 6.0 program, but Files 4 through 8 were the ones that were "out of date" and caused the error. Since the host PC will most certainly have these files, there is no need for your program to install them (or even update them). So you can just insert a colon ";" in front of the lines for File 4 through 8 for the installation to ignore these commands.

So open your Setup.LST and change it like this:

[Bootstrap Files]
File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3 25 99 11:00:00 PM,101888,6.0.84.50
File2=@MSVCRT40.DLL,$(WinSysPathSysFile),,,5 30 98 11:00:00 PM,326656,4.21.0.0
File3=@COMCAT.DLL,$(WinSysPathSysFile),$(DLLSelfRegister),,5 30 98 11:00:00 PM,22288,4.71.1460.1
;File4=@stdole2.tlb,$(WinSysPathSysFile),$(TLBRegister),,8 23 01 1:00:00 PM,17920,3.50.5014.0
;File5=@asycfilt.dll,$(WinSysPathSysFile),,,8 4 04 8:56:41 AM,65024,5.1.2600.2180
;File6=@olepro32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8 4 04 8:56:44 AM,83456,5.1.2600.2180
;File7=@oleaut32.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8 4 04 8:56:44 AM,553472,5.1.2600.2180
;File8=@msvbvm60.dll,$(WinSysPathSysFile),$(DLLSelfRegister),,8 4 04 8:56:43 AM,1392671,6.0.96.90

Save it, close it, and try installing your program again.

Note: You may have other DLL files than those listed above, so you have to make sure which ones are the one out of date.

Hope this helps some of you out there.

Setup Cannot Continue Because Some System Files Are Out Of Date On Your System
Hi,
I am getting this error when i am trying to install my application in client workstations. the application was developed in office xp sp2. it's working without any problem in some computers but not in few xp computers and all of windows 2000 computers. i tried running vb60.exe and scripten.exe. i read that updating oleaut32.dll can also solve the problem. so i copied that file from my computer to those computers and it worked in one but didn't in others.

anyway i can solve this problem?

Setup Cannot Continue Because Some System Files Are Out Of Date On Your System.
Hi,

I am having problem in installing the VB package into one of the computer. I packaged all my VB installation files using PDWizard, and I have successfully installed it on the other computer. Both computer are running Windows XP.

This is the error that I've got:

Setup cannot continue because some system files are out of date on your system. Click OK if you would like setup to update these files now. You will need to restart Windows before you can run setup again. Click Cancel to exit setup without updating system files.

I have tried to restart and reinstalled, but it prompted me the same error message again and again. I have update the MDAC to version 2.8. I have also tried to disable the Norton Antivirus since I read that maybe the .olb file in Norton uses different version as Windows.

Did anybody encounter this problem before? I would appreciate if you can give me any solutions.


Thanks,
Jenty

[SOLVE]I Need A SQL Command, How To Use Date Minus With System Date Know Its Last..
I need a SQL command, how to use date minus with system date know its last 3 day?

how to minus the date to know still have how many day left, but minimum but have 3day.... compare to system date...??


Code:
SELECT ProductNo, Gendate from ProductInfo
WHERE Gendate - date() = 3
GROUP BY ProductNo, Gendate

Retrieve Date From Novell Server (not System Date)
Hi,

I'm looking for a way to retrieve the date (with or without the time
portion) from our Novell server on the network (rather than the machine's
system date) and store it in a timestamp variable, all from within a VB
program. But, I don't want the system date of the individual machine running
the program to be changed in the process.

Does anyone know if this is possible or even how I would go about doing this
from within my VB program?

Thanks for your help.
Donna

Comparing System Date With Fixed Date
Hi

Back again! (great site - very helpful)

Is it possible to compare the system date with a written date?
I've shown the current date by:

Label1.caption = date

I've a list box which has several dates which the user clicks
on to obtain information for that particular date. These dates I've displayed by just putting them in quotes i.e. "10th April 2001".

Can I check these dates against the system date and disable the choice should the date have passed?

Any help gratefully received

TKS

Ben

Tracking Of Date Time Without System Date
Hello again

Yeah am back with a q again ....

I need to keep track of the date and time without using the system date as that can easily be changed and with the change of date my software will hinder a lot .......

Harris Moin

Money System, Date System, Etc.
I am trying to create my first "Wrestling Simulator" and I have gotten stuck on trying to make the money system, date system, save system, and wrestler system work. I need to figure out how to make the money go up in certain cases and vice versa and when at 0 I need it to end the game. In the case of the Wrestler System, I need to find out how to make it say the name of the wrestler in matches, news, etc. without having to add 5x the amount of coding for each. The Date system and Save system are pretty self explanitory.

System Date And System Time
(on click of command button) how do i save the text in a textbox to a .txt file with "Log - " + system date + " - " + system time ? into the application's folder...

"Setup Cannot Continue Because Some System Files Are Out Of Date On Your System"
Hello,

I've created an install program with the package & deployment wizard that ships with vb6. When i try to intall my program on windows 2000 (can't really say if it is just windows 2000 at this point) I get the error:

"Setup cannot continue because some system files are out of date on your system. Click OK if you would like setup to update these files for you now. You will need to re-start windows before you can run setup again. CLick cancel to exit setup without updating these files."

It seems no matter how many times I click ok and re-start the system, the message continues to pop up and wont let me install the program. Any suggestions?

Also, when i do successfully get the install to work on certain machines, it displays:

"An error occured while trying to register the file "C:windowssystem32msado25.tlb"

Ideas?

Thank you.

Program Expiry
Now, i checked the past posts on this, but i didn't understand them. Can somebody please tell me how to make a program expire at the end of the month. If someone could post an example of how to do it, with some code, i would really appreciate it, cz i don't know how to do most things, e.g. make registry entries

How To Check If A Password Has Expiry...
I want to check if a particular password has expire for a particular user in the active directory.

how can i do it?

provide code if possible.

thanks

Trial Program Expiry
What is the best way to make a 15-day demo?

Yes I've used the "search" button. But the codes that I found are not fool-proof.


My current method is to store the encrypted installation date in the registry. And whenever user opens the program, use the DateDiff function to see if it is over 15 days from the date of installation.


Apparently, that method has many holes.

1. I can change my comp date to something like "1/Jan/2337" before installing the program. After installaion, I change it back to year 2007. I will be able to use the demo program forever.

2. I can roll back to the installation date and keep using the demo forever..

How to prevent these?

Expiry Module Not Functioning
I use a very simple system for controlling the expiration date of trial versions of my software - a .bas file containing just the following code:

Attribute VB_Name = "Expiry"
Public Sub Main()
If Format(Now, "mm/dd/yyyy") < "12/31/2004" Then
    frmMain.Visible = True
Else:
    frmExpire.Show
Exit Sub
End If

End Sub


I've been using this method for a long time and everything has been fine. Now when I change the date to anything in 2005, however, it no longer works and the software is treated as though it's already expired.

Any ideas what could be causing this aberrant result?

Thanks very much and Happy New Year!

Stephen

Formatting A User Settings Date To A System Settings Date For Access
Hi,

I have been trying to look for this on the forums somewhere, but to no avail.

I'm sure this is a common problem for people having to write code to support different locales using Access.

When looking for records (ie when performing an SQL statement with the 'WHERE' in it, Access only returns the system settings locale (ie the US one where short date is read as mm/dd/yyyy), but any date we enter using Date or Now uses the user settings date. Forcing a Format of Now to mm/dd/yyyy does not work as it passes the user settings date.

My question is then, how can I force a date to take the system settings date so no matter what date I have it will always be Access friendly.

E.g: Here's an example

1) User settings short date: d.M.yy

2) Format (Now, "mm/dd/yyyy") returns

8.4.02 and NOT 04/08/2002, which is what Access expects.

Date$ reads the system settings date but can it be used somehow to force a user settings date ???

This is urgent. Many thanks.

Mike

Time Limit && Program Expiry
Hi Gurus,
I want to do some test or some experience:
After finish developing a program, I want to set up a "time limit" for USER(s) to use it. For example, I want to set one year time limit for user to use it, this means, after one year, the program will expire, where should I write the code? and what kind of code should I write?
Thanks.

How To Write A Expiry Counter Code In VB
I have a VB program which wants to add an expiry counter code in it. This expiry counter is to count the date which the program is installed for the customer, if the program has used for 30 days, a message will pop up saying that the program is already expired.
I don't know how to write the code for this date counter. Please help ASAP. Thanks!

Dategood Function && Time Expiry Program
Hi,

I'm using an extract of code posted on this site, written by Sir Reginald Wheat. It uses the DateGood function.

The code I copied has DateGood(30) - that is, the app will expire after thirty days.

Is DateGood workable up to any number of days? I mean I want my program to expire after a year, DateGood(365), so I just want to know of any limitations on the DateGood function.

Thanks.

Using System Date
I would like to be able to pull the date off the computers system into a Vb program is this possible and if so how do you do it any help would be greatly appreciated

System Date
can any one here tell me how to get the system date from windows. I am creating a text file in one of my programs and I want the name of the file to include the date. So any help would be appreciated.

Get System Date?
Hi,

I was wondering if there is a quick way to get the system date, then compare it to see if it is still before August 1, 2002?

System Date
How do I read the system date and after a specified number of days, make something happen. Such as, I'm making an alarm program to remind myself to do certain things. I want a MsgBox every 10,20,500 etc. days. How do I do this? I want to have a text box for the number to input, and every whatever the number of days is, I want the msgbox at that point.

System Date?
Hi,
Just wondering, whats the value that VB uses to store the current system date? For instance, if i want a label to display the current system date always, it would be Label1.caption = ?????????
thanks

System Date
Hello experts,

I'm writing a program with VB5/Access 97 and was wondering if there is a simple way to force all users to use one central system date rather than the date they have on their local windows system.

Any held would be greatly appreciated.

Cheers

PK

VB6 And US Date System
Hi,
I'm making a little app....the user is asked to insert a date in a text box in which it's already dispayed the current day using Now function.
I'm in Italy so here I get : dd/mm/yyyy

I was wondering if the software is used in the US the date displayed will change format to mm/dd/yyyy or not.
Thanks.

To Get System Date
Hello friends,

I am writing one program in vb6 and access in which I want to manipulate a record depending on the system date. e.g. of current date is matching with course end date of the student, i want to transfer record of that student to another table which stores record of the records of students who has finished course. but now my doubt is that if u compate it using date function of vb and if someone changes date of the system, it will not work properly, is there any other way to do the same? I don't want my data to lost if someone by mistake do the same? plz help

regards
damini

System Date
does anyone have any idea on how to make a label display the system month on the form_load event

i need it to display it as text rarther than a number

for example January

How To Get System Date In Vb
Hi,

how to get the system date in vb?

regards,
yuki

System Date
Hi All,

I am using system date in my application. My system Date and Access date format is same (mm/dd/yyyy).

But when i change my system date the comparison of the system date with the database date is differing.

How can i solve this?
Is not good to use system date?

Regards

Nagendra K.

System Date
Hi guys, yes it's me again with some stupid question.

Now don't laught until I'm finished.

I want to know how to see if someone changed the system date. The reason for this is I want to put a sort of limit on my software so that users can only use it for a certain period just like trail version sofware. And then the user must contact me to give him a key after he paid for the software so that he can use my sofware again for a cetain period.

Now there must be alot of examples out there and I was wondering if someone could help me with this because I don't want to reinvent the weel again.

Thanks in advance

Fix The System Date
is it possible to code that someone can never change the system date.
Say I can fix it to 10 june 2002. at present I have nt server and any one having admin password can change it.

System Date
hi, does nayonw know how to change the system date *format*?
like D/M/YY to DD/MM/YYYY? does any one know?

Getting The System Date
HI ,
I am using an SQL query in Crystal reports .. The query is based on date.. Currently the date is hardcoded .. is there a way to specify the current date withing the query in Crystal so that the Query gets the date from System ...

Thanx

Set The System Date
Does anyone remember the "set date to" in foxpro?

with this sentece you set your app to use the date format you want.

My Q is: How can i do that in VB6?

Set System Date In VB6
Hey Guys,

Can someone point me to a good VB6 syntax reference guide? I need help with the Time function, specifically setting the system time.

How To Set System Date ?
Dear All:

does anyone know if there is built in funtion/external function to set the System Date, without leaving VB ?

Copyright © 2005-08 www.BigResource.com, All rights reserved