[محمد مكاوي]

حماية البرنامج له طرق عديدة منها مثلا ان تاخذ السريال نمبر للهارد ديسك وعمل معادلة عليه
يمكن معرف كود الهارد كما يلي
Dim HDD_Serial As String

Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")

For Each hd In hdd.Get

HDD_Serial = hd("SerialNumber")
MsgBox(HDD_Serial)
Next

---

حماية البرنامج له طرق عديدة منها مثلا ان تاخذ السريال نمبر للهارد ديسك وعمل معادلة عليه
يمكن معرف كود الهارد كما يلي
Dim HDD_Serial As String

Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")

For Each hd In hdd.Get

HDD_Serial = hd("SerialNumber")
MsgBox(HDD_Serial)
Next