title image


Smiley API: CoCreateGuid
The CoCreateGuid function calls the RPC function UuidCreate, which creates a GUID, a globally unique 128-bit integer. Use the CoCreateGuid function when you need an absolutely unique number that you will use as a persistent identifier in a distributed environment.To a very high degree of certainty, this function returns a unique value ? no other invocation, on the same or any other system (networked or not), should return the same value.











Option Explicit



Private Declare Function CoCreateGuid Lib "ole32.dll" (ByVal Guid As Long) As Long







Private Sub Command1_Click()

Dim bytGuid(15) As Byte



   CoCreateGuid VarPtr(bytGuid(0))



   MsgBox GuidString(bytGuid)



End Sub





Private Function GuidString(ByRef bytArr() As Byte) As String

Dim i As Long

Dim strOut As String



On Error GoTo ErrHandler

   For i = 0 To UBound(bytArr)

      If bytArr(i) < 16 Then

         strOut = strOut & "0" & Hex(bytArr(i))

      Else

         strOut = strOut & Hex(bytArr(i))

      End If

      If i = 3 Or i = 5 Or i = 7 Then strOut = strOut & "-"

   Next i

   GuidString = "{" & strOut & "}"

ErrHandler:

End Function

 Code eingefügt mit Syntaxhighlightergetestet






Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: