VB icon

Disable program after 100 times used

Email
Submitted on: 1/2/2015 1:18:00 AM
By: Worm (from psc cd)  
Level: Not Given
User Rating: By 39 Users
Compatibility: VB 4.0 (32-bit), VB 5.0, VB 6.0
Views: 589
 
     This code will disable your program after a certain number of runs of the program. more info: worm@thepentagon.com
 
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
				
'**************************************
' Name: Disable program after 100 times used
' Description:This code will disable your program after a certain number of runs of the program. more info: worm@thepentagon.com
' By: Worm (from psc cd)
'
' Assumes: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
'**************************************

'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


Other 1 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Not Given category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments


 There are no comments on this submission.
 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.