Cek Serial Hardisk dengan Kode VB6

Kali ini Admin akan berbagi sebuah kode vb6 yang berfungsi untuk menampilkan number seri pada hardisk atau Drive dengan fumgsi API pada komputer Anda.

Untuk Screeshoot hasilnya perhatikan pada gambar dibawah ini :

Output

Untuk membuatnya tambahkan 1 CommanbButton pada Form dan ketikan kode dibawah ini :

Option Explicit

  

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

 

Public Function GetSerialNumber(ByVal sDrive As String) As Long

    Call GetVolumeInformation(sDrive, vbNullString, 0, GetSerialNumber, ByVal 0&, ByVal 0&, vbNullString, 0)

End Function

Private Sub Command1_Click()

    MsgBox Hex$(GetSerialNumber("C:\")), vbOKOnly, "Number Seri"

End Sub

Kemudian jalankan project Anda

Related Post: API