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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 195 fois - Téléchargée 49 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
-
Sapper le logiciel !!!
Zmasteur
Messages postés
54
Date d'inscription
mardi 31 juillet 2001
Statut
Membre
Dernière intervention
5 juin 2011
-
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
-
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
-
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.