获取全球唯一识别码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