В эпоху уважения авторских прав на программное обеспечение применение зарегистрированного в электронной форме программного обеспечения становится все более распространенным. Его внешний вид позволяет пользователям иметь определенное представление о неограниченных функциях программы, играет роль в продвижении и распространении, а также защищает жизненные интересы производителя. Итак, как нам создать версию программного обеспечения с электронной регистрацией?
После некоторых исследований автор просто создал версию программного обеспечения для электронной регистрации с помощью VB.
Принципы проектирования
Используйте функцию «GetVolumeInformation» в API, чтобы извлечь серийный номер жесткого диска компьютера пользователя в виде кода функции. Этот код передается во время регистрации и рассчитывается владельцем авторских прав на программное обеспечение для получения регистрационного кода. пользователь вводит регистрационный код, чтобы завершить весь процесс регистрации (для простоты объяснения в этом примере в качестве регистрационного кода используется код функции минус 101).
Создайте новый файл модуля
Создайте новый файл модуля и добавьте в модуль Module1.Bas следующие объявленные операторы и константы:
Объявить функцию GetVolumeInformation Lib "kernel32" Псевдоним "GetVolumeInformationA"
(ByVal lpRootPathName как строка, ByVal lpVolumeNameBuffer как строка, ByVal
nVolumeNameSize как длинный, lpVolumeSerialNumber как длинный, lpMaximumComponentLength как
Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize как долго) как долго
Глобальный GetVal как долго
При программировании будьте осторожны и записывайте операторы объявления в одной строке.
Настройки формы
Добавьте 2 текстовых поля в Form1 и установите для свойства Name значения Text1 и Text2 соответственно, добавьте еще одну кнопку и установите для свойства Name значение Command1.
добавить код
Добавьте следующий программный код в событие Form1_Load формы Form1:
Частная подформа_Load()
Dim TempStr1 как строка * 256
Dim TempStr2 как строка * 256
Тусклый TempLon1 до тех пор, пока
Тусклый TempLon2 до тех пор, пока
………
'Прочитайте информацию о том, регистрироваться или нет. Как это контролировать, здесь объясняться не будет.
………
Вызов GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal 'Извлекаем серийный номер локального диска C в первое текстовое поле.
Конец субтитра
Добавьте следующий программный код в событие Command1_Click команды Command1:
Частная подкоманда 1_Click()
Если Text2 〈〉 CStr(GetVal) Тогда
MsgBox "Регистрационный код неверен. Пожалуйста, внимательно проверьте правильность ввода."
Еще
MsgBox «Вы успешно зарегистрировались, перезапустите программу».
………
(Напишите правильную регистрационную информацию, чтобы функции программного обеспечения не были ограничены в будущем. Конкретный метод можно установить в соответствии с личными предпочтениями.)
………
Конец, если
Конец субтитра
На этом этапе мы можем запустить программу. Вы обнаружите, что мы просто реализовали функцию использования серийного номера жесткого диска для создания электронной зарегистрированной версии программного обеспечения.