GUID

Bonjour,

Regarde dans les archives du forum, il y a eu un fil sur le sujet:

Google sur ce ng avec GUID+SERIE+disque en clef de recherche.

christophe

Loïc BERTHOLLET a écrit :

b'jour za tous.

je cherche le moyen de créer un identificateur unique.
je sais que ca existe quelque part dans les API, mais où ?

ce que je ne sais plus, c'est si le GUID obtenu est unique à la machine ou à
l'ensemble de la planète ?

merci

Salut,

Option Explicit
Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long
Private Sub Form_Load()
Dim strMonGUID As String
If CreateGUID(strMonGUID) Then
MsgBox strMonGUID
End If
End Sub
Public Function CreateGUID(ByRef strGUID As String) As Boolean
Dim Cnt As Long, id(0 To 15) As Byte
If CoCreateGuid(id(0)) = 0 Then
For Cnt = 0 To 15
strGUID = strGUID & String$(2 - Len(Hex$(id(Cnt))), "0") &
Hex$(id(Cnt))
Next
strGUID = "{" & Left$(strGUID, 8) & "-" & Mid$(strGUID, 9, 4) & "-"
& Mid$(strGUID, 13, 4) & "-" & Mid$(strGUID, 17, 4) & "-" & Right$(strGUID,
12) & "}"
CreateGUID = True
End If
End Function



--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


Loïc BERTHOLLET wrote:

b'jour za tous.

je cherche le moyen de créer un identificateur unique.
je sais que ca existe quelque part dans les API, mais où ?

ce que je ne sais plus, c'est si le GUID obtenu est unique à la
machine ou à l'ensemble de la planète ?

merci