源代码推荐:vb的GUID生成算法
来源:互联网 发布:淘宝网开充值店流程 编辑:程序博客网 时间:2024/05/25 13:33
'RETURNS: GUID if successful; blank string otherwise.
'Unlike the GUIDS in the registry, this function returns GUID
'without "-" characters. See comments for how to modify if you
'want the dash.
Public Function GUID() As String
Dim lRetVal As Long
Dim udtGUID As GUID
Dim sPartOne As String
Dim sPartTwo As String
Dim sPartThree As String
Dim sPartFour As String
Dim iDataLen As Integer
Dim iStrLen As Integer
Dim iCtr As Integer
Dim sAns As String
On Error GoTo errorhandler
sAns = ""
lRetVal = CoCreateGUID(udtGUID)
If lRetVal = 0 Then
'First 8 chars
sPartOne = Hex$(udtGUID.PartOne)
iStrLen = Len(sPartOne)
iDataLen = Len(udtGUID.PartOne)
sPartOne = String((iDataLen * 2) - iStrLen, "0") _
& Trim$(sPartOne)
'Next 4 Chars
sPartTwo = Hex$(udtGUID.PartTwo)
iStrLen = Len(sPartTwo)
iDataLen = Len(udtGUID.PartTwo)
sPartTwo = String((iDataLen * 2) - iStrLen, "0") _
& Trim$(sPartTwo)
'Next 4 Chars
sPartThree = Hex$(udtGUID.PartThree)
iStrLen = Len(sPartThree)
iDataLen = Len(udtGUID.PartThree)
sPartThree = String((iDataLen * 2) - iStrLen, "0") _
& Trim$(sPartThree) 'Next 2 bytes (4 hex digits)
'Final 16 chars
For iCtr = 0 To 7
sPartFour = sPartFour & _
Format$(Hex$(udtGUID.PartFour(iCtr)), "00")
Next
'To create GUID with "-", change line below to:
'sAns = sPartOne & "-" & sPartTwo & "-" & sPartThree _
'& "-" & sPartFour
sAns = sPartOne & sPartTwo & sPartThree & sPartFour
End If
GUID = sAns
Exit Function
errorhandler:
'return a blank string if there's an error
Exit Function
End Function
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- 源代码推荐:vb的GUID生成算法
- vb的GUID生成算法
- JavaScript生成GUID的算法
- JavaScript生成GUID的算法
- JavaScript生成GUID的算法
- JavaScript生成GUID的算法
- VB.NET 生成GUID
- 游戏服务器里GUID的生成算法
- 如何使用 CoCreateGUID API 生成与 VB 6 的 GUID
- PHP生成GUID算法
- 生成GUID算法
- 如何用VB.NET生成GUID
- 如何用VB.NET生成GUID
- 唯一编号算法:生成GUID
- 生成GUID的代码
- 生成GUID的方法
- GUID的生成
- 生成GUID的方法
- [修正] 你想使MSFLEXGRID控件可编辑吗???
- 在VB中使用文件对象
- Javascript 调用XML制作连动下拉框
- vb调用winInet API接口post数据到指定的url
- 一个简单的XML Schema的例子
- 源代码推荐:vb的GUID生成算法
- 使用DOM创建XML
- VB IGMP
- XML创建可排序、分页的数据显示页面
- 判别剪贴板上所有可用的格式
- 用XML和XSL来生成动态页面
- 把图片框的完整内容复制到剪贴板
- 用XML实现弹出式菜单
- XML 在 ASP 环境下的应用