Discussion :

[gregm954]

Bonjour à tous,
J'ai réalisé une application en vb.net windowsform , et j'ai utilisé publication ClickOnce dans visual studio 2013. J'installe l'appli sur un pc , jusqu'a là pas de probléme..mais
l'application "s’installe" dans utilisateur/toto/AppData/local/apps..
1-Pourquoi je ne peux pas choisir le répertoire d'installation ? ou pourquoi l'installation ne ceux fait pas dans programme comme toutes les appli??
2- SI je copie le répertoire de l'installation et le copie sur un autre pc je peux exécuter l'application , donc n'importe qui peut copier le répertoire et mettre le logiciel sur n'importe quels pc!! c'est pas cool , a votre avis comment je peux empêcher la "réplication" par copier/coller de mon appli.
Merci de votre aide.
Grég

[gregm954]

Bon pour la première question , j'ai trouvé çà: https://www.developpez.net/forums/d7...-installation/
mais j'aimerais trouver une solution pour eviter la copie de mon appli à 100 milles exemplaires..
Greg

Bon , je réponds à ma question n°2: https://www.developpez.net/forums/d4...ger-programme/

en gros il faut récupérer le N° du DD ou carte mère..ect..et ensuite vérifier ce N° au lancement de l'appli , si le n° est différent l'appli ne ce lance pas..
si quelqu'un a déjà fait ce genre de truc...
Greg

Bon bas j'ai utilisé le N° de série du processeur pour bloquer l'ouverture du programme si , quelqu'un le copie sur un autre ordi
Greg

[Selve]

Bonjour

J'ai mis cette fonction dans un module Lit_carte me donne le nom de la carte mère

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
 Public Function Lit_Carte() As String
        Lit_Carte = Nothing
        Dim I As Integer = -1
        Dim searcher As New ManagementObjectSearcher("SELECT Product, SerialNumber FROM Win32_BaseBoard")
        Dim information As ManagementObjectCollection = searcher.Get()
        For Each obj As ManagementObject In information
            For Each data As PropertyData In obj.Properties
                I += 1
 
                If I = 0 Then Lit_Carte = data.Value.ToString
            Next
        Next
        searcher.Dispose()
        Return Lit_Carte
    End Function

[gregm954]

moi j'ai fais çà, enfin non j'ai récupéré un bout de code que j'ai modifié...nuance..

Code :

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

1
2
3
4
5
    Dim searcher As ManagementObjectSearcher = _
                     New ManagementObjectSearcher("select * from Win32_Processor")
        For Each oReturn As ManagementObject In searcher.Get()
            N_serie = (oReturn("ProcessorId").ToString)
        Next oReturn

mais le n° de série du proc n'est pas unique...donc retour à la case départ...
je vais essayer avec le n° de la carte mère ou disque dur
Merci Sleve pour le code...ou alors je vais essayer avec l'adresse MAC , normalement cette adresse est unique..