[Tutorial] Membuat Checker HWID

Serial Checker ini membaca Serial drive C pada Hardisk kompi target. Langkah- langkah yang harus u lakukan sederhana sekali :

• Buat New Project di VB6
• Pilih Standar Exe
• Buat satu Form
• Buat TextBox di form1 tsb
• Copy Paste Code dibawah

Source Code: Membuat Checker HWID

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