Mencari Serial Number Hardisk dengan Vb 6

Pernahkan anda terpikir untuk membuat serial number program anda supaya bersifat trial dan harus memasukkan serial number? Nah program ini bisa dipakai untuk membuat serial number program anda dengan mencari serial number hardisk dan di ikuti sedikit algoritma anda.
Ikuti langkah berikut untuk mencari serial number hardisk :

1. Buka program Vb 6 anda
2. Tambahkan form lalu tekan F7 untuk masuk ke mode codinglalu tekan F7.
3. Masukkan coding berikut ini :

Private Declare Function 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

Sub BacaSerial()
Dim drvserialno As Long
Dim mydrvlabel As String * 256
Dim myfilesys As String * 256
Dim i As Long
Dim j As Long
Dim x As Long
x = GetVolumeInformation("C:\", mydrvlabel, 256, drvserialno, i, j, myfilesys, 256)
MsgBox "Nomor Serial number = " & Hex(drvserialno)
MsgBox "Tipe File Sistem = " & myfilesys
If Hex(drvserialno) = "28B632F1" Then MsgBox "OK"
End
End Sub


Private Sub Form_Load()
Call BacaSerial
End Sub

Lalu tekan F5 untuk mencoba. Untuk membuat serial number program, silahkan kembangkan sendiri dengan algoritma anda. Btw program ini intinya mengambil nilai dari perintah VOL pada command prompt, cobalah masuk ke command prompt dengan masuk ke start-run-ketik cmd lalu muncul command prompt dan ketik VOL, maka akan tampil volume serial number hardisk anda. Untuk drive, anda bisa rubah sendiri, biasanya yang sering ada yaitu drive C:\