Iso Web Id Tutorial Komputer
Salam kenal dan jumpa lagi dengan saya
Salam kenal dan jumpa lagi dengan mbahsomo
Kali ini mbah akan sedikit memberikan Trik Buat teman2 agar program teman2 dapat membaca hardware kompie
Langsung aja buka Project baru Visual Basic lalu kopikan source di bawah pada Form
Option Explicit
Dim awal As String
Dim a1 As String
Dim a2 As String
Dim kunci As String
Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer 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
Dim kal(0 To 16) As String
Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
Dim lRetVal As Long 'result of the API functions
Dim hKey As Long 'handle of opened key
Dim vValue As Variant 'setting of queried value
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = QueryValueEx(hKey, sValueName, vValue)
'MsgBox vValue
QueryValue = vValue
RegCloseKey (hKey)
End Function
Private Function GetSerialNumber() As Long
Dim lVolumeID As Long
Dim nRet As Long
Dim VolName As String
Dim MaxCompLen As Long
Dim VolFlags As Long
Dim VolFileSys As String
VolName = Space$(256)
VolFileSys = Space$(256)
nRet = GetVolumeInformation("C:", VolName, Len(VolName), lVolumeID, _
MaxCompLen, VolFlags, VolFileSys, Len(VolFileSys))
GetSerialNumber = lVolumeID ' Serial Number
End Function
Untuk penggunaannya misalkan
Private Sub CommandButton1_Click()
MsgBox (GetSerialNumber)
End Sub
Ok jadi deh programnnya
Jika sakit berlanjut hubungi dokter jika program tidak berjalan hubungi mbahsomo@gmail.com
By mbahsomo
