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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (thekingoftheweb)