Membuat Applikasi BerHWID Di VB6

Sesuai Judul Artikel di Raydin Blog Site yakni Membuat Applikasi Berhwid di VB6 , bagaimana cara membuat proggram atau Applikasi yang Memiliki Hwid Sederhana didalamnya
Mungkin Untuk Teman - Teman Sekalian Sudah Mengerti Tentang Proggram Berhwid , contohnya saja cheat di Pointblank atau Lainnya.
Tetapi Mungkin Dalam Coding atau Code masih banyak menggunakan C++ atau C# dalam menggunakan HWIDnya

Nah Kalau BGT Saya Akan Memberikan Tutorial Singkat , Padat , dan Jelas
Sebelum Belajar Mengenai Itu , Pertama Kita Berikan dan ucapkan terima kasih kepada IdraScoot yang Telah memberikan Source code untuk check hwid disetiap komputer atau PC .

Dari Project yang dishare pada Blognya ( Indrascoot) Saya Pun Mengubah dan Mengedi Scnya
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
Logika Code Diatas : Tombol CMDCHK , Jika Ditekan Memanggil Fungsi , Jika HWID Drive C: adalah Sekian - Sekian sama dengan txtHwid.Text (textbox) Maka Akan Memanggil Fungsi Selangjutnya
Fungsi Selanjutnya Yakni (*contoh Membuka Form 2 , Buka Tombol , & menaggil Fungsi atau database)
Else 
Munculkan Pesan Tidak Cocok atau tidak sesuai
Fungsi Berakhir

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 Via Media Fire : Download Here
Credit : Raydin Jrz Richio

Sumber : http://www.raydin-zu.net/2012/04/membuat-applikasi-berhwid-di-vb6.html