منع المستخدم من إستعمال x مع رسالة تأكيد الخروج

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

السّلام عليكم و رحمة الله و بركاته
سادتي الأفاضل ..
فضل و إحسان منكم التكرّم و المساعدة بإنجاز المطلوب
كيف يمكن منع مستخدم التجميعة من استعمال الإكس X من نافذة التجميعة .. و الخروج يكون فقط بواسطة زر الأمر مع رسالة تأكيد الخروج لو تفضّلتم : ( هل تريد فعلاً الخروج من التجميعة ؟ )
https://h.top4top.io/p_1532ob6fj1.jpg
بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء
تحياتي واحتراماتي

[عبد الهادي بهاب]

السّلام عليكم و رحمة الله و بركاته
سادتي الأفاضل ..
فضل و إحسان منكم التكرّم و المساعدة بإنجاز المطلوب
كيف يمكن منع مستخدم التجميعة من استعمال الإكس X من نافذة التجميعة .. و الخروج يكون فقط بواسطة زر الأمر مع رسالة تأكيد الخروج لو تفضّلتم : ( هل تريد فعلاً الخروج من التجميعة ؟ )
https://h.top4top.io/p_1532ob6fj1.jpg
بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء
تحياتي واحتراماتي

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

بشكل بسيط جدا اتجه لقائمة الادوات ثم Projects ثم settings ثم اختر broderd

https://l.top4top.io/p_1532s80z91.png

اضف زر و سميه خروج و ضع فيه الكود


proceed = Dialog.Message("هل تريد الخروج", MB_OKCANCEL, MB_ICONQUESTION, MB_DEFBUTTON1);
if proceed == IDOK then
Application.Exit()
end



للشرح مثال مفتوح

https://top4top.io/downloadf-1532tll621-rar.html

بالتوفيق

-----------------------------------
ممكن تبدع في مربع الحوار

[عبد الهادي بهاب]

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

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


https://k.top4top.io/p_153294eci2.png


https://j.top4top.io/p_1532i0tzd1.png
تفضل الملف
https://top4top.io/downloadf-1532eh5mw1-rar.html


تحياتي لاحفاد سيدي عقبة الصحابي الجليل

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

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء و أحسن إليك أخي الكريم " عبد الهادي بهاب " على المساعدة ..
في الواقع .. قمت بوضع هذا الكود بال GLOBAL .. لمنع الإغلاق من الإكس بنافذة التجميعة :
function QueryAllowProjectClose()
return false;
end
الكود يشتغل تمام التمام لمنع الإغلاق من الخاصية المذكورة لكن .. بوضع هذا الكود يصبح الخروج من زر الامر مستحيلا .. طبعا هذا إذا ابتعدت عن جعل الإطار Bordered لأنّي أفضل استخدام Standard
أجدد شكري و تقديري واحترامي وامتناني لك أخي الغالي
تحياتي واحتراماتي

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

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

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


https://k.top4top.io/p_153294eci2.png


https://j.top4top.io/p_1532i0tzd1.png
تفضل الملف
https://top4top.io/downloadf-1532eh5mw1-rar.html


تحياتي لاحفاد سيدي عقبة الصحابي الجليل
ملف رائع بكل صدق أخي الكريم عبد الهادي .. روعة شخصك الكريم
تحياتي واحتراماتي

[عبد الهادي بهاب]

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء و أحسن إليك أخي الكريم " عبد الهادي بهاب " على المساعدة ..
في الواقع .. قمت بوضع هذا الكود بال GLOBAL .. لمنع الإغلاق من الإكس بنافذة التجميعة :
function QueryAllowProjectClose()
return false;
end
الكود يشتغل تمام التمام لمنع الإغلاق من الخاصية المذكورة لكن .. بوضع هذا الكود يصبح الخروج من زر الامر مستحيلا .. طبعا هذا إذا ابتعدت عن جعل الإطار Bordered لأنّي أفضل استخدام Standard
أجدد شكري و تقديري واحترامي وامتناني لك أخي الغالي
تحياتي واحتراماتي

الكودنضعه لمنع الخروج تماما و لو باستعمال خاصية alt+f4

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

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

