Bonjour,
Je voudrais faire sur une de mes applications un enregistrement de license
un peu comme XP. Je voudrais etre capable de générer un identifiant unique à
la machine de facon à ce que le client m'envoit son id par mail je lui envoie
la clé de déblocage, ou bien il desinstalle l'application et la reinstalle
sur le meme poste l'identifiant reste le meme.
Les postes n'ayant pas forcement une carte reseau l'adresse MAC n'est pas
envisageable.
J'ai regardé du coté des UUID il y a de la doc en .NET mais je n'ai rien
trouvé en VB6
s'il te l'envoie par mail, il a surement une carte réseau ^^
tu peux utiliser le numero de série du processeur, ou du disque dur
Bon c'est vrai que 99% des Uc ont une carte reseau mais je ne veux pas me fermer la porte d'une validation téléphonique.
Pour le n° de serie du processeur est ce le meme format entre les processeur Intel et AMD?
Guy DETIENNE
Salut ;O)
Tu peux utiliser un GUID (Globally Unique IDentifier) grâce à l'API CoCreateGuid (exemple à copier dans un formulaire ) : -> voir ici sur l'explication du GUID : http://fr.wikipedia.org/wiki/GUID
Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long
Private Sub Form_Load() MsgBox "Generated GUID: " + CreateGUID End Sub Public Function CreateGUID() As String Dim id(0 To 15) As Byte Dim Cnt As Long, GUID As String If CoCreateGuid(id(0)) = 0 Then For Cnt = 0 To 15 CreateGUID = CreateGUID + IIf(id(Cnt) < 16, "0", "") + Hex$(id(Cnt)) Next Cnt CreateGUID = Left$(CreateGUID, 8) + "-" + Mid$(CreateGUID, 9, 4) + "-" + Mid$(CreateGUID, 13, 4) + "-" + Mid$(CreateGUID, 17, 4) + "-" + Right$(CreateGUID, 12) Else MsgBox "Error while creating GUID!" End If End Function
Guy
"irmX" a écrit dans le message de news:
Bonjour, Je voudrais faire sur une de mes applications un enregistrement de license un peu comme XP. Je voudrais etre capable de générer un identifiant unique
à
la machine de facon à ce que le client m'envoit son id par mail je lui
envoie
la clé de déblocage, ou bien il desinstalle l'application et la reinstalle sur le meme poste l'identifiant reste le meme. Les postes n'ayant pas forcement une carte reseau l'adresse MAC n'est pas envisageable.
J'ai regardé du coté des UUID il y a de la doc en .NET mais je n'ai rien trouvé en VB6
Merci
Salut ;O)
Tu peux utiliser un GUID (Globally Unique IDentifier) grâce à l'API
CoCreateGuid (exemple à copier dans un formulaire ) :
-> voir ici sur l'explication du GUID : http://fr.wikipedia.org/wiki/GUID
Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long
Private Sub Form_Load()
MsgBox "Generated GUID: " + CreateGUID
End Sub
Public Function CreateGUID() As String
Dim id(0 To 15) As Byte
Dim Cnt As Long, GUID As String
If CoCreateGuid(id(0)) = 0 Then
For Cnt = 0 To 15
CreateGUID = CreateGUID + IIf(id(Cnt) < 16, "0", "") +
Hex$(id(Cnt))
Next Cnt
CreateGUID = Left$(CreateGUID, 8) + "-" + Mid$(CreateGUID, 9, 4) +
"-" + Mid$(CreateGUID, 13, 4) + "-" + Mid$(CreateGUID, 17, 4) + "-" +
Right$(CreateGUID, 12)
Else
MsgBox "Error while creating GUID!"
End If
End Function
Guy
"irmX" <irmX@discussions.microsoft.com> a écrit dans le message de
news:B6B6C006-4645-4883-A02C-66B635CE3FC1@microsoft.com...
Bonjour,
Je voudrais faire sur une de mes applications un enregistrement de license
un peu comme XP. Je voudrais etre capable de générer un identifiant unique
à
la machine de facon à ce que le client m'envoit son id par mail je lui
envoie
la clé de déblocage, ou bien il desinstalle l'application et la reinstalle
sur le meme poste l'identifiant reste le meme.
Les postes n'ayant pas forcement une carte reseau l'adresse MAC n'est pas
envisageable.
J'ai regardé du coté des UUID il y a de la doc en .NET mais je n'ai rien
trouvé en VB6
Tu peux utiliser un GUID (Globally Unique IDentifier) grâce à l'API CoCreateGuid (exemple à copier dans un formulaire ) : -> voir ici sur l'explication du GUID : http://fr.wikipedia.org/wiki/GUID
Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long
Private Sub Form_Load() MsgBox "Generated GUID: " + CreateGUID End Sub Public Function CreateGUID() As String Dim id(0 To 15) As Byte Dim Cnt As Long, GUID As String If CoCreateGuid(id(0)) = 0 Then For Cnt = 0 To 15 CreateGUID = CreateGUID + IIf(id(Cnt) < 16, "0", "") + Hex$(id(Cnt)) Next Cnt CreateGUID = Left$(CreateGUID, 8) + "-" + Mid$(CreateGUID, 9, 4) + "-" + Mid$(CreateGUID, 13, 4) + "-" + Mid$(CreateGUID, 17, 4) + "-" + Right$(CreateGUID, 12) Else MsgBox "Error while creating GUID!" End If End Function
Guy
"irmX" a écrit dans le message de news:
Bonjour, Je voudrais faire sur une de mes applications un enregistrement de license un peu comme XP. Je voudrais etre capable de générer un identifiant unique
à
la machine de facon à ce que le client m'envoit son id par mail je lui
envoie
la clé de déblocage, ou bien il desinstalle l'application et la reinstalle sur le meme poste l'identifiant reste le meme. Les postes n'ayant pas forcement une carte reseau l'adresse MAC n'est pas envisageable.
J'ai regardé du coté des UUID il y a de la doc en .NET mais je n'ai rien trouvé en VB6
Merci
Renfield
pas possible d'utiliser un GUID ici, car pour le même poste, le GUID sera a chaque fois different.
pas possible d'utiliser un GUID ici, car pour le même poste, le GUID
sera a chaque fois different.
