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


الاخوه والاخوات الكرام

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

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

سيكون هناك برنامجين

البرنامج الاول هو البرنامج الرئيسى

البرنامج الثانى هو برنامج التفعيل

الفكره التى خطرت فى بالى ونفذتها فعلا على برنامج الان لدى العميل من اسبوع تقريبا

والبرنامج يعمل بكل كفاءه وايضا ضمنت عدم العبث بالبرنامج باستخدامه على اجهزه اخرى

اى ان البرنامج سيعمل على جهاز واحد فقط

الفكره ان البرنامج فى اول تشغيل له سيقوم بالبحث عن ملف نصى فى مجلد النظام او السى وبالتحديد فى مجلد الويندوز

وضعت كود فى بدايه تحميل الفورم وهو يقوم بالبحث عن الملف اذا وجده قام باكمال التحميل ويعمل

اذا لم يجده فهنا سيقوم البرنامج باغلاق نفسه ومن ثم تشغيل برنامج التفعيل الذى قمت بتصميمه ويتكون من تكست بوكس واحد وبوتون

التكست بوكس تدخل به كلمه مرور محدده مسبقا بداخل البرنامج وعندما يدخلها المستخدم بالطريقه الصحيحه يقوم برنامج التفعيل بالعمل وهنا سيظهر فورم به زرين

الزر الاول اسمه زر التفعيل وعندما يضغط عليه المستخدم سيقوم بانشاء الملف النصى فى مجلد النظام بدون ان يعمل المستخدم بذلك

وبعد ذلك هناك زر اسمه الخروج وهنا بعد الضغط على زر التفعيل يتم الخروج من برنامج التفعيل

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

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

لانى اقدر تعب المبرمجين من السهر بالليالى والاشهر وتاتى الايدى العابثه باستخدام جهد وعرق المبرمج بدون وجه حق

اسم برنامج التفعيل activate.exe وموجود فى مسار البرنامج الرئيسى ولكن نسيت ان اقوم بعمل كود يحذف هذا البرنامج بعد التحقق من وجود الملف النصى المنشا من قبله فى مجلد النظام فاحببت الا اضيفه الان وان شاء الله ساقوم بالتطوير لاصل لاقصى حد من الحمايه

الكود كالتالى

اولا قم بتصميم برنامجك الرئيسى وضع به الاكواد التاليه فى حدث الفورم لود لاول شاشه لبرنامجك

اى لو كان هناك مثلا سبلاش سكرين ضع بها هذا الكود فى الفورم لود

ولو كان بدايه برنامجك فورم تسجيل الدخول ضع بها هذا الكود فى حدث الفورم لود

اى باختصار ضع الكود فى فورم البدايه لبرنامجك

