欢迎来到老马的领地~ 这是“压风式散热底座”发明者的个人网站：) 本人QQ:80524554,用户群1:562279766

生成GUID的模块(VB6.0) 生成GUID的模块(VB6.0)


[ | by ]

网上摘的,这个真忘了出处了......不是我无耻......:lol:

这个比较常用,收藏起来备用.....

Option Explicit
'生成一个GUID
'
'By 嗷嗷叫的老马
'http://www.m5home.com

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type

Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long

Public Function GetGUID() As String
    Dim udtGUID As GUID

    If (CoCreateGuid(udtGUID) = 0) Then
        GetGUID = _
                String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
                String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
                String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
                IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
                IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
                IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
                IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
                IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
                IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
                IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
                IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))
    End If
End Function
4 条评论
# 1: cpueqhx said:
2012-03-08 14:12:06
代码里怎么有表情？
# 2: 嗷嗷叫的老马 said:
2012-03-08 20:19:03
汗,表情解析忘关了.....
# 3: TA said:
2012-03-08 21:19:46
老马看这里：http://baike.baidu.com/view/185358.htm
# 4: 嗷嗷叫的老马 said:
2012-03-10 23:55:13
这个还比较全,不错.
添加评论

昵称 *

E-mail