Version Démo "TRIAL"

Question

Salut,
Comment pourrais-je faire un code qui permet de compter le nombre de jours pour que mon application soit une version DEMO qui va etre expir&#233;e apr&#233;s un mois avec la possibilit&#233; de controler la date syst&#233;me si elle a &#233;t&#233; r&#233;duite (trafiqu&#233;e).

et merci d'avance.

cs_hassen · Answer

t'a qu'a sauvegarder la date systeme dans les base de registre chaque fois que le programme est lancer dans une variable dateDerniereExecution et si c'est la premiere fois que le programme est executer tu sauvegarde variable DateFinEssai la date systeme +30 et chaque tu verifie si la datesysteme est comprise entre la DateDerniereExecution et la DateFinEssai 

Hassen TUNISIE

ThomasCo · Answer

Bonne id&#233;e, mais pourriez-vous me donner un code VB ,  parce que je n'ai jamais travailler avec la base de registre en VB 
et Merci.....

OneHacker · Answer

VB ou VB.Net ?

Si c'est VB.Net, je pourrais faire une source pour &#231;a. 

Redman

cs_hassen · Answer

il plusieur source sur vbfrance qui traite les ecritures et la lecture du base de registre

Hassen TUNISIE

cs_hassen · Answer

voici une qui traite les bases de registre
http://www.vbfrance.com/code.aspx?id=7040

Hassen TUNISIE

cs_frop01 · Answer

Salut,



Voici le code qui convient &#224; tes besoins :



http://www.a1vbcode.com/app-153.asp



@+

PS: Si votre probl&#232;me est r&#233;solu, pri&#232;re de bien vouloir cl&#244;turer votre message par une r&#233;ponse accept&#233;e !

mythic_kruger · Answer

Pour lire et &#233;crire dans le registre il existe un autre moyen, plus l&#233;ger: avec les instructions SaveSetting et GetSetting. 



' Variant devant contenir un tableau &#224; deux dimensions  retourn&#233; par la fonction GetSettings

Dim MySettings As Variant

' Place des param&#232;tres dans la base de registres.

SaveSetting "MyApp", "Startup", "Top", 75

SaveSetting "MyApp", "Startup", "Left", 50



Debug.Print GetSetting(appname:="MyApp", section:="Startup", Key:="Left",  Default:="25")

'effacer la cl&#233; et les valeurs

'DeleteSetting "MyApp", "Startup"



Les valeurs sont stock&#233;es quelque part dans le registre, &#224; toi de les crypter avant &#233;criture.



Noter &#233;galement que le registre n'est pas le meilleur endroit pour stocker cette valeur

 (puisque si la cl&#233; est identifi&#233;e et effac&#233;e manuellement, efficacit&#233; 0); 



Noter aussi que, question fiabilit&#233;, se r&#233;f&#233;rer &#224; une date syst&#232;me n'est pas la meilleure solution pour d&#233;terminer une p&#233;riode d'essai.

Version Démo "TRIAL"

7 réponses

Discussions similaires