اخوتي الأعزاء كيف يمكن أن أحمي السورس كود وهل يمكن تشغيله لفترة محدودة وفقاً اعدد مرات تشغي أو تاريخ معين وليكن اسبوعين مثلاً ولكم مني جزيل الشكر[b][/b]
اخوتي الأعزاء برجاء الرد وشكراً
حماية البرنامج له طرق عديدة منها مثلا ان تاخذ السريال نمبر للهارد ديسك وعمل معادلة عليه
يمكن معرف كود الهارد كما يلي
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
أشكرك سيدي على اهتمامك ولكن ManagementObjectSearcher لاتعمل في فيجوال ستوديو 2013 ويظهر رسال وجود خطأ
" Type ManagementObjectSearcher is not defined "
(14-02-15, 09:43 PM)أسامة حسين كتب : [ -> ]أشكرك سيدي على اهتمامك ولكن ManagementObjectSearcher لاتعمل في فيجوال ستوديو 2013 ويظهر رسال وجود خطأ
" Type ManagementObjectSearcher is not defined "
لابد من ادراج المرجع او المكتبة الخاصة Management للتعامل مع عتاد الجهاز.
ثم استدعي المكتبة
