Subscribe to RSS FeedNews FeedSubscribe to Comments RSS FeedComments

Home > , > Membuat Sendiri Check HWID dengan VB6

Membuat Sendiri Check HWID dengan VB6

Sunday, February 19, 2012 Posted by indrascott

HWID Checker
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

Related Posts by Categories



Labels: ,

0 comments:

Post a Comment