Source Code Check HWID Dari VB 6.0

Kalian Pernah Lihat Check HWID Milik RCD???
 Nah itu Yang Akan Kita Bahas Hari INI...
Serial Checker ini membaca Serial drive C pada Hardisk kompi target
 Langsung Aja Ke Topik...
Cara Buat:
-:>Buat New Project di VB6
-:>Pilih Standar Exe
-:>Buat satu Form
-:>Buat TextBox di form1 tsb
-:>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



 Selesai Deh...