1 Membuat Sendiri Check HWID Dengan VB6

Ingin membuat Serial Check HWID seperti punya RCD dengan Visual Basic 6 caranya sangat mudah. Ikuti langkah-langkah berikut maka kamu akan mempunyai Serial Checker buatan sendiri ^_^. Contoh  disini pun bisa dikembangkan menjadi sebuah injector/software dg lock HWID selain itu hasil dari Serial Number bisa di implementasikan ke file dll yg menggunakan lock HWID

Serial Checker ini membaca Serial drive C pada Hardisk kompi target. Langkah- langkah yang harus u lakukan sederhana sekali :

1. Buat New Project di VB6
2. Pilih Standar Exe
3. Buat satu Form 
4. Buat TextBox di form1 tsb
5. Copy Paste Code dibawah 

Private Declare Function GetVolumeInformation Lib _

"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long


Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function


Private Sub Form_Load()
Text1.Text = GetSerialNumber("C:\")
End Sub

Download Source Full Project
Download Source HWID dll library

Maka hasilnya seperti gambar paling atas  ^_^  . Selamat Mencoba