Attribute VB_Name = "sib"
'***************************************************************************
'* Secure Information Block created by the EVERLOCK front end.
'***************************************************************************
Type SIBT

  ID        As String * 4           ' 000 ID literal 'AZSB'
  DRV       As String * 1           ' 004 Drive pgm was loaded from (ASCII)
  AUTH      As String * 1           ' 005 Auth Device (A,B,C=disk, 1,2,3=LPT#)
  PTYPE     As String * 1           ' 006 Product Type
  PROD      As String * 9           ' 007 Product Name (ASCIIZ)
  SNP       As Long                 ' 016 Product Serial Number
  HNUC      As Integer              ' 020 NUC Slot Handle
  AVERS     As Integer              ' 022 Authorization version
  ECL       As Integer              ' 024 Exec-Count Limit
  DFT       As Integer              ' 026 0 = m/d/y, 1 = d/m/y, 2 = y/m/d
  EDL       As Integer              ' 028 Expire-Days Limit
  ETL       As Integer              ' 030 Elapsed time on last day (ETL * 2)secs
  ED        As String * 9           ' 032 Expire-Date (ASCIIZ)
  CHKSUM    As String * 1           ' 041 CheckSum
  NUC       As Integer              ' 042 NUC Current Count
  NUL       As Integer              ' 044 NUC Limit
  ICR       As Integer              ' 046 Install Counts Remaining
  ACCFLG    As String * 8           ' 048 Access Flags 1-64
  USRDAT    As String * 8           ' 056 User Data Area (8 bytes)
  RTYPE     As String * 1           ' 064 Register Type (V,N,U=Ver,Non-Ver,None)
  RNAME     As String * 51          ' 065 Register To Name (ASCIIZ)
  RCOMP     As String * 51          ' 116 Register To Company (ASCIIZ)
  RLOC      As String * 51          ' 167 Register To Location (ASCIIZ)
  RDATE     As String * 9           ' 218 Register Date (ASCIIZ)
  CDATE     As String * 9           ' 227 Current System Date (ASCIIZ)
  RSRVD1    As String * 20          ' 236 reserved
  SECSTR    As String * 256         ' 256 Secure-String (ASCIIZ)

End Type

'***************************************************************************
'* SIB created on the global heap for finding by a user application.
'***************************************************************************
Type WINSIBT
    hi As Integer
    sib As SIBT
End Type

'***************************************************************************
'* Possible return values from FindSIB().
'***************************************************************************
Global Const FS_SIBFOUND = 0                 ' SIB was found successfully
Global Const FS_SIBNOTFOUND = 1              ' SIB was not found in global heap
Global Const FS_GLOBALFIRSTFAILED = 2        ' GlobalFirst (in TOOLHELP.DLL) failed
Global Const FS_NUM_ERRORS = 3               ' Number of possible error codes

'***************************************************************************
'* Function Prototypes.
'***************************************************************************
Public Declare Function FindSIB Lib "FINDSIB.DLL" (ByVal hInstance As Integer, lpWinSIB As WINSIBT) As Integer

'***************************************************************************
'* Constants and definitions borrowed from WIN30API.TXT
'***************************************************************************
Global Const GWW_HINSTANCE = (-6)
Public Declare Function GetWindowWord Lib "USER" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer

