À l’ère du respect des droits d’auteur sur les logiciels, l’application de logiciels enregistrés électroniquement devient de plus en plus répandue. Son apparition permet aux utilisateurs d'avoir une certaine compréhension des fonctions illimitées du programme, joue un rôle dans la promotion et la diffusion, et protège également les intérêts vitaux du producteur. Alors, comment créer une version d’enregistrement électronique du logiciel ?
Après quelques explorations, l'auteur a simplement créé une version d'enregistrement électronique du logiciel en utilisant VB.
Principes de conception
Utilisez la fonction « GetVolumeInformation » dans l'API pour extraire le numéro de série du disque dur de la machine de l'utilisateur en tant que code de fonctionnalité. Ce code est soumis lors de l'enregistrement et est calculé par le propriétaire des droits d'auteur du logiciel pour donner le code d'enregistrement. l'utilisateur saisit le code d'enregistrement pour terminer l'ensemble du processus d'enregistrement (pour simplifier l'explication, dans cet exemple, le code de fonctionnalité moins 101 est utilisé comme code d'enregistrement).
Créer un nouveau fichier de module
Créez un nouveau fichier de module et ajoutez les instructions et constantes déclarées suivantes au module Module1.Bas :
Déclarer la fonction GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As
Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
GetVal global tant que
Lors de la programmation, veillez à écrire les instructions de déclaration sur la même ligne.
Paramètres du formulaire
Ajoutez 2 zones de texte sur Form1 et définissez respectivement la propriété Name sur Text1 et Text2 ; ajoutez un autre bouton et définissez la propriété Name sur Command1 ;
ajouter du code
Ajoutez le code de programme suivant à l'événement Form1_Load de Form1 :
Sous-formulaire privé_Load()
Dim TempStr1 comme chaîne * 256
Dim TempStr2 comme chaîne * 256
Dim TempLon1 aussi longtemps
Dim TempLon2 aussi longtemps
………
'Lisez les informations sur l'opportunité de vous inscrire ou non. Comment le contrôler ne sera pas expliqué ici.
………
Appelez GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal 'Extraire le numéro de série du lecteur C local dans la première zone de texte
Fin du sous-marin
Ajoutez le code de programme suivant à l'événement Command1_Click de Command1 :
Sous-commande privé1_Click()
Si Text2 〈〉 CStr(GetVal) Alors
MsgBox "Le code d'enregistrement est incorrect, veuillez vérifier attentivement si la saisie est correcte."
Autre
MsgBox "Vous vous êtes inscrit avec succès, veuillez redémarrer le logiciel."
………
(Écrivez les informations d'enregistrement correctes afin que les fonctions du logiciel ne soient pas restreintes à l'avenir. La méthode spécifique peut être définie en fonction des préférences personnelles.)
………
Fin si
Fin du sous-marin
À ce stade, nous pouvons exécuter le programme. Vous constaterez que nous avons simplement implémenté la fonction d'utilisation du numéro de série du disque dur pour créer une version enregistrée électroniquement du logiciel.