Problema de proyecto más código de registro. ! lenguaje sencillo

Principio: 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 código de función. Envíe este código durante el registro. El propietario de los derechos de autor del software calcula y proporciona el código de registro. el código de registro para completar todo el proceso de registro (para una ilustración simple, en este ejemplo, el código de registro es el código de característica menos 101 como código de registro).

Cree un nuevo archivo de módulo

Cree un nuevo archivo de módulo y agregue las siguientes declaraciones y constantes al módulo 1. Bas:

Declarar función GetVolumeInformation Lib "kernel 32" alias "GetVolumeInformationA"

(ByVal lpRootPathName es una cadena, ByVal lpVolumeNameBuffer es una cadena, ByVal

nVolumeNameSize es largo, lpVolumeSerialNumber es largo, lpMaximumComponentLength es

largo, lpFileSystemFlags es largo, ByVal lpFileSystemNameBuffer es cadena, ByVal

nFileSystemNameSize tiene la misma longitud) tiene la misma longitud

Global GetVal As Long

Al programar, es importante escribir declaraciones de declaración en la misma línea.

Configuración del formulario

Agregue dos cuadros de texto a Form1 y establezca la propiedad Nombre en Texto1 y Texto2 respectivamente; agregue 1 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:

Private subform_Load()

Dim TempStr1 As String * 256

Atenuar TempStr2 como cadena * 256

Atenuar TempLon1 mientras

Atenuar TempLon2 mientras

…………

Mira la información sobre si registrarte o no. Aquí no se explica cómo controlarlo.

…………

Llamar a GetVolumeInformation("C:\", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)

Texto 1. 'Extraiga el número de serie de la unidad c local en el cuadro de texto 1.

Conector final

Agregue el siguiente código de programa al evento comando1_click de comando1:

Subcomando privado1_Click()

Si texto 2÷ CStr(GetVal), luego

MsgBox "El código de registro es incorrecto, verifique si la entrada es correcta."

Otros

MsgBox "Tiene registrado exitosamente, reinicie este 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 es basado en la configuración de preferencias personales)

…………

Terminará si...

Finalizar conector

En este punto. , podemos ejecutar el programa. Verá que simplemente hemos implementado la función de utilizar el número de serie del disco duro para crear un software de registro electrónico.