[makky]

قمت بعمل برنامجه يعتمد علي استخراج رقم المعالج لجهاز بحيث لايعمل الا علي هذا الجهاز وعملت كريبت للرقم ومن ثم ديكريبت ومقارنة
في غالب الاجهزه يعمل هذا جيدا ولا يعمل البرنامج الابكود تفعيل مختلف.لكن وجدت ان البرنامج يعمل بكود تفعيل واحد علي بعض الاجهزه القديمة والتي تحمل وندوز اكس بي
ما المشكلة

[ملهمـ]

رقم المعالج لا يتكرر

[أبوبكر سويدان]

نعم تتكرر.

[sami4]

(20-05-19, 01:02 AM)makky كتب : قمت بعمل برنامجه يعتمد علي استخراج رقم المعالج لجهاز بحيث لايعمل الا علي هذا الجهاز وعملت كريبت للرقم ومن ثم ديكريبت ومقارنة
في غالب الاجهزه يعمل هذا جيدا ولا يعمل البرنامج الابكود تفعيل مختلف.لكن وجدت ان البرنامج يعمل بكود تفعيل واحد علي بعض الاجهزه القديمة والتي تحمل وندوز اكس بي
ما المشكلة

اللي اعرفه انه لالالا يتكرر سواء المعالجات او اللوحه الام او الهارديسكات
وقد يكون الكود الذي تستخدمه مع الاكس بي يعود بنتيجه (لاشيء) فتظن ان هناك تكرار
تاكد من الكود الخاص بالاكس بي! هل فعلا يعود بقيمه او لا!

(26-05-19, 12:46 AM)أبوبكر سويدان كتب : نعم تتكرر.

كلام كبير المطورين الاستاذ ابو بكر اربك معلوماتي! لكن سانتظر منه توضيح او رابط موثوق

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

من حيث المنطق لو ان لدي شركة تنتج المعالجات فحتما كل معالج سيأخذ رقما فريدا غير مكرر لنفس النوع من المعالجات مثلا جيل INTEL i5 وعند ما أقوم بانتاج معالج أحدث مثلا جيل intel I7 هنا اضع ارقاما تسلسلية جديدة وستتساوى مع الارقام التسلسلية لمعالجات حبل i5 السابقة

لكن سيختلف الاسم  ولو قمت بانتاج معالج جيل i7 ولكن بسرعة مختلفة قد الجأ الى ترقيم جديد او يمكنني المتابعة على ارقام I7 السابقة وهنا اذا تكرر الرقم ستختلف السرعة ..

شيئ أخر وهو الاحتمال الاكثر ورودا وهو فمت بانتاج معالج I7 وفق ارقام تسلسبية ثم اعطيت حق انتاج المعالح في دولة اخرى فعلى الاغلب سيتكرر رقم المعالج لكن ربما تضع الشركة رمزا على أن هذا المعالج من انتاج شركة اخذت امتيازا بانتاج هذا المعالج

والخلاصة هي كيف يتم جلب رقم المعالج؟ هل هو فقط الرقم التسلسلي؟ ام انه مضاف اليه رموز اخرى

 كالنوع والسرعة والمنشأ ؟

وهل دالة جلب الرقم التسلسلي تجلب الرقم فقط ام بمكن جلب كل المعلومات؟

نتمنى ممن لديه الخبرة افادتنا

شيئ آخر مهم وهو اننا نجلب رقم المعالج لحمابة برنامجنا وبما ان رقم المعالج ربما يتكرر لذلك سنضع شرطا أخر وهو رقم اللوحة الام وبهذا لن يتكرر الرقم 

وان تكرر الرقم للمعالج وهو احتمال فمن المستبحيل تكرار رقم اللوحة الام والمعالج معا

ارجو ان اكون قد افدتكم 

رمضان كريم دمتم بخير

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الحبيب الغالي " إبراهيم إيبو "

لو سمحت و سمحت ظروفك .. و لما يكون لديك الوقت الكافي

الرجاء التكرم بمثال صغير لمعرفة كيف يتم لمْ الشمل بين الإثنين ..

كود :

وبما ان رقم المعالج ربما يتكرر لذلك سنضع شرطا أخر وهو رقم اللوحة الام وبهذا لن يتكرر الرقم

بارك الله فيك و لك مقدما و جزاك خير الجزاء

تحياتي

[asemshahen5]

كود جلب السيريال الخاص بالمذر بورد :

PHP كود :

Dim query As String = "Select SerialNumber From Win32_BaseBoard"
        Using mbs As ManagementObjectSearcher = New ManagementObjectSearcher(query)
            For Each mo As ManagementObject In mbs.Get
                For Each pd As PropertyData In mo.Properties
                    ' should be only one'
                    If pd.Name = "SerialNumber" Then
                        ' value is object, test for Nothing'
                        If pd.Value IsNot Nothing Then
                            TextBox1.Text = pd.Value.ToString
                        End If
                        Exit For
                    End If
                Next
            Next
        End Using 


[makky]

اللي خلاني اسئل السؤال ده اني فعلا لقيت في تشابه وكانوا 3 اجهزه من النوع القديم جدا عليهم وندوز xp
المهم قمت باستخدام الماك ادريس.لكن المشكلة كانت ان ممكن بعض الاجهزة القديمه لايوجد بها كارت نت وبالتالي مفيش ماك ادرس
واستخدمت برضه سيريل المازربورد وبعد البحث كان افضل حل استخدام سيريل الهارد ديسك عن طريق استخدام WMI  windows management instrumentation
والحمد لله تم حل المشكله
شكرا لاستاذتي واصدقائ وكل سنة وانتوا طيبيب

[عبد العزيز البسكري]

تسلم أخي الكريم عاصم .. الكود فعلا يجلب الرقم بالشكل المطلوب و الصحيح بدون أي إلتباسات .. بارك الله فيك و لك و جزاك خير الجزاء إن شاء الله

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته اخوتي الكرام

هذا برنامج صغير يقوم بجلب ارقام البورد والمعالج والهارد

وفيه التحقق من الهارد والبورد ويمكن اضافة التحقق من رقم المعالج بحيث يصبخ الشرط ثلاثي

كما يمكن تغيير الشروظ حسب الرغبة

---------------------------------

اخوتي هناك بعض من الخطأ في كود التحقق لان البرنامج عملته منذ فترة

ولاحظت الان تلك الهفوات لذلك سأضع الكود كاملا

كود :

Imports System.Management
Public Class Form1
   Private Sub Btn_HdNumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_HdNumber.Click
       ' جلب رقم الهارد ديسك
       Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
       For Each dvs As ManagementObject In hd.Get()
           Dim serial As String = dvs("SerialNumber").ToString
           TextBox1.Text = serial.Trim
       Next
   End Sub

   Dim Activat As Boolean
   ' للتحقق من التفعيل
   Private Sub Test_Activation()
       Dim HD As String = "W -DXW4E806N6483" ' هذا رقم هاردي
       Dim MBR As String = ".6ZH4S3J.CN7016686A0BQC." ' هذا رقم البورد عندي
       If TextBox1.Text.Trim <> HD Or TextBox3.Text.Trim <> MBR Then
           MsgBox("غير مصرح لك باستخدام البرنامج على هذا الجهاز", MsgBoxStyle.Critical, "تحذير")
           Exit Sub
           Activat = False
       Else
           MessageBox.Show("هذه النسخة مرخصة")
           Activat = True
       End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       'فحص التفعيل
       Call Test_Activation()
       'Call Test_Processor()
       TextBox4.Text = Activat
   End Sub

   Private Sub btn_proccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proccess.Click
       Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
       Dim mo_PR As ManagementObject
       For Each mo_PR In MOS_PR.Get()
           TextBox2.Text = mo_PR("ProcessorId").ToString()
       Next
   End Sub
   'جلب رقم المازربورد
   Function GetMotherboardSerialNumber() As String
       ' نقوم بإنشاء العنصر
       ' ManagementObjectSearcher
       ' وهو الذي سوف يقوم باحتواء جملة الاستعلام وبتنفيذها
       ' لاحظ أنه يمكنك استخدام العلامة
       ' *
       ' للحصول على جميع الأعمدة
       ' Properties
       ' في الجدول
       ' Class
       ' الذي يحوي بيانات الماذربورد وهو
       ' Win32_BaseBoard
       Dim searcher As New ManagementObjectSearcher("SELECT SerialNumber, Product FROM Win32_BaseBoard")
       ' تنفيذ الأمر
       ' يحوي العنصر
       ' ManagementObjectCollection
       ' جميع البيانات المسترجعة من الاستعلام

       ' والتي تتمثل في هيئة صفوف
       ' Objects
       Dim information As ManagementObjectCollection = searcher.Get()
       Dim serialNumber As String = String.Empty
       ' المرور على جميع الصفوف
       ' لأنها ماذربورد واحدة فسوف يكون هناك صف واحد
       For Each obj As ManagementObject In information
           ' الاستعلام عن العمود
           ' SerialNumber
           ' إذا لم يحوي بيانات
           ' يتم استخدام العمود
           ' Product
           ' كبديل
           If (obj.Properties("SerialNumber").Value.ToString().Trim() <> String.Empty) Then
               serialNumber = obj.Properties("SerialNumber").Value.ToString().Trim()
           Else
               serialNumber = obj.Properties("Product").Value.ToString().Trim()
           End If
           ' لا توجد فائدة للسطر التالي لأنها ماذربورد واحدة
           Exit For
       Next
       ' يفضل استخدام الدالة
       ' Dispose
       ' لإلغاء العنصر
       ' ManagementObjectCollection
       ' من الذاكرة
       searcher.Dispose()
       Return serialNumber
   End Function

   Private Sub Btn_Board_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Board.Click
       TextBox3.Text = GetMotherboardSerialNumber().Trim

   End Sub


End Class