• Home
 · 
• Windows API Call/Explanation
 · 
• From this code we will get a Harddisk serialNumber and Modelnumber. Because of Each harddisk has a

From this code we will get a Harddisk serialNumber and Modelnumber. Because of Each harddisk has a

From this code we will get a Harddisk serialNumber and Modelnumber. Because of Each harddisk has a unique serialno,We can use this serialno to

API Declarations


Public Declare Function GetModelNumber Lib "DiskSerial.dll" (ByVal nDrive As Integer, ByVal lpBuffer As String) As Long





Rate From this code we will get a Harddisk serialNumber and Modelnumber. Because of Each harddisk has a

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'From that Yor will get Your Harddisk serialNumber and Modelnumber
'Because of Each harddisk has a unique serialno,We can use this serialno
'to protect any application from other harddisks if the HDDserialno is not match
'then exit from the application

Private Sub Command1_Click()
    Dim HDDserialno As String * 256
        Call GetSerialNumber(0, HDDserialno)
        MsgBox HDDserialno
End Sub
Private Sub Command2_Click()
    Dim HDDModelno As String * 256
        Call GetModelNumber(0, HDDModelno)
        MsgBox HDDModelno
End Sub