如何在执行代码时获取唯一标识符

Question

我正在寻找解决问题的方法：

我有一个使用 VB6 DLL 的 C# MVC Web 应用程序。

在这个 DLL 中，有一个所有用户都通用的类，我想改变这个架构。

Class_Initialize 函数中是否有可能获取唯一标识符来设置具有此 id 和实例的数组？

我的目标是不在所有函数调用中添加这个 id。

这使我可以在代码中的任何位置获取正确的实例。

我可以使用 Windows API 函数或其他...

例如，DLL A 有 ClassA，并在 DLL B 中创建 ClassB。ClassA 可以由 exe 应用程序或 c# web 应用程序创建，并通过 setter 函数在 ClassA 中添加一个 ID。在 ClassB 构造函数中，我想获取 ClassA ID。如果 ClassB 有一个 setter 并且 ClassA 创建 ClasseB 时，可能会通过 setter 传递 id。但问题是ClassB可以由ClassZ创建，她自己由ClassY创建，她自己……由ClassA创建

我的计划有 95 个项目和 1000 个课程。解决方案可能是在所有类中通过 setter 传递 id，但很难做到，所以我通过使用内存来寻找“地下”解决方案......

如果在 ClassB 中我可以检索 ClassA 和 id，那对我来说太棒了

感谢您的帮助

Answer 1

您可以使用以下 VB6 代码创建唯一的 guid。然后，您可能可以在您的类中使用它来跟踪您需要的实例。不过，鉴于原始帖子中提供的信息量很少且没有代码，我并不完全确定这一点。

Public Type GUID
   Data1 As Long
   Data2 As Integer
   Data3 As Integer
   Data4(7) As Byte
End Type
Public Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long

Public Function GetGUID() As String
  Dim udtGUID As GUID
  Dim sGetGUID As String

  On Error Resume Next
  If (CoCreateGuid(udtGUID) = 0) Then
    sGetGUID = 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))
    GetGUID = LCase$(sGetGUID)
  End If

End Function