Code Util para utilizar el metodo de inicio ActiveX (ActiveX Startup Method), este code genera un numero unico de la forma: {89B4C1CD-B018-4511-B0A1-5476DBF70820}.
'---------------------------------------------------------------------------------------
' Module : mGenGUID
' Fecha : 05/02/2009 18:10
' Autor : XcryptOR
' Proposito : Generar un número de identificación unico
' Creditos : Creditos a trilithium, Autor del code original en Delphi
'---------------------------------------------------------------------------------------
Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
pDest As Any, _
pSource As Any, _
ByVal dwLength As Long)
Private Declare Function StringFromCLSID Lib "ole32" ( _
pclsid As GUID, _
lpsz As Long) As Long
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 = GUIDToStr(udtGUID)
End If
End Function
Private Function GUIDToStr(ID As GUID) As String
Dim strRet As String
Dim ptrSource As Long
Dim lngRet As Long
strRet = Space(38)
lngRet = StringFromCLSID(ID, ptrSource)
If lngRet = 0 Then
CopyMemory ByVal StrPtr(strRet), ByVal ptrSource, 76
GUIDToStr = strRet
End If
End Function