office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

获取全球唯一识别码GUID

2020-05-30 08:00:00
tmtony8
原创
216

      全局唯一标识符(GUID,Globally Unique Identifier)是一种由算法生成的二进制长度为128位的数字标识符。GUID主要用于在拥有多个节点、多台计算机的网络或系统中。GUID 的格式为“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”,其中的 x 是 0-9 或 a-f 范围内的一个32位十六进制数。在理想情况下,任何计算机和计算机集群都不会生成两个相同的GUID。



他的作用是标识特定的组件、程序、文件、数据、用户等,并可以在网络中使用


下面是获取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

    分享