全局唯一标识符（GUID，Globally Unique Identifier）是一种由算法生成的二进制长度为128位的数字标识符。GUID主要用于在拥有多个节点、多台计算机的网络或系统中。GUID 的格式为“*******-****-****-****-**********rdquo;，其中的 x 是 0-9 或 a-f 范围内的一个32位十六进制数。在理想情况下，任何计算机和计算机集群都不会生成两个相同的GUID。
他的作用是标识特定的组件、程序、文件、数据、用户等，并可以在网络中使用
下面是获取GUID的自定义函数， Private Type GUID Data1 As Long Data2 As Long Data3 As Long 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
自定义一个函数 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
