Cara Mengetahui Serial Number Hardisk dengan Visual Basic 6.0

Cara Mengetahui Serial Number Hardisk dengan Visual Basic 6.0 - Pada pertemuan kali ini tip dan trik visual basic akan memberikan sebuah tip yaitu cara mendapatkan serial number dari hardisk melalui form visual basic.Beberapa waktu lalu kita sudah membahas tentang serial number terutama fungsi, tujuan dan cara membuat serial number di visual Basic.

Perlu Anda ketahui bahwa Hardisk yang kita gunakan pada komputer memiliki serial number yang berbeda-beda satu dengan lainnya, bahkan jika kita membagi hardisk menjadi beberapa partisi, maka masing-masing partisi memiliki serial number yang berbeda.

Program ini berfungsi untuk mengetahui serial number dari setiap partisi hardisk kita, sehingga antara partisi C dan D memiliki serial number yang berbeda.

Serial Number ini dapat juga dijadikan sebagai proteksi bagi kita yang ingin membuat program aplikasi yang memiliki pedeteksian serial number, karena otomatis serial number program kita ditiap komputer berbeda-beda. Namun untuk lebih aman kita bisa menggunakan logika “Xor” ataupun diolah dengan metode lain yg di inginkan, sehingga serial yang tampil tidak murni serial number hardisk.

Bagi Anda yang tertarik tip tersebut silahkan ikuti langkah-langkah pembuatannya berikut ini:

Cara Mengetahui Serial Number Suatu Hardisk melalui Visual Basic 6.0

1.Buka Project VB6 Anda, pilih Standar EXE beri nama Form1 pada propertis Neme :FrmRegister

2.Tanamkan 1 buah Frame, 1 buah DriveListBox, 1 buah Line, 1 buah TextBox, 1 buah CommandButton dan beberapa Label

3.Desainlah Form seperti Gambar dibawah ini:

Form Desain

4.Tambahkan 1 buah Module dengan cara klik Project >> Add Module pada bagian Module Propertis Name beri nama:MdlSerial, kemudian ketik kode dibawah ini di jendela Module :

Public sValid As Boolean

Public vKunci As String

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

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Const DRIVE_FIXED = 3

Dim sDrive As String

Dim iCtr As Integer

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

Public Function CekProduk(nDrive As String) As String

Dim VarSerial As String

Dim KeyID As Double

Dim SNumber As Double

Dim vAbjad As String

Dim nToko As String

Dim NmrID As Double

nDrive = nDrive & ":\"

If GetDriveType(nDrive) = DRIVE_FIXED Then

    VarSerial = GetSerialNumber(nDrive)

    VarSerial = IIf(InStr(1, VarSerial, "-") > 0, Replace(VarSerial, "-", ""), VarSerial)

    CekProduk = VarSerial

End If

End Function

5. Simpan hasil pekerjaan Anda dan jalankan program

Sekian tip Cara Mengetahui Serial Number Suatu Hardisk melalui Visual Basic 6.0. Selamat mencoba semoga berhasil.

Related Post: Tools