Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité de passage
    Homme Profil pro pierre santoni
    Enseignant Chercheur
    Inscrit en
    mars 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Nom : Homme pierre santoni
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Enseignant Chercheur
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2011
    Messages : 2
    Points : 0
    Points
    0

    Par défaut Installation limitée dans le temps inno setup VB6

    Bonjour à tous,

    Cela est mon premier message, tout d'abord bravo pour ce site que j'ai consulté souvent avant de m'inscrire.

    Ma question est la suivante : comment limiter dans le temps l'intallation d'un logiciel (écrit sous VB6) et empaqueté sous inno setup (merci à l'auteur du tutorial) ?. Je pense à un mot de passe limité dans le temps, mais je ne connais pas le langage d'inno setup.

    je viens d'essayer une solution sous VB6. écriture dans un fichier dans la racine de C, ce fichier est incrémenté de une unité à chaque ouverture du programme et est affecté d'un attribu "caché". Aprés un certain nombre d'utilisation le programme vérouille certaines de ses options. Le dévérouillage peut se faire par un mot de passe codé (je garde ce codage secret) en fonction de la date.

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Dim nbutil As Integer
     On Error Resume Next
     Open "c:\espion" For Input As #1
            Input #1, nbutil
     Close
     Text3.Text = "Nb utilisations restantes " + Str(50 - nbutil)
     mnu_chassis.Enabled = True
     mnu_aide = True
     If nbutil <= 50 Then mnu_debrid.Enabled = False Else mnu_debrid = True
     If nbutil > 50 Then
        a = MsgBox("Version démo en fin de droit d'utilisation")
        mnu_chassis.Enabled = False
        mnu_aide = False
     End If
     SetAttr "c:\espion", vbNormal
     Open "c:\espion" For Output As #1
            Print #1, nbutil + 1
     Close
     SetAttr "c:\espion", vbHidden
    Cela fonctionne correctement, mais il est vrai qu'un informaticien averti pourra trouver, et modifier, le fichier caché.

    Remerciments par avance.

  2. #2
    Responsable Visual Basic
    Avatar de ThierryAIM
    Homme Profil pro Thierry
    Inscrit en
    septembre 2002
    Messages
    3 672
    Détails du profil
    Informations personnelles :
    Nom : Homme Thierry
    Âge : 51
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2002
    Messages : 3 672
    Points : 8 392
    Points
    8 392

    Par défaut

    n'écris pas en clair le nom du fichier, sinon il apparaitra dans l'exe avec un éditeur Hexa

    Fais une concaténation de chr()

    Code :
    1
    2
    Dim SpyFile as String
    SpyFile = chr(101) & chr(115) & chr(112) & chr(105) & chr(111) & chr(110) ' e & s & p & i &o & n
    Vous vous posez une question, la réponse est peut-être ici :
    Toutes les FAQs VB
    Les Cours et Tutoriels VB6/VBScript
    Les Sources VB6


    Je ne réponds pas aux questions techniques par MP. Utilisez les forums. Merci de votre compréhension

    MioSkins.org : le site de référence pour GPS et PDA Mitac MIO
    iPHONIX.fr : le must francophone des infos pour iPhone, iPad, ...

  3. #3
    Invité de passage
    Homme Profil pro pierre santoni
    Enseignant Chercheur
    Inscrit en
    mars 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Nom : Homme pierre santoni
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Enseignant Chercheur
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2011
    Messages : 2
    Points : 0
    Points
    0

    Par défaut re limitation d'utilisation de programme VB6

    Merci Thierry pour l'astuce, je suis un peu confu, j'aurais pu y penser.

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •