Rendre vos programmes limités (ex : 30 jours), ilimités !!!

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 748 fois - Téléchargée 52 fois

Contenu du snippet

Ce programme original permet de rendre vos fichiers limités en temps, ilimités !!!
Pour plus d'infos : www.jeuxenligne.fr.st

Liste des Objets :
- Un timer : Timer1
- Créer un fichier APP.TXT dans le rep du programme avec :
Ligne 1 : Date d'installation du programme (JJ/MM/AA)
Ligne 2 : Programme à exécuter
Ligne 3 : Temps de rétablicement de la date (15 conseillé !)

Vous devez ensuite mettre ces deux fichiers dans le répertoire du programme limité !

Source / Exemple :


Dim da, app, test, temps, v As String
Dim dn As Date
Private Sub Form_Load()
Open "C:\APP.TMP" For Output As #1
Print #1, Date
Close #1
'On Error GoTo Bug
Open "APP.TXT" For Input As #2
Line Input #2, dn
Line Input #2, app
Line Input #2, temps
Close #2
'On Error GoTo 0
Date = dn
test = Shell(app, vbNormalFocus)
Timer1.Interval = temps * 1000
Timer1.Enabled = True
GoTo s
Bug: v = MsgBox("Il y a eu un problème avec le fichier APP.TXT", vbCritical + vbOKOnly, "Date - www.jeuxenligne.fr.st")
s:
End Sub

Private Sub Timer1_Timer()
Open "APP.TMP" For Input As #1
Line Input #1, da
Close #1
Date = da
End
End Sub

Conclusion :


King 2002 - www.jeuxenligne.fr.st

A voir également

Ajouter un commentaire Commentaires
thekingoftheweb Messages postés 68 Date d'inscription mercredi 9 janvier 2002 Statut Membre Dernière intervention 2 décembre 2002
14 janv. 2002 à 20:25
Sapper le logiciel !!!
Zmasteur Messages postés 54 Date d'inscription mardi 31 juillet 2001 Statut Membre Dernière intervention 5 juin 2011
10 janv. 2002 à 20:02
mieux ma verssion je pensse:
http://www.vbfrance.com/article.asp?Val=3164
:-)
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
9 janv. 2002 à 22:33
Oops sorry j'ai ecrit trop vite sans lire plus loin que la 3 ieme ligne de code !
desoler ! :-# j'ai mal compris '
cs_shaoni Messages postés 186 Date d'inscription mercredi 11 avril 2001 Statut Membre Dernière intervention 12 septembre 2007
9 janv. 2002 à 22:22
c'est une blague ? :-)
c'est clair que si quelqun tombe sur une protection pareil il reste dedans !! (de rire)
vaut encore mieux mettre un disclamer ! il a plus de chance d'etre respecter !:-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.