تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في فكرة حماية برنامج بطريقة
#1
السلام عليكم ورحمة الله وبركاته

اخواني كل شخص اكيد يريد حماية برنامج.. وطبعا لا توجد حماية كامله لكن نحن نحاول لتصعيب الامر فقط
،، فعندي طريقة لم استطع تحليلها الى كود وهي ان يعمل البرنامج برقم المعالج للجهاز
كما نعرف انا لكل معالج في الجهاز رقم id خاص ،، فكيف نجعل البرنامج يقوم بهذه الاوامر ،،،

[color="#ff0000"]عند فتح الفورم يبحث عن رقم المعالج اذا تطابق مثل ما كتبنا رقمه يقوم بفتحه واذا لم يطابق لا يفتح ..
لكن المشكلة هنا كيف اجعله يستخرج رقم المعالج ؟[/color]
الرد }}}}
تم الشكر بواسطة:
#2
تفضل اخى

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        On Error Resume Next
        Dim computer As String = "."
        Dim wmi As Object = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & computer & "\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu.ProcessorId
            MsgBox("رقم المعالج : " & cpu_ids & "", MsgBoxStyle.Information)
        Next

        If cpu_ids = "BFEBFBFF00020655" Then
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("هذه النسخة ليست مرخصة لك", MsgBoxStyle.Critical)
            End
        End If
    End Sub
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك اخي الكريم على اجابتك الوافية والسريعة
الرد }}}}
تم الشكر بواسطة:
#4
just.coder كتب :تفضل اخى

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        On Error Resume Next
        Dim computer As String = "."
        Dim wmi As Object = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & computer & "\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu.ProcessorId
            MsgBox("رقم المعالج : " & cpu_ids & "", MsgBoxStyle.Information)
        Next

        If cpu_ids = "BFEBFBFF00020655" Then
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("هذه النسخة ليست مرخصة لك", MsgBoxStyle.Critical)
            End
        End If
    End Sub



اخوي طبقت الكود ولم يعمل معي ممكن توضح كيف استفد من الكود بارك الله فيك

لو تضع مثال او تشرح لنا كيف نعمل الكود بمثال ؟
الرد }}}}
تم الشكر بواسطة:
#5
توجد طريقة اخرى تعرض رقم الهارد ديسك .. تعلمتها من خلال هذا المنتدى .. سأرسل لحضرتك الكود .. لاحقا
الرد }}}}
تم الشكر بواسطة:
#6
سامي نت كتب :اخوي طبقت الكود ولم يعمل معي ممكن توضح كيف استفد من الكود بارك الله فيك

لو تضع مثال او تشرح لنا كيف نعمل الكود بمثال ؟

ماهي المشكلة التي ظهرت عندك ؟؟ ،، انا اشتغلت معي ،،
الرد }}}}
تم الشكر بواسطة:
#7
المهم لما يستخرج رقم المعالج فين يحفظه؟
لاتقول بنفس الجهاز او الريجستري.
وانما الافضل من وجهة نظري بخادم على الانترنت ولا تستخدم on error resume next بل استخدم try حتى لو واجه اي خطا يتم تسليم رسالة معينة بدل من ان يتخطى ويقوم بتشغيل البرنامج
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
راجع هذا الموضوع
http://vb4arb.com/vb/showthread.php?2745...D%DA%ED%E1
الرد }}}}
تم الشكر بواسطة:
#9
shado1796 كتب :ماهي المشكلة التي ظهرت عندك ؟؟ ،، انا اشتغلت معي ،،

ما ظهر اي مشكله عندي مثل لو بشغل فورم ولا يحتوي على اي كود
يعني اشغل المشروع بعد وضع الكود جوا الفورم رقم 1
ووضعت فورم رقم 2 وبعد تشغيل المشروع
لايوجد اي خطأ بس مو عارف كيف استفيد من الكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 3 53 منذ 13 دقيقة مضت
آخر رد: مساعدة
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 52 أمس, 01:49 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 40 22-01-17, 06:02 PM
آخر رد: CoderMM
  [VB.NET] اخ مساعدة الرجاء النظر الي هذا موضوع 3asfa~mdmra 5 136 21-01-17, 12:33 AM
آخر رد: 3asfa~mdmra
  [سؤال] كيف ابطل زر tab فى برنامج على الفيجوال بيسك Mohamed371 1 34 20-01-17, 02:11 AM
آخر رد: مساعدة
  [VB.NET] مساعدة حول تحيديث بينات جدول من جدول آخر kassa djeffal 1 38 19-01-17, 09:16 PM
آخر رد: ahmed.nabil
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 191 19-01-17, 01:30 PM
آخر رد: محمد بوقزاحة
  [VB.NET] مساعدة لنشر موقعي safa 1 46 18-01-17, 11:11 AM
آخر رد: أبو عمر
  مساعدة فى انشاء نظام تسجيل و تسحيل الدخول Mohamed20 2 119 15-01-17, 11:48 PM
آخر رد: Mohamed20
  [اقتراح] كيف ممنكن اتجاوز برنامج التجريبي 3asfa~mdmra 10 225 15-01-17, 04:00 AM
آخر رد: الماجيك مسعد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم