07-01-17, 07:17 PM
(آخر تعديل لهذه المشاركة : 07-01-17, 07:20 PM {2} بواسطة Basil Abdallah.)
كود :
Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim HD As ManagementObject
For Each HD In HDinformation.Get()
MsgBox(HD("SerialNumber").ToString())
Nextتوجد طرق رائعه لحماية البرنامج و اعطاء رخص للعملاء عن بعد عن طريق ضغطة زر تعتمد على الرقم التسلسلي للهارديسك او اي جزء من اجزاء البرنامج
Basil Abdallah 