獲取全球唯一識(shí)別碼GUID

      全局唯一標(biāo)識(shí)符（GUID，Globally Unique Identifier）是一種由算法生成的二進(jìn)制長(zhǎng)度為128位的數(shù)字標(biāo)識(shí)符。GUID主要用于在擁有多個(gè)節(jié)點(diǎn)、多臺(tái)計(jì)算機(jī)的網(wǎng)絡(luò)或系統(tǒng)中。GUID 的格式為“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”，其中的 x 是 0-9 或 a-f 范圍內(nèi)的一個(gè)32位十六進(jìn)制數(shù)。在理想情況下，任何計(jì)算機(jī)和計(jì)算機(jī)集群都不會(huì)生成兩個(gè)相同的GUID。

他的作用是標(biāo)識(shí)特定的組件、程序、文件、數(shù)據(jù)、用戶等，并可以在網(wǎng)絡(luò)中使用

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