Tools Links Login

Disable program after 100 times used

This code will disable your program after a certain number of runs of the program. more info: worm@thepentagon.com

Original Author: Worm

Assumptions

Put in Form_Load statement. And this code is for 32-bit programming Only!

Side Effects

Don't put this code in while your testing and programming your program because it will then disable you from running your program. more info: worm@thepentagon.com

API Declarations


Code

'put in form_load
retvalue = GetSetting("A", "0", "Runcount")
Worm$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", Worm$
If Worm$ > 99 Then 'put one number lower then it says....you can only run the program 200 times.
MsgBox "This is the end of the trial run",16,"Sorry"
Unload me
End If

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 91 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.