我們來做一個組件，一個可以產生GUID的組件
全域唯一標誌(GUID)
一個GUID可以表示成32個字元的十六進位格式。COM提供了一個名叫CoCreateGuid的系統級函數，可以用它來產生新的GUID。該函數依靠一種類似使用電腦網卡的唯一標誌符和系統時鐘等資訊的演算法，來建立一個在時間和空間上都唯一的GUID.
開啟vb6,建立Activex Dll工程。工程名修改為fCom,類名修改為fC8
Option Explicit
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
'取GUID碼
'參數:
'傳回值:STRING,一個GUID碼.
Public Function GetGUIDCode() As String
Dim uGUID As GUID
Dim sGUID As String
Dim bGUID() As Byte
Dim lLen As Long
Dim RetVal As Long
lLen = 40
bGUID = String(lLen, 0)
CoCreateGuid uGUID '把結構轉換為一個可顯示的字串
RetVal = StringFromGUID2(uGUID, VarPtr(bGUID(0)), lLen)
sGUID = bGUID
If (Asc(Mid$(sGUID, RetVal, 1)) = 0) Then RetVal = RetVal - 1
GetGUIDCode = Left$(sGUID, RetVal)
End Function
Ok,一個組件就寫好了，點擊菜單->檔案->產生fCom.dll檔案
確定，在目錄下就會有fCom.dll檔案
測試
開啟visual interdev6.0,產生一個asp檔案
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
dim obj
set obj=server.CreateObject("fCom.fC8")
Response.Write obj.GetGUIDCode()
Response.Write "<br>"
Response.Write obj.GetGUIDCode()
%>
</BODY>
</HTML>
配置好虛擬目錄，在ie中執行此asp檔案，得到結果如下:
{EF7BF6F9-564C-44D9-91BF-F31695DA6298}
{C8A68CAC-A108-45A6-84F5-0BF92B9CF721}
可以多次重新整理,可以看到這個值在不斷變化.
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
