Download Source Code Check HWID Full Disk

Download Source Code Check HWID Full Disk

BKE

 Dari postingan ini saya Menjelaskan langkah-Langkah Membuat Check HWID dari Visual Basic 6.Atau Anda bisa Download projectnya Di bawah Sendiri.
  • Buka Microsoft Visual Basic 6
  • Lalu Membuat Textbox yang berjumlah 5 seperti gambar di atas dengan yang ke 1 kasih nama "Text1" dan yang kedua "Text2" dan seterusnya sampai "Text5"
  • Buat Kalimat dari Label Berjumlah 5 seperti gambar di atas
  • Buat Comman Button berjumlah 2, yang 1 kasih nama "Command1" yang ke 2 kasih nama "Command2"
  • Dan Masukan Source Code di Bawah ini.
"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 Command1_Click()
Text1.Text = GetSerialNumber("C:\")
Text2.Text = GetSerialNumber("D:\")
Text3.Text = GetSerialNumber("E:\")
Text4.Text = GetSerialNumber("H:\")
Text5.Text = GetSerialNumber("I:\")
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Label_Click()

End Sub



  • Dan Tekan F5 Selesai.
Download Source Code Check HWID Full Disk :

http://www.4shared.com/rar/oGEojKWSba/Progams-ENgine_Full_HWID.html?

Facebook Google twitter
Kata kunci : Download Source Code Check HWID Full Disk

0 komentar