' VB.NET
Public Declare Function sevLock_VerifyDLL Lib "sevLock.dll" _
  Alias "VerifyDLL" () As String
 
sevLock_Init "Ihr Name", "Ihre Firma", GetLicKey()
If Not (sevLock_VerifyDLL() = GetVerifyKey()) Then
  ' Anwendung beenden, da ungültige DLL-Version
  MsgBox("Ungültige sevLock.DLL !!!")
End If
 
Public Function GetVerifyKey() As String
  ' Hier den einmalig ermittelten "VerifyKey" hardcodiert zusammenstellen
  ' Bsp: 123ABC-456DEF
  Return(CHR$(49) + CHR$(50) + CHR$(51) + CHR$(65) + CHR$(66) + CHR$(67) + "-" _
    + _
    CHR$(52) + CHR$(53) + CHR$(54) + CHR$(68) + CHR$(69) + CHR$(70))
End Function

---------------
VB.NET macht Spaß!