+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مطلوب كود يمنع البرنامج من العمل (/showthread.php?tid=10852)
مطلوب كود يمنع البرنامج من العمل - 0theghost0 - 04-12-14
السلام عليكم
مطلوب كود يمنع البرنامج من العمل في حالة تغيير او نقل البرنامج من جهاز الى اخر بحيث انه يقرأ كود المدربورد المحدد ليعمل على نفس المدربورد ان كان كود المدربود متشابه
مثال للموضوع :
لدي برنامج اريده ان يعمل فقط على كمبيوتري وكود المدربورد هو 123456789 ونقلته على كمبيوتر اخر كود حق المدربورد 1239876345 بحيث ان البرنامج لا يعمل على 1239876345 ولكنه يعمل فقط على 123456789
هذا هو مقصدي
RE: مطلوب كود يمنع البرنامج من العمل - سعود - 04-12-14
الافكار متعددة منها الصعب ومنها البسيط
ابسط شي اعرفه هو عند اول تشغيل للبرنامج تطلب من المستخدم التسجيل ثم تحفظ البيانات التي قدمها مع بيانات المذربورد وترسلها لقاعدة بيانات على خادم... وعند كل تشغيل تستعلم عن هذه البيانات.
RE: مطلوب كود يمنع البرنامج من العمل - الوليد ☺ - 04-12-14
السلام عليكم ورحمة الله
مثل ما قال أخوي سعود
بس المسألة طويلة الله يعينك
وهذه طريقة المقارنة والخروج من البرنامج إذا ما فيه تطابق، إن شاء الله يكون تمام،
أنا لم أجرب هذا الكود لأني لا أحتاج لهذا الموضوع حالياً
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If SystemSerialNumber().ToLower <> "??????????????".ToLower Then
MsgBox("لا يمكن تشغيل البرنامج على هذا الجهاز")
Application.Exit()
End If
End Sub
Public Function SystemSerialNumber() As String
Dim serial_numbers As String = String.Empty
Dim wmi As Object = GetObject("WinMgmts:")
For Each board As Object In wmi.InstancesOf("Win32_BaseBoard")
serial_numbers &= ", " & board.SerialNumber
Next board
If serial_numbers <> "" Then serial_numbers = serial_numbers.Substring(2)
Return serial_numbers
End Function