Cara Mengetahui Serial Number Hardisk dengan Visual Basic 6.0

Cara Mengetahui Serial Number Hardisk dengan Visual Basic 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : 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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Mengetahui Serial Number Hardisk dengan Visual Basic 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel