Читает список доступных ключей защиты и возвращает количество найденных ключей.
Visual Basic:
Function ReadKeyList() As Long
Возвращаемым значением является количество найденных ключей защиты.
Sub GetLicInfo 'Создаем объект ZLicInfo Set Info = CreateObject("ZuluLib.ZLicInfo") 'Читаем список ключей и получаем их количество count = Info.ReadKeyList 'Получаем ID первого ключа из списка IF count > 0 THEN MsgBox Info.GetKeyID(0) END IF End Sub