كود :
[color=#000000][COLOR=#0000bb]  [/color][color=#007700]If [/color][color=#0000bb]Not File[/color][color=#007700].[/color][color=#0000bb]Exists[/color][color=#007700]([/color][color=#dd0000]"c:\windows\MyTest.ini"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
            MsgBox[/COLOR][color=#007700]([/color][color=#dd0000]"هذه النسخه غير مفعله من فضلك اتصل بمطور البرنامج  "[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"يمكنك مراسلته على البريد الالكترونى الاتى وطلب رمز التفعيل"[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"avocato2008@hotmail.com"[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]Process[/color][color=#007700].[/color][color=#0000bb]Start[/color][color=#007700]([/color][color=#dd0000]"activate.exe"[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Close[/color][COLOR=#007700]()
            Exit [/COLOR][COLOR=#0000bb]Sub
        [/COLOR][COLOR=#007700]Else
            [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Show[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  
[/COLOR][color=#0000bb][/color][/COLOR]


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

كلمه المرور محدده مسبقا داخل البرنامج

لاحظ الكود التالى لفورم تسجيل الدخول الى برنامج التفعيل


كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]Public Class [/color][COLOR=#0000bb]Form2
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        [/COLOR][color=#007700]If [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"" [/color][COLOR=#0000bb]Then
            MsgBox[/COLOR][color=#007700]([/color][color=#dd0000]"غير مسموح بقيمه فارغه"[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]ToolTip1[/color][color=#007700].[/color][color=#0000bb]Active [/color][color=#007700]= [/color][COLOR=#0000bb]False
        End [/COLOR][COLOR=#007700]If
        If [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"emad0096594942529" [/color][COLOR=#0000bb]Then
            Me[/COLOR][color=#007700].[/color][color=#0000bb]Hide[/color][COLOR=#007700]()
            [/COLOR][color=#0000bb]Form1[/color][color=#007700].[/color][color=#0000bb]Show[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
    [/COLOR][COLOR=#0000bb]End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub TextBox1_MouseMove[/color][color=#007700]([/color][color=#0000bb]sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles TextBox1[/color][color=#007700].[/color][COLOR=#0000bb]MouseMove
        ToolTip1[/COLOR][color=#007700].[/color][color=#0000bb]Active [/color][color=#007700]= [/color][COLOR=#0000bb]False
    End Sub
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Form2_Load[/color][color=#007700]([/color][color=#0000bb]sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles MyBase[/color][color=#007700].[/color][COLOR=#0000bb]Load
        TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Focus[/color][COLOR=#007700]()
        =====================for [/COLOR][COLOR=#0000bb]help him about password
        Dim too [/COLOR][color=#007700]As New [/color][COLOR=#0000bb]ToolTip
        too[/COLOR][color=#007700].[/color][color=#0000bb]IsBalloon [/color][color=#007700]= [/color][COLOR=#0000bb]True
        too[/COLOR][color=#007700].[/color][color=#0000bb]ToolTipIcon [/color][color=#007700]= [/color][color=#0000bb]ToolTipIcon[/color][color=#007700].[/color][COLOR=#0000bb]Info
        too[/COLOR][color=#007700].[/color][color=#0000bb]ToolTipTitle [/color][color=#007700]= [/color][COLOR=#dd0000]"مساعده"
        [/COLOR][color=#0000bb]too[/color][color=#007700].[/color][color=#0000bb]StripAmpersands [/color][color=#007700]= [/color][COLOR=#0000bb]True
        too[/COLOR][color=#007700].[/color][color=#0000bb]SetToolTip[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700], [/color][color=#dd0000]"ادخل كلمه المرور التى حصلت عليها من المبرمج لكى تستطيع الولوج الى برنامج  التفعيل "[/color][COLOR=#007700])
    [/COLOR][COLOR=#0000bb]End Sub
End [/COLOR][COLOR=#007700]Class  
[/COLOR][color=#0000bb][/color][/COLOR]

اما الفورم التالى بعد نجاح تسجيل الدخول يوجد به عدد 2 بوتون الاول اسمه تفعيل والاخر اسمه خروج

الكود كاملا للفورم


كود :
[color=#000000][COLOR=#0000bb]Imports System[/color][color=#007700].[/color][COLOR=#0000bb]IO
Imports System[/COLOR][color=#007700].[/color][COLOR=#0000bb]Text
[/COLOR][color=#007700]Public Class [/color][COLOR=#0000bb]Form1
    [/COLOR][COLOR=#dd0000]'تعريف بانشاء ملف فى مجلد النظام بالاسم والامتداد
    Dim fileLoc As String = "c:\windows\MyTest.ini"
    '[/COLOR][COLOR=#0000bb]عند الضغط على زر التفعيل يتم انشاء الملف النصى
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Dim fs [/COLOR][color=#007700]As [/color][color=#0000bb]FileStream [/color][color=#007700]= [/color][COLOR=#0000bb]Nothing
        [/COLOR][color=#007700]If ([/color][color=#0000bb]Not File[/color][color=#007700].[/color][color=#0000bb]Exists[/color][color=#007700]([/color][color=#0000bb]fileLoc[/color][color=#007700])) [/color][COLOR=#0000bb]Then
            fs [/COLOR][color=#007700]= [/color][color=#0000bb]File[/color][color=#007700].[/color][color=#0000bb]Create[/color][color=#007700]([/color][color=#0000bb]fileLoc[/color][COLOR=#007700])
            [/COLOR][COLOR=#0000bb]Using fs
            End Using
        End [/COLOR][COLOR=#007700]If
        [/COLOR][COLOR=#dd0000]'الكود التالى اذا احببت انشاء ملف نصى فقط وليس بالامتداد العلوى ويتم قراء بيانات الملف النصى الى تكست بوكس  
        ' [/COLOR][color=#0000bb]Dim path [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][COLOR=#dd0000]"c:\windows\MyTest.txt"
        '  If File.Exists(path) = False Then
        ' [/COLOR][color=#0000bb]Create a file to write to[/color][COLOR=#007700].
        [/COLOR][COLOR=#dd0000]' Dim sw As StreamWriter = File.CreateText(path)
        '  [/COLOR][color=#0000bb]sw[/color][color=#007700].[/color][color=#0000bb]WriteLine[/color][color=#007700]([/color][color=#dd0000]"اسم العميل"[/color][color=#007700], [/color][color=#0000bb]My[/color][color=#007700].[/color][color=#0000bb]Computer[/color][color=#007700].[/color][color=#0000bb]Name[/color][COLOR=#007700])
        [/COLOR][COLOR=#dd0000]' sw.WriteLine("تاريخ التفعيل", DateAndTime.TimeOfDay)
        '  [/COLOR][color=#0000bb]sw[/color][color=#007700].[/color][color=#0000bb]WriteLine[/color][color=#007700]([/color][color=#dd0000]"كود التفعيل"[/color][COLOR=#007700])
        [/COLOR][COLOR=#dd0000]'  sw.Flush()
        '  [/COLOR][color=#0000bb]sw[/color][color=#007700].[/color][color=#0000bb]Close[/color][COLOR=#007700]()
        [/COLOR][COLOR=#dd0000]'   End If
        ' [/COLOR][color=#0000bb]Open the file to read from[/color][COLOR=#007700].
        [/COLOR][COLOR=#dd0000]'  Dim sr As StreamReader = File.OpenText(path)
        '  [/COLOR][color=#007700]Do While [/color][color=#0000bb]sr[/color][color=#007700].[/color][color=#0000bb]Peek[/color][color=#007700]() >= [/color][COLOR=#0000bb]0
        [/COLOR][COLOR=#dd0000]'TextBox1.Text = (sr.ReadLine())
        ' [/COLOR][COLOR=#0000bb]Loop
        [/COLOR][COLOR=#dd0000]'  sr.Close()
        ' [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"تم تفعيل البرنامج "[/color][COLOR=#007700])
        [/COLOR][COLOR=#dd0000]' TextBox1.Text = "تم تفعيل البرنامج"
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        '[/COLOR][COLOR=#0000bb]الخروج من البرنامج او تشغيل البرنامج الرئيسى  
        System[/COLOR][color=#007700].[/color][color=#0000bb]Diagnostics[/color][color=#007700].[/color][color=#0000bb]Process[/color][color=#007700].[/color][color=#0000bb]Start[/color][color=#007700]([/color][color=#dd0000]"bank.exe"[/color][COLOR=#007700])
        [/COLOR][COLOR=#0000bb]End
    End Sub
End [/COLOR][COLOR=#007700]Class  
[/COLOR][color=#0000bb][/color][/COLOR]

هذا اقصى ما توصلت اليه بخبرتى البسيطه التى اكتسبتها على ايديكم

اذا اعجبتكم الفكره فهذا فضل من الله ونعمه واذا لم تعجبكم فهذا خطا منى ومن الشيطان

ولا ارجو فى كلتا الحالتين الا دعوه صالحه

ارجو من الجميع تطبيق الفكره والتعقيب اذا كان هناك شئ مبهم او غير واضح

تحياتى للجميع وبالتوفيق

اخوكم

الافوكاتو

}}}
تم الشكر بواسطة: صبري زينوبي , صبري زينوبي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استخدام دوال مكتبة من ملف DLL بدون إضافته كمرجع Reference @@أبورائد@@ 7 7,833 18-11-21, 05:30 AM
آخر رد: kaled2025
  البرنامج بعد وضعه في صورة exe لا يتعامل مع قاعدة البيانات محمد خلف زكي 0 2,692 04-08-16, 05:10 AM
آخر رد: محمد خلف زكي
  مثال بسيط لتغيير طريقة استخدام اداة العنان Label مع الشرح RaggiTech 0 3,025 20-10-12, 11:50 AM
آخر رد: RaggiTech
  عمل تسجيل خروج وإيقاف تشغيل ... عن طريق #c RaggiTech 0 2,543 17-10-12, 10:09 PM
آخر رد: RaggiTech
  ارسال رسائل Sms بإستخدام فجوال بيسك دوت نت من البرنامج اللذي تطوره RaggiTech 0 9,832 17-10-12, 09:48 PM
آخر رد: RaggiTech
  منع أغلاق الفورم عن طريق(×)وأغلاقه بطريقة جميلة RaggiTech 0 2,781 17-10-12, 09:02 PM
آخر رد: RaggiTech
  عمل Copy-Paste من صوره على الجهاز الى البرنامج RaggiTech 0 2,478 17-10-12, 08:56 PM
آخر رد: RaggiTech
  سورس كود ملف ربط ديناميكى لتحديد فتره استخدام البرنامج RaggiTech 0 2,895 17-10-12, 08:52 PM
آخر رد: RaggiTech
  طريقة استخدام مكتبة internet download manager في برنامجك !! RaggiTech 0 2,243 17-10-12, 08:07 PM
آخر رد: RaggiTech
  استخدام مجال الأسماء My.Computer لمعرفة هل ازرارالوظائف تستخدم ام لاكزر Ctrl و خلافه RaggiTech 0 2,060 17-10-12, 06:59 PM
آخر رد: RaggiTech

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


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