Obtenir un guid

Commenter

Contenu du snippet

Cette source permet d'obtenir un GUID (Globally Unique IDentifier)
Ce numéro est unique et il est fourni par windows
Cela permet de ne pas créer de conflit dans une base de donnée ou dans la base de registre par exemple...
Ti£oi$

Source / Exemple : 


'Déclarations API
Private Declare Function CoCreateGuid Lib _
    "ole32.dll" (buffer As Byte) As Long
Private Declare Function StringFromGUID2 Lib _
    "ole32.dll" (buffer As Byte, ByVal lpsz As Long, _
    ByVal cbmax As Long) As Long

'Fonction
Private Function getGUID() As String
Dim buffer(15) As Byte
Dim s As String
Dim ret As Long
s = String$(128, 0)
ret = CoCreateGuid(buffer(0))
ret = StringFromGUID2(buffer(0), StrPtr(s), 128)
getGUID = Left$(s, ret - 1)
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Tilois)