Discussion :

[Gildas22]

Bonsoir,

Je suis sur le développement du code pour effectuer une version trial de mon application. J'ai trouver des exemples de codes utilisant "les paramètres" de l'application

Cette solution est efficace si le déploiement de l'application est faite en fournissant seulement l’exécutable de l'application mais si le déploiement est réalisé avec un setup d'installation de l'application et des composants nécessaires alors le code réalisant la partie trial est inefficace si l'application est désinstallée puis réinstallée après le délai de fin de la période d'essai.

Je pensais développer une solution qui utiliserai la base de registre mais en parcourant la base de registre (HKEY_LOCAL_MACHINE/SOFTWARE/) de mon pc où j'ai installé l'application via le setup je ne trouve pas de dossier portant le nom de mon application.

Est-ce normal ?

Merci de votre aide.

[wallace1]

Bonjour cela dépends comment est paramétré ton assistant d'installation mais normalement voici les emplacements depuis lesquels sont disponibles les informations d'applications installées :

A parcourir si ton OS est un 32 bits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

A parcourir en complément (de la clé 32bits) si ton OS est un 64 bits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall

A+

[Gildas22]

Bonjour cela dépends comment est paramétré ton assistant d'installation mais normalement voici les emplacements depuis lesquels sont disponibles les informations d'applications installées :

A parcourir si ton OS est un 32 bits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

A parcourir en complément (de la clé 32bits) si ton OS est un 64 bits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall

A+

Bonjour wallace1,

Merci pour ta réponse.

Mon OS est un 32 bits je suis donc aller voir dans la base de registre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

Cependant je n'ai trouvé aucune trace d'installation de mon application.

L'explication vient peut-être du paramétrage de mon assistant d'installation comme tu me l'expliques au début du post.

Comment puis-je accéder a ce paramétrage ? car j'ai cherché via my project => publier mais je ne trouve pas de relation avec le paramétrage

[noftal]

Bonjour,

Ci-dessous 2 fonctions qui permettent d'authentifier l'ordinateur et donc empêcher le contournement par une désinstallation/réinstallation.

Revers de la médaille (on n'a rien sans rien) : si l'utilisateur a acquis la full-license, il la perdra lorsqu'il changera d'ordinateur. Il faut donc bien dire dans le CLUF que la licence est valable pour un seul ordinateur et perd sa validité en cas de changement de celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  Public Function GetMacAddress() As String
 
        Dim Result As String = ""
        If (System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces().Count() > 0) Then
            Result = BitConverter.ToString(System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()(0).GetPhysicalAddress().GetAddressBytes())
        End If
 
        Return Result
 
    End Function
 
    Public Function GetProcessorRef() As String
 
        Dim ProcClass As New System.Management.ManagementClass("Win32_Processor")
        Dim Procs As ManagementObjectCollection = ProcClass.GetInstances
        Dim Proc As ManagementObject
        For Each Proc In Procs
            GetProcessorRef = Proc("ProcessorId").ToString
            Exit For
        Next Proc
 
    End Function

[Gildas22]

Bonjour,

Ci-dessous 2 fonctions qui permettent d'authentifier l'ordinateur et donc empêcher le contournement par une désinstallation/réinstallation.

Revers de la médaille (on n'a rien sans rien) : si l'utilisateur a acquis la full-license, il la perdra lorsqu'il changera d'ordinateur. Il faut donc bien dire dans le CLUF que la licence est valable pour un seul ordinateur et perd sa validité en cas de changement de celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  Public Function GetMacAddress() As String
 
        Dim Result As String = ""
        If (System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces().Count() > 0) Then
            Result = BitConverter.ToString(System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()(0).GetPhysicalAddress().GetAddressBytes())
        End If
 
        Return Result
 
    End Function
 
    Public Function GetProcessorRef() As String
 
        Dim ProcClass As New System.Management.ManagementClass("Win32_Processor")
        Dim Procs As ManagementObjectCollection = ProcClass.GetInstances
        Dim Proc As ManagementObject
        For Each Proc In Procs
            GetProcessorRef = Proc("ProcessorId").ToString
            Exit For
        Next Proc
 
    End Function

Bonjour noftal,

Merci pour ta réponse.

Je vais étudier ta solution et voir si le compromis Licence est viable pour mon application.

Merci à toi