Di era penghormatan terhadap hak cipta perangkat lunak, penerapan perangkat lunak yang terdaftar secara elektronik menjadi semakin meluas. Kemunculannya memungkinkan pengguna untuk memiliki pemahaman tertentu tentang fungsi yang tidak dibatasi dalam program, berperan dalam promosi dan diseminasi, dan juga melindungi kepentingan vital produsen. Jadi, bagaimana cara membuat perangkat lunak versi registrasi elektronik?
Setelah beberapa eksplorasi, penulis cukup membuat versi registrasi elektronik dari perangkat lunak tersebut menggunakan VB.
Prinsip desain
Gunakan fungsi "GetVolumeInformation" di API untuk mengekstrak nomor seri hard disk mesin pengguna sebagai kode fitur. Kode ini dikirimkan saat pendaftaran, dan dihitung oleh pemilik hak cipta perangkat lunak untuk memberikan kode pendaftaran pengguna memasukkan kode registrasi untuk menyelesaikan seluruh proses registrasi (Untuk mempermudah penjelasan, dalam contoh ini, kode fitur dikurangi 101 digunakan sebagai kode registrasi).
Buat file modul baru
Buat file modul baru dan tambahkan pernyataan dan konstanta yang dideklarasikan berikut ke modul Module1.Bas:
Deklarasikan Fungsi GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA"
(ByVal lpRootPathName Sebagai String, ByVal lpVolumeNameBuffer Sebagai String, ByVal
nVolumeNameSize Selama, lpVolumeSerialNumber Selama, lpMaximumComponentLength As
Panjang, lpFileSystemFlags Selama, ByVal lpFileSystemNameBuffer Sebagai String, ByVal
nFileSystemNameSize Selama) Selama
GetVal Global Selama Ini
Saat memprogram, berhati-hatilah untuk menulis pernyataan deklarasi pada baris yang sama.
Pengaturan formulir
Tambahkan 2 kotak teks pada Form1 dan atur properti Nama menjadi Text1 dan Text2 masing-masing; tambahkan tombol lain dan atur properti Nama menjadi Command1.
tambahkan kode
Tambahkan kode program berikut ke acara Form1_Load di Form1:
Sub Formulir_Load() Pribadi
Redupkan TempStr1 Sebagai String * 256
Redupkan TempStr2 Sebagai String * 256
Redupkan TempLon1 Selama
Redupkan TempLon2 Selamanya
.........
'Baca informasi mau mendaftar atau tidak. Cara kontrolnya tidak akan dijelaskan di sini.
.........
Panggil GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal 'Ekstrak nomor seri drive C lokal ke kotak teks satu
Akhiri Sub
Tambahkan kode program berikut ke acara Command1_Click di Command1:
Sub Perintah Pribadi1_Klik()
Jika Text2 〈〉 CStr(GetVal) Lalu
MsgBox "Kode registrasi salah, harap periksa dengan teliti apakah inputnya benar."
Kalau tidak
MsgBox "Anda telah berhasil mendaftar, silakan restart perangkat lunaknya."
.........
(Tulis informasi pendaftaran yang benar agar fungsi perangkat lunak tidak dibatasi di kemudian hari. Metode spesifik dapat diatur sesuai dengan preferensi pribadi.)
.........
Akhiri Jika
Akhiri Sub
Pada titik ini, kita dapat menjalankan programnya. Anda akan menemukan bahwa kami baru saja menerapkan fungsi penggunaan nomor seri hard disk untuk membuat versi perangkat lunak yang terdaftar secara elektronik.