Cara Mengetahui Serial Number Hardisk dengan VB 6.0

Artikel Terkait Tutorial VB6
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.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).