Rendre vos programmes limités (ex : 30 jours), ilimités !!!
Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 233 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é !
King 2002 - www.jeuxenligne.fr.st
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
- 2dnline
- Date à la limite de 30 jours. Pas normal... ✓ - Forum - Delphi / Pascal
- Rendre vos programmes indépandants des ocx ou dlls - Codes sources - Visual Basic / VB.NET (Exécution)
- Vider une table après 30 jours - Codes sources - SQL (Procédure)
- Visual Basic / VB.NET : Trial de 30 jours - CodeS SourceS - Guide
- Rendre un programme C++ windows compatible sous Linux ✓ - Forum - C++ & C++ .NET
Commentaires
http://www.vbfrance.com/article.asp?Val=3164
:-)
desoler ! :-# j'ai mal compris '
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.