+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : لماذا لا يعمل هذا الطود مع الجميع (/showthread.php?tid=17585)
لماذا لا يعمل هذا الطود مع الجميع - Mohamed20 - 08-10-16
لماذا لا يعمل هذا الطود مع الجميع يعمل مع البعض و البعض الاخر يعطى رسالة خطاء
كود :
Public Shared Function GetRegistrationKey() As String
Try
Dim DiskID As String = Nothing
Dim DiskSerial As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim DiskNo As ManagementObject
Dim array As New ArrayList
For Each DiskNo In DiskSerial.Get()
DiskID = DiskNo("Signature").ToString
array.Add(DiskID)
Next DiskNo
Return DiskID
Catch ex As Exception
End Try
End FunctionRE: لماذا لا يعمل هذا الطود مع الجميع - Mohamed20 - 08-10-16
انه بسبب نوع الهارد بعض من الهارد لا يملكون Signature لاكن هل يوجد طريقة اخرى لتفعيل المشروع عند المستخدم عن طريق الهارد ؟
RE: لماذا لا يعمل هذا الطود مع الجميع - ابراهيم النعيمي - 08-10-16
السلام عليكم
إقتباس :لاكن هل يوجد طريقة اخرى لتفعيل المشروع عند المستخدم عن طريق الهارد
بالامكان استخدام الرقم المتسلسل للمذر بورد (MotherBoard SerialNO) او الرقم المتسلسل للمعالج (CPU SerialNO)
تابع الرابط التالي اضغط هنــــــا