Cara Membuat Hwid Checker di Visual Basic 6.0

Berikut Toturial Cara Membuat Hwid Checker di Visual Basic 6 :

• Buat Satu Form [Name : FrmMain]
• Buat Satu TextBox
• Buat Satu Command Button
• Masukan Code dibawah ini :

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 Command1_Click() Text1.Text = GetSerialNumber("C:\") End Sub Private Sub Form_Load() End Sub

• Double Click Form anda,lalu masukan Code yang telah di Copy
• Lalu Compile Project yang tadi anda Buat