سؤال حول حماية البرنامج من النسخ بسيريال Hd أو Cpu

Private Sub ShowDriveInfo(ByVal drvpath)
Dim fs, d, s, t
fs = CreateObject("Scripting.FileSystemObject")
d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0 : t = "Unknown"
Case 1 : t = "Removable"
Case 2 : t = "Fixed"
Case 3 : t = "Network"
Case 4 : t = "CD-ROM"
Case 5 : t = "RAM Disk"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "SN: " & d.SerialNumber
MsgBox(s)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DrvPath As String = "C:\"
ShowDriveInfo(DrvPath)


End Sub
End Class

Public Class Form1

Public Class frm_DriveInfo



Private Sub frm_DriveInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim drives As New ArrayList

Dim query As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

For Each wmiDrive As ManagementObject In query.Get()
Dim info As New DriveInfo
info.Model = wmiDrive("Model").ToString()
info.Type = wmiDrive("InterfaceType").ToString()
drives.Add(info)
Next

query = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")

Dim i As Integer = 0
For Each wmiDrive As ManagementObject In query.Get()
' Get the hard drive from collection using index.
Dim info As DriveInfo = CType(drives(i), DriveInfo)
' Get the hardware serial number.
If wmiDrive("SerialNumber") Is Nothing Then
info.SerialNumber = "None"
Else
info.SerialNumber = wmiDrive("SerialNumber").ToString()
End If
i += 1
Next

' Display available hard drives.
For Each info As DriveInfo In drives
Label1.Text = ("Drive Model : " + info.Model)
Label2.Text = ("Drive Type : " + info.Type)
Label3.Text = ("Drive Serial No. : " + info.SerialNumber)
Next
End Sub
End Class

Class DriveInfo

Private _model As String
Private _type As String
Private _serialNumber As String

Public Property Model() As String
Get
Return _model
End Get
Set(ByVal Value As String)
_model = Value
End Set
End Property

Public Property Type() As String
Get
Return _type
End Get
Set(ByVal Value As String)
_type = Value
End Set
End Property

Public Property SerialNumber() As String
Get
Return _serialNumber
End Get
Set(ByVal Value As String)
_serialNumber = Value
End Set
End Property

End Class

Imports System.Management