البرنامج اللي اسمة برنامج المشتري ده فيه رقم المعالج وأيضا فيه عمليات محاسبية على المعالج مخفيه فاهم اخي مخفيه الى لا تظهر للمستخدم فقط الذي يظهر هو رقم المعالج وسوف يطلب البرنامج منه ارسال هذا الرقم الى المصمم وهو انت اخي على سبيل المثال
انت سوف تدخل رقم المعالج المرسل من العميل على برنامج اللي اسمه برنامج المصمم سوف يقوم البرنامج بإخراج السريال فقط ارسل السريا الى العميل سوف يدخله في التكست والاخوه ما قصروا جعلوه يحفظ السريال سواء في الرجستري او قاعدة البيانات او ممكن في ملف نصى في مجلد النظام ويقوم البرنامج بحفظه بعد ادخال العميل السريال حتى لا يطلب من العميل السريال كل مره يتم فتح البرنامج فيها
اقرأ هذه المقاله اكثر من مره بعد اذنك مع التطبيق على البرنامج خطوه خطوه حتى تتضح لك الصورة
لا تتردد في السؤال نحن نتمنى خدمتكم كلنا نتعلم ونسأل ولا احراج في السؤال ابدا ما دام بالاستطاعة الإجابة عليه
كود للحصول على الرقم التسلسلي للوحة الأم
حيث يمكن الاستفادة منه بالحماية أيضاً
كود :
Private Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal MemAddress As Long, var As Byte)
Private Function GetBIOSDate() As String
Dim p As Byte, MemAddr As Long, sBios As String
Dim i As Integer
MemAddr = &HFEC71
For i = 0 To 25
Call GetMem1(MemAddr + i, p)
sBios = sBios & Chr$(p)
Next i
GetBIOSDate = sBios
End Function
و يمكن الاستفادة من تاريخ البيوس
كود :
Private Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal MemAddress As Long, var As Byte)
Private Function GetBIOSDate() As String
Dim p As Byte, MemAddr As Long, sBios As String
Dim i As Integer
MemAddr = &HFFFF5
For i = 0 To 7
Call GetMem1(MemAddr + i, p)
sBios = sBios & Chr$(p)
Next i
GetBIOSDate = sBios
End Function
