Cara Membuat Project HWID

1. Buatlah Project , jika Sudah punya project atau tinggal dimasukkan code HWIDnya silhkan buka Project anda
2. Masukkan Code Berikut ini pada General Project anda :
'' Source Code Edited By : Raydin jrz Richio aka RIN-N3
'' greets to : N3 , INC ,B2.net , & Indrascoot

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

3. Setelah Memasukkan Silahkan tambahkan code berikut dimana Pun anda mau , Maksudnya Jika Sudah membuka Applikasi anda Beberapa Tombol atau fitur anda non - aktivkan Kemudian Masukkan Code Berikut di Buttom Check
Buat buttom dengan Nama "CmdChk" dan buat juga textbox dgn nama "txtHwid"
Private Sub CmdChk_Click()
If GetSerialNumber("C:\") = txtHwid.Text Then ''Jika Hwid pada C: Sama Dengan txthwid Panggil Fungsi Selanjutnya
''Panggil Fungsi yang ingin Anda Panggil , Seperti Timer atau Form
else
msgbox "HWID Anda Tidak Cocok , Silahkan Hubungi Author" , vbInformation , "HWID eRroR"
End If
End Sub
Pada "txtHWID", isikan nomor HWID Komputer dimana applikasi ini akan berjalan
4. Buat txthwid disembunyikan atau Setting Menjadi Visible=False atau Pindahkan ditempat tersembunyi diform anda
5. Jika Sudah Silahakn Compile Dan Coba jalan kan Applikasi Anda
Download Projectnya yang sudah Jadi Sisa Edit atau Copy & paste Code ke Applikasi anda

Download Klik Di Sini