GUID 生成器

Option Explicit

Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(8) As Byte
End Type

Private Declare Function CoCreateGuid Lib "ole32.dll" (pguid As GUID) As Long
Private Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As Any, ByVal lpstrClsId As Long, ByVal cbMax As Long) As Long

Private Function GUIDGen() As String '生成GUID

    Dim uGUID As GUID
    Dim sGUID As String
    Dim bGUID() As Byte
    Dim lLen As Long
    Dim RetVal As Long
    lLen = 40
    bGUID = String(lLen, 0)
    CoCreateGuid uGUID '把结构转换为一个可显示的字符串
    RetVal = StringFromGUID2(uGUID, VarPtr(bGUID(0)), lLen)
    sGUID = bGUID
    If (Asc(Mid$(sGUID, RetVal, 1)) = 0) Then
    RetVal = RetVal - 1
    GUIDGen = Left$(sGUID, RetVal)
    End If
End Function

Private Sub Form_Load()
    Debug.Print GUIDGen
End Sub

转载请注明出处：吖Go博客 » GUID 生成器