Simple Proggram Ber-HWID di VB6

Beranda

...

Programmer Forum
Simple Proggram Ber-HWID di VB6

galihvalentino

31-01-2014 15:56

Simple Proggram Ber-HWID di VB6

Sesuai Judul Thread , 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 :

Spoiler for :

'' Source Code Edited By : galihvalentino
'' 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"

Spoiler for :

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

2.9K

Kutip

Balasan

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Mari bergabung, dapatkan informasi dan teman baru!

Programmer Forum

20.2KThread•4.2KAnggota

Terlama

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru