Sourcecode Program Sederhana Check HWID

Sourcecode Program Sederhana Check HWID

Kali ini  akan berbagi sourcecode sederhana membuat Program Check HWID / Hard Drive Number .
Langsung saja disimak caranya :

• Buat Sebuah FORM
• Sebuah Text Box
• Lalu Copy Source Code di bawah ini ke Form yang tadi kalian buat !

 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

• Lihat coding yang saya tandai warna merah  ("C:\") adalah disck yang saya check HWID nya, anda bisa rubah dengan disck D , atau HWID Flashdisck juga bisa.

Sangat mudah bukan ? jika anda kurang paham atau ada yang ingin ditanyakan silahkan komentar dibawah !