Cómo generar un nuevo número de serie (código de registro) basado en un número de serie existente (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 declaradas al módulo Module1.Bas:
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"
(ByVal lpRootPathName como cadena, ByVal lpVolumeNameBuffer como cadena, ByVal
nVolumeNameSize como largo, lpVolumeSerialNumber como largo, lpMaximumComponentLength como
Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Global GetVal As Long
Lo que debes pagar atención a la hora de programar Escriba las declaraciones de declaración en la misma línea.
Configuración del formulario
Agregue dos 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:
Private Sub Form_Load()
Dim TempStr1 As Cadena * 256
Atenuar TempStr2 como cadena * 256
Atenuar TempLon1 mientras
Atenuar TempLon2 mientras
………
'Lea la información de registro, cómo controlarla no se explicará aquí
…………
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
End Sub
Agregue el siguiente código de programa al evento Command1_Click de Command1:
Private Sub Command1_Click()
If Text2 〈〉 CStr(GetVal) Then
MsgBox "Registrarse El código es incorrecto, verifique cuidadosamente si la entrada es correcta. "
Else
MsgBox "Se ha registrado exitosamente, 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.)
………
End If
End Sub
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.