24-11-19, 12:58 AM
(21-10-18, 02:05 AM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهبعيدا عن كلام لا حماية مطلقة .. و كل البرامج يسهل كسرها .. إلخأخي الكريم .. بالنّسبة لهذا الموضوع أظن أن كتابة ( رقم أو سيريال ) داخل الأكواد على الأقل أفضل من كتابته بملف خارج المشروع .. و بكل واقعيّة ليست لي أي معلومات أو دراية واسعة بهذه المواضيع .. ربّما أنت على إطّلاع أحسن و أفضل منّي ..فقط من باب المطالعة .. إستنتجت أن الكثير من الأساتذة يفضّلون و يلجؤون إلى الحماية بواسطة قاعدة البيانات .. يتم تسجيل معلومات العميل و رقم النسخة و كود التّفعيل داخل قاعدة البيانات و يتم الفحص و المقارنة من خلالها ..أنظر هذا المثال بالمرفقات .. للأخ الكريم .. إلهي يذكره بكل الخير إن شاء الله .. إسمه " RAMILOVE " ..و الطريقة الثانية ..تحديد عدد الصفوف بقاعدة البيانات مثلا إذا وصل عدد السجلات إلى 10 .. يتم الخروج من البرنامج .. و تزرعه بالفورم لود بكل شاشات الإدخال التي تراها أنت لها أهميّة ..
كود :
Dim dt As New DataTable
Dim da As New SqlDataAdapter("SELECT COUNT(CANDIDATE_IDD) FROM CANDIDATE", Conn_2018)
da.Fill(dt)
TextBox1.Text = dt.Rows(0)(0)
If dt.Rows(0)(0) >= 10 Then
MessageBox.Show("عفواً....انتهت صلاحية البرنامج يجب عليك شراء النسخة الكاملة", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
Application.ExitThread()
End If
الطريقة الثالثة .. قرأتها منذ ايّام بهذا المنتدى الرّائع .. و هي التسطيب فقط من خلال الفلاشة .. بحيث يجب عمل إرتباط بين سيريال الفلاشة و رقم الهارد أو غيره من الجهاز العميلالطريقة الرابعة .. تقوم بتعطيل الوظائف الرئيسية من البرنامج و عند الشراء يتم إظافتهم بنوع من الحماية المذكورة سالفاو قد يفيدك الخبراء بهذا المجال بارك اله فيهم مقدّمًاتحياتي
بارك الله فيك أستاذي الفاضل، وأخي الحبيب عبد العزيز على هذا المثال الرائع ... وجعله الله في ميزان حسناتك
وقد استفدت كثيراً من هذا المثال الرائع
شرحَ الله قلبكَ علماً وحكمةَ
وأنَارَصدركَ نورا وهدى
ورفعَ قدؤكَ في الدارين
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