فعلاً هذا الموضوع هام جداً .. وتم شرحه قديماً على هذا الرابط www.dev-point.com/vb/threads/445291/ لكن للأسف الصور والشرح غير وافى ونتمنى من الأخ ماجد إعادة إحياء هذا الموضوع بطريقته السهلة الرائعة
درس رائع بارك الله فيك وزادك من علمه وفضله اسمح لي فقط بخصوص تصوير تنبيه المستخدم أثناء تشغيلل البرنامج كمسؤول هذا الفيديو فيه حل للمشكلة ua-cam.com/video/KMKuSjMSjwI/v-deo.html ويمكن حلها بسهولة عن طريق الذهاب إلى لوحة التحكم ثم النظام والأمان وبعدها نختار تغيير إعدادات التحكم في حساب المستخدم ونغير مستوى الأمان الافتراضي إلى المستوى الذي تحته مباشرة أي الثاني من الأسفل
بامكاننا تعديلها من خلال الذهاب الى my project ثم application ثم الضغط على view application events ثم كما في الشرح في الرابط documentation.devexpress.com/HelpResource.ashx?help=WindowsForms&document=img13021796.jpg ثم نكتب الكود التالي علما ان فورم واحد هو اسم الفورم الذي سعمل في البداية My.Application.MainForm = Form2
السلام عليكم و رحمة الله و بركاته أخي اذا كان لدي من ال form واحدة هي البرنامج و الثانية هي تسجيل رقم السيريال البرنامج . تنتهي المدة التجريبية بعد تشغيل البرنامج 30 مرة. عند ما يعمل البرنامج تعمل الفورم 1 (تسجيل السيريال) انا اريد اذا أدخل المستخدم السيريال صحيح ان اوقف عمل الفورم 1 . وعند تشغيل البرنامج اريد اذا ادخل المستخدم السيريال صحيح ان ابطل عمل الفورم 1 و يبدأ البرنامج بالعمل على الفورم 2 مباشرة دائما حتى بعد ايقاف البرنامج و اعادت تشغيله و شكرا هل يمكن ذالك؟ ☺
بنفس الطريقة التي يتم فيها تخزين قيمة او عدد مرات تسجيل الدخول قم بجعل البرنامج يقوم بتخزين السيريال نمبر في الرجستري اذا كان السيريال صحيح وفي حال قام المستخدم بتشغيل البرنامج اجعل البرنامج يقوم بفحص اذا كان السيريال موجود بالرجستري او لا ان كان موجود سيعمل بشكل طبيعي والا يذهب الى شاشة السيريال نمبر
@@majd-sh هكذا Public form1_load If my. Computer. Register.getvaule(مسار الريجستري . 5) is nothing then My. Computer. Register. Setvaule (المسار .5) then هذا االتجريبي If my. Register. Getvaule ( المسار 100000) is nothing then Me. Hide Form2. Show End if Public button1 cilic If textbox1. Text = "00" Then If my. Computer. Register. Getvaule (المسار 1000000) is no thing then My. Computer. Register. Setvaule (المسار 10000) End if End if لكن المشكلة عند التشغيل الفورم 1 (فورم ال سيريال) لا يختفي و شكرا
@@fatma.6367 الكود يعمل دون مشاكل لكن يجب عليك ان تستبدل الحدث الخاص باخفاء الفورم الاول ليكون اظهار الفورم الثاني قبله وبدلا من اخفاء اجعلها اغلاق وقبل ذلك اضغط مرتين على ماي بروجيكت ومن خيار ابلكيشن ابحث عن شت داون مود واستبدلها بــ وين لاست فورم كلوز اعتذر لاني لم اكتب الاسماء بالانجليزي لان الكتابة لن تكون مرتب لان الحروف العربية والانجليزي ستكون كل حروف بجهة مختلفة اما عن الكود سيصبح كالتالي load form If my. Register. Getvaule ( المسار 100000) is nothing then Form2. Show() Me. close() End if ================================= اذهب الى التالي حسب الخطوات التالية my project ----> application -------> shutdown mode ----اختر---> when last form closes
هذا هو السورس كود
www.mediafire.com/file/2k3bfn5xnhe288l/kkk.rar/file
حفظك الله ورعاك
نتمنى مزيداً من دروسك القيمه
لوتكرمت اخي الفاضل تعمل لنا شرح على النسخ الاحتياطي والاستعاده
ولك الشكر والتقدير ولاحترام
بارك الله فيك.....
من تقدم الى تقدم
شرح اكتر من رائع اقسم بالله وتم الاشتراك
شكرا على الدعم واهلا وسهلا بك في القناة
شكرااااا لك اخي الغالي
تسلم بش مهندس😘 ممكن تشرح طريقه اخذ ال serial number للجهاز بحيث لايشتغل البرنامج الا على serial الذي نقوم بتحديده
فعلاً هذا الموضوع هام جداً .. وتم شرحه قديماً على هذا الرابط
www.dev-point.com/vb/threads/445291/
لكن للأسف الصور والشرح غير وافى ونتمنى من الأخ ماجد إعادة إحياء هذا الموضوع بطريقته السهلة الرائعة
درس رائع بارك الله فيك وزادك من علمه وفضله
اسمح لي فقط بخصوص تصوير تنبيه المستخدم أثناء تشغيلل البرنامج كمسؤول هذا الفيديو فيه حل للمشكلة
ua-cam.com/video/KMKuSjMSjwI/v-deo.html
ويمكن حلها بسهولة عن طريق الذهاب إلى لوحة التحكم ثم النظام والأمان وبعدها نختار تغيير إعدادات التحكم في حساب المستخدم ونغير مستوى الأمان الافتراضي إلى المستوى الذي تحته مباشرة أي الثاني من الأسفل
مينفعش تستخدم السيتنج في حاجه زي كده مجرد ما تنقل البرنامج من مكانه او تغير حتي اسمه هياخد مسار جديد لتخزين السيتنج ويفقد القيم القديمه
شكرا اخي الكريم على التعليق لكن اسمح لي ان ادعوك لمشاهدة الفيديو كاملاً ثم احكم بنفسك
السلام عليكم
اخي إذا وضعت serial لهذا البرنامج كيف سألغي هذه العملية
نضع شرط عند تشغيل البرنامج يتأكد انه تم تخزين قيمة سيريال صحيحة او لا ويتم تخزين السيريال بنفس طريقة تخزين قيمة عدد مرات التشغيل
@@majd-sh جزاكم الله خيرا
هل يمكني التواصل معك في السوشيل ميديا
استاذ كيف يمكن تغير اعدادات ال Application/startub form عن طريق الأكواد ؟
أعتذر عن كثرة الأسإلة
بامكاننا تعديلها من خلال الذهاب الى my project ثم application ثم الضغط على view application events ثم كما في الشرح في الرابط
documentation.devexpress.com/HelpResource.ashx?help=WindowsForms&document=img13021796.jpg
ثم نكتب الكود التالي علما ان فورم واحد هو اسم الفورم الذي سعمل في البداية
My.Application.MainForm = Form2
@@majd-shشكرا لك استاذنا
العفو
السلام عليكم و رحمة الله و بركاته أخي اذا كان لدي من ال form واحدة هي البرنامج و الثانية هي تسجيل رقم السيريال البرنامج . تنتهي المدة التجريبية بعد تشغيل البرنامج 30 مرة. عند ما يعمل البرنامج تعمل الفورم 1 (تسجيل السيريال) انا اريد اذا أدخل المستخدم السيريال صحيح ان اوقف عمل الفورم 1 . وعند تشغيل البرنامج اريد اذا ادخل المستخدم السيريال صحيح ان ابطل عمل الفورم 1 و يبدأ البرنامج بالعمل على الفورم 2 مباشرة دائما حتى بعد ايقاف البرنامج و اعادت تشغيله و شكرا
هل يمكن ذالك؟
☺
بنفس الطريقة التي يتم فيها تخزين قيمة او عدد مرات تسجيل الدخول قم بجعل البرنامج يقوم بتخزين السيريال نمبر في الرجستري اذا كان السيريال صحيح وفي حال قام المستخدم بتشغيل البرنامج اجعل البرنامج يقوم بفحص اذا كان السيريال موجود بالرجستري او لا ان كان موجود سيعمل بشكل طبيعي والا يذهب الى شاشة السيريال نمبر
@@majd-sh شكرا جزاكم الله خيرا
@@majd-sh هكذا
Public form1_load
If my. Computer. Register.getvaule(مسار الريجستري . 5) is nothing then
My. Computer. Register. Setvaule (المسار .5) then هذا االتجريبي
If my. Register. Getvaule ( المسار 100000) is nothing then
Me. Hide
Form2. Show
End if
Public button1 cilic
If textbox1. Text = "00" Then
If my. Computer. Register. Getvaule (المسار 1000000) is no thing then
My. Computer. Register. Setvaule (المسار 10000)
End if
End if
لكن المشكلة عند التشغيل الفورم 1 (فورم ال سيريال)
لا يختفي
و شكرا
@@fatma.6367 الكود يعمل دون مشاكل لكن يجب عليك ان تستبدل الحدث الخاص باخفاء الفورم الاول ليكون اظهار الفورم الثاني قبله وبدلا من اخفاء اجعلها اغلاق وقبل ذلك اضغط مرتين على ماي بروجيكت ومن خيار ابلكيشن ابحث عن شت داون مود واستبدلها بــ وين لاست فورم كلوز
اعتذر لاني لم اكتب الاسماء بالانجليزي لان الكتابة لن تكون مرتب لان الحروف العربية والانجليزي ستكون كل حروف بجهة مختلفة اما عن الكود سيصبح كالتالي
load form
If my. Register. Getvaule ( المسار 100000) is nothing then
Form2. Show()
Me. close()
End if
=================================
اذهب الى التالي حسب الخطوات التالية
my project ----> application -------> shutdown mode ----اختر---> when last form closes
@@majd-sh شكرا لكم أخي أتعبتكم معي
هل من الممكن شرح هذا الموضوع بأسوبك الراقى:
طريقة إحترافية في حماية برنامجك من الكسر برمجياً
www.dev-point.com/vb/threads/445291/
ممكن حزف القيمة من الرجستر
My.Computer.Registry.CurrentUser.DeleteValue("ضع المسار هنا")