Im Zeitalter der Achtung des Software-Urheberrechts wird der Einsatz elektronisch registrierter Software immer weiter verbreitet. Sein Erscheinungsbild ermöglicht den Benutzern ein gewisses Verständnis der uneingeschränkten Funktionen des Programms, spielt eine Rolle bei der Werbung und Verbreitung und schützt außerdem die lebenswichtigen Interessen des Herstellers. Wie erstellen wir also eine elektronische Registrierungsversion einer Software?
Nach einiger Recherche erstellte der Autor einfach mit VB eine elektronische Registrierungsversion der Software.
Gestaltungsprinzipien
Verwenden Sie die Funktion „GetVolumeInformation“ in der API, um die Festplattenseriennummer des Benutzercomputers als Funktionscode zu extrahieren. Dieser Code wird bei der Registrierung übermittelt und vom Software-Urheberrechtsinhaber berechnet, um schließlich den Registrierungscode anzugeben Der Benutzer gibt den Registrierungscode ein, um den gesamten Registrierungsprozess abzuschließen (Um die Erklärung zu vereinfachen, wird in diesem Beispiel der Funktionscode minus 101 als Registrierungscode verwendet).
Erstellen Sie eine neue Moduldatei
Erstellen Sie eine neue Moduldatei und fügen Sie die folgenden deklarierten Anweisungen und Konstanten zum Modul Module1.Bas hinzu:
Deklarieren Sie die Funktion GetVolumeInformation Lib „kernel32“ Alias „GetVolumeInformationA“
(ByVal lpRootPathName als String, ByVal lpVolumeNameBuffer als String, ByVal
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As
Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal
nFileSystemNameSize As Long) As Long
Globaler GetVal As Long
Achten Sie beim Programmieren darauf, die Deklarationsanweisungen in derselben Zeile zu schreiben.
Formulareinstellungen
Fügen Sie zwei Textfelder in Form1 hinzu und setzen Sie die Name-Eigenschaft auf Text1 bzw. Text2. Fügen Sie eine weitere Schaltfläche hinzu und setzen Sie die Name-Eigenschaft auf Command1.
Code hinzufügen
Fügen Sie dem Form1_Load-Ereignis von Form1 den folgenden Programmcode hinzu:
Privates Unterformular_Load()
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dimmen Sie TempLon1 solange
TempLon2 solange dimmen
………
„Lesen Sie die Informationen darüber, ob Sie sich registrieren müssen oder nicht“, wird hier nicht erklärt.
………
Call GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal 'Extrahieren Sie die Seriennummer des lokalen Laufwerks C in Textfeld eins
Sub beenden
Fügen Sie dem Command1_Click-Ereignis von Command1 den folgenden Programmcode hinzu:
Privater Unterbefehl1_Click()
If Text2 〈〉 CStr(GetVal) Then
MsgBox „Der Registrierungscode ist falsch, bitte prüfen Sie sorgfältig, ob die Eingabe korrekt ist.“
Anders
MsgBox „Sie haben sich erfolgreich registriert, bitte starten Sie die Software neu.“
………
(Schreiben Sie die korrekten Registrierungsinformationen ein, damit die Softwarefunktionen in Zukunft nicht eingeschränkt werden. Die spezifische Methode kann nach persönlichen Vorlieben eingestellt werden.)
………
Ende wenn
Sub beenden
An diesem Punkt können wir das Programm ausführen. Sie werden feststellen, dass wir einfach die Funktion implementiert haben, anhand der Seriennummer der Festplatte eine elektronisch registrierte Version der Software zu erstellen.