獲取全球唯一識別碼GUID

      全局唯一標識符（GUID，Globally Unique Identifier）是一種由算法生成的二進制長度為128位的數字標識符。GUID主要用于在擁有多個節點、多臺計算機的網絡或系統中。GUID 的格式為“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”，其中的 x 是 0-9 或 a-f 范圍內的一個32位十六進制數。在理想情況下，任何計算機和計算機集群都不會生成兩個相同的GUID。

他的作用是標識特定的組件、程序、文件、數據、用戶等，并可以在網絡中使用

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


Public Function GetNewGuild() As String
    Dim g As GUID
    Dim b() As Byte
    Dim lSize As Long
    Dim lR As Long
    CoCreateGuid g
    lSize = 40
    ReDim b(0 To (lSize * 2) - 1) As Byte
    lR = StringFromGUID2(g, VarPtr(b(0)), lSize)
    GetNewGuild = Left$(b, lR - 1)
End Function