En una era en la que se respetan los derechos de autor del software, la aplicación de software registrado electrónicamente se está generalizando cada vez más. Su apariencia permite a los usuarios tener una cierta comprensión de las funciones ilimitadas del programa, desempeña un papel en la promoción y difusión y también protege los intereses vitales del productor. Entonces, ¿cómo creamos una versión de software de registro electrónico?
Después de un poco de exploración, el autor simplemente creó una versión de registro electrónico del software usando VB.
Principios de diseño
Utilice la función "GetVolumeInformation" en la API para extraer el número de serie del disco duro de la máquina del usuario como un código de función. Este código se envía durante el registro y el propietario de los derechos de autor del software lo calcula para finalmente proporcionar el código de registro. El usuario ingresa el código de registro para completar todo el proceso de registro (para simplificar la explicación, en este ejemplo, se utiliza el código de característica menos 101 como código de registro).
Crear un nuevo archivo de módulo
Cree un nuevo archivo de módulo y agregue las siguientes declaraciones y constantes declaradas al módulo Module1.Bas:
Declarar función GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"
(ByVal lpRootPathName como cadena, ByVal lpVolumeNameBuffer como cadena, ByVal
nVolumeNameSize tan largo, lpVolumeSerialNumber tan largo, lpMaximumComponentLength como
Largo, lpFileSystemFlags como largo, ByVal lpFileSystemNameBuffer como cadena, ByVal
nFileSystemNameSize Mientras) Mientras tanto
GetVal global siempre y cuando
Al programar, tenga cuidado de escribir las declaraciones de declaración en la misma línea.
Configuraciones de formulario
Agregue 2 cuadros de texto en Form1 y establezca la propiedad Nombre en Texto1 y Texto2 respectivamente; agregue otro botón y establezca la propiedad Nombre en Comando1.
agregar código
Agregue el siguiente código de programa al evento Form1_Load de Form1:
Subformulario privado_Load()
Atenuar TempStr1 como cadena * 256
Atenuar TempStr2 como cadena * 256
Atenuar TempLon1 mientras
TempLon2 tenue mientras dure
………
'Lea la información sobre si registrarse o no. Aquí no se explicará cómo controlarlo.
………
Llame a GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal 'Extrae el número de serie de la unidad C local al cuadro de texto uno
Subtítulo final
Agregue el siguiente código de programa al evento Command1_Click de Command1:
Subcomando privado1_Click()
Si Texto2 〈〉 CStr(GetVal) Entonces
MsgBox "El código de registro es incorrecto, verifique cuidadosamente si la entrada es correcta".
Demás
MsgBox "Se ha registrado correctamente, reinicie el software".
………
(Escriba la información de registro correcta para que las funciones del software no se vean restringidas en el futuro. El método específico se puede configurar según las preferencias personales).
………
Terminar si
Subtítulo final
En este punto, podemos ejecutar el programa. Descubrirá que simplemente hemos implementado la función de utilizar el número de serie del disco duro para crear una versión registrada electrónicamente del software.