السّلام عليكم و رحمة الله و بركاته
أخي الكريم " عبد الهادي " ..
كان لديّ سابقا كود يمنع استعمال الاكس من نافذة الصفحة .. و أستعمل فقط زر أمر للخروج النهائي لكن بسبب عطب في جهازي ضاعت منّي الكثير من الملفات من بينها تجمعة كنت أتعلم عليها
حاولت البحث مجددا و لم أجد المطلوب .. لذلك أخي الكريم لا تقس عن الكود الذي قمت بوضعه بالجلوبال .. لأني وضعته و يفي بالغرض صحيح .. لكن قد يكون بالمكان أو المسار الخاطيء أو يمكن هناك كود آخر كنت أستعمله سابقا
أعذرني أخي الفاضل عن سوء استخدام المصطلحات الخاصة بالأوتوبلاي ( مربع الحوار .... ) لأنّ فهمي قليل بهذا المجال
تحياتي واحتراماتي

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

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي و أستاذي القدير " عبد الهادي بهاب " على المساعدة
تمّ إيجاد الحل بعد البحث ببعض الملفات و الحمد لله ..
بالـ GLOBAL
function QueryAllowProjectClose()
return false;
end
و بزر الخروج ..
confirmation = Dialog.Message("تنبيه", "هل أنت متأكّد من أنّك تريد فعلا الخروج من المنظومة ؟", MB_YESNO, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
if confirmation == 6 then
function QueryAllowProjectClose()
return true;
end
end
Application.Exit(0);
تحياتي واحتراماتي

[عبد الهادي بهاب]

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي و أستاذي القدير " عبد الهادي بهاب " على المساعدة
تمّ إيجاد الحل بعد البحث ببعض الملفات و الحمد لله ..
بالـ GLOBAL
function QueryAllowProjectClose()
return false;
end
و بزر الخروج ..
confirmation = Dialog.Message("تنبيه", "هل أنت متأكّد من أنّك تريد فعلا الخروج من المنظومة ؟", MB_YESNO, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
if confirmation == 6 then
function QueryAllowProjectClose()
return true;
end
end
Application.Exit(0);
تحياتي واحتراماتي

الحمد لله حل جميل
يعني هو كود لمن يريد ان يمنع الخروج من التجميعة تماما و لو باستعمال الخروج بالقوة alt + f5
جميل جدا...بالتوفيق في مشاريعك و انتاجاتك
......... لا تنسى سورة الكهف .........

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

الحمد لله حل جميل
يعني هو كود لمن يريد ان يمنع الخروج من التجميعة تماما و لو باستعمال الخروج بالقوة alt + f5
جميل جدا...بالتوفيق في مشاريعك و انتاجاتك
......... لا تنسى سورة الكهف .........
أخي الكريم " عبد الهادي " ..
بعد إذنك .. و لو سمحت .. و أرجو المعذرة إذا كان السؤال في غير محلّه ..
عمل باسوورد للتجميعة عملية متاحة و الكود موجود كمثال ..

real_password = "password";

-- prompt the user to enter a password
user_password = Dialog.PasswordInput("Password", "Please enter the password: ", MB_ICONQUESTION);

-- compare the user's password to the 'correct' password.
-- If the user supplies the wrong password, exit the program.
if real_password ~= user_password then
Application.Exit();
end
هل يمكن في الأتوبلاي .. جعل كلمة المرور بالكود أعلاه في متغير .. و عمل تاكست بوكس أو مربع نص .. يقرأ سيريال الاسطوانة ليتم مقارنته بكلمة المرور
بارك الله فيك و لك و جزاك خير الجزاء
تحياتي واحتراماتي

[عبد الهادي بهاب]

أخي الكريم " عبد الهادي " ..
بعد إذنك ..
تحياتي واحتراماتي

السلام عليكم ورحمة الله وبركاته
اولا اذا اردت ادراج الاكواد في مشاركتك يكفي ان تضغط على زر php في ازرار الاعلى بجانب زر الصورة .... ثم تضع الكود داخل الحاضنتين
https://k.top4top.io/p_153393xq61.png
فيما يخص كلمة الدخول و مقارنتها فلك الكثير من الخيارات مدام عندك كود if و انت قارن بما تشاء
فيه عدة مشاريع حول الموضوع وحتى استعمال الريجستري مثلا او سريال الحاسوب نفسه او غيره ..........

في حالتك سريال الاسطوانة هو real_password
اي يكون الكود مثلا

real_password="alip-45fg-assia45-poli54-ghdB54";

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته
مع ملاحظة انه ليس في كل مرة نطلب منه ادخال رقم الاسطوانة بل مرة واحدة فقط
لذلك ممكن ننشا ملفا ما في القرص c
ثم لو جدناه لن تظهر صفحة ادخال السريال
https://j.top4top.io/p_1533k9l7w1.png
هذا ملف مفتوح للشرح
https://top4top.io/downloadf-1533skiry1-rar.html
-----------------
جرب اولا ستظهر الصفحة الاولى و المطلوب منها ادخال رقم الاسطوانة

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

اذهب الى c و احدف ملف MyAppSettings.ini وهو الذي انشناه

واعد تشغيل الاسطوانة ستعود لطلب السريال

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

بالتوفيق

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

السّلام عليكم و رحمة الله و بركاته
جمعة مباركة إن شاء الله
أستاذي الكريم " عبد الهادي بهاب "
بارك الله فيك و لك و جزاك خير الجزاء و أحسن إليك مثلما أحسنت لي بهذه الملفات و المساعدة المميزة .. تميّز شخصك الكريم
بالواقع أخي عبد الهادي ..
لديّ ملف بامتداد EXE تمّ تحزيمه بال SETUP FACTORY
فقط لتعلّم بعض أنواع الحماية و لو بالجزء اليسير .. أريد تشغيل هذا الملف ال EXE من خلال اسطوانة و بالتالي لا بدّ من استعمال سيريال الاسطوانة
أخي عبد الهادي .. الملف MyAppSettings.ini بالقرص C .. أين أجده بالضبط لو سمحت لأجرّب حذفه ..
تحياتي واحتراماتي

[ورشة عمل هشام]

السلام عليكم ورحمة الله وبركاته
اخي على حسب ما رئيت من ردود و على حسب سؤالك توصلت لهذه الفكرة في المرفق جربها ربما هذا هو قصدك
:abc_050::abc_050::abc_050::abc_050: