تسجيل الدخول

مشاهدة النسخة كاملة : تغيير passwrd بعد تصدير البرنامج


محمد سامر
03-08-2016, 07:03 AM
بسم الله والصلاة والسلام على رسول الله :salla:
البعض يقوم بتصدير البرنامج ويقوم بوضع حماية له عند الدخول إليه وفتحه. إما((بعمل إسم ورقم سري،،،،أو برقم سري فقط...ويقوم بتعيين صوره للرقم السري والإسم على هيئة قفل أو ماشابه ذلك ))).. ويظل هذا الرقم والإسم والصوره ..بالبرنامج مدى الحياة..لا يستطيع تغييره..لأنه لم يراعي ذلك أثناء العمل بالمشروع.
فهل يمكن أثناء العمل بالمشروع مراعاة مايلي بعد التصدير:
[[حرية تغييرالإسم فقط...... الباس وورد فقط .... الإثنين سواء"الباس وورد والإسم"......]] [[حذف الإسم فقط .. حذف الباس وورد فقط أوحذفهم جميعا]] طبعا كل ذلك بعد التصدير ..

http://www.abc4web.net/vb/attachment.php?attachmentid=3276&stc=1&d=1470200394

__________________________________________________ _________________________________
http://www.abc4web.net/vb/attachment.php?attachmentid=3277&stc=1&d=1470200431

__________________________________________________ __________________________________
http://www.abc4web.net/vb/attachment.php?attachmentid=3278&stc=1&d=1470200468

__________________________________________________ _________________________________
http://www.abc4web.net/vb/attachment.php?attachmentid=3279&stc=1&d=1470200560

__________________________________________________ _________________________________
http://www.abc4web.net/vb/attachment.php?attachmentid=3280&stc=1&d=1470200584

عبد الهادي بهاب
03-08-2016, 11:02 AM
السلام عليكم ورحمة الله وبركاته

عبد الهادي بهاب
03-08-2016, 11:04 AM
هل تقصد ان كل مستخدم له الحرية بادخال رقم سري له بموجبه مثلا يحفظ بياناته في ملفه الخاص
اذا دخل مستخدم اخر وجب ان يحفظ بياناته في ملف اخر

محمد سامر
03-08-2016, 11:29 AM
هل تقصد ان كل مستخدم له الحرية بادخال رقم سري له بموجبه مثلا يحفظ بياناته في ملفه الخاص
اذا دخل مستخدم اخر وجب ان يحفظ بياناته في ملف اخر

وعليكم السلام ورحمةالله وبركاته آخي العزيز..طبت بكل خير
مقصدي كأن تصمم مثلا مشروع لتسجيل بيانات الطلاب ودرجاتهم في إمتحانات ..فيتطلب ذلك كثرة تغيير الباس وورد .
.لضمان سرية البيانات حتى لا يعلم شخص الرقم السري ويقوم بتعديل بعض الدرجات..
أما الحفظ فيكون مثلا قي ملف ini أو xml

فنأخذ النقطة الأولى ..... وهو تغيير الباس وورد بعد التصدير ..وذلك بأن يقوم المستخدم بإدخال الرقم السري القديم واستبداله بالجديد

محمد سامر
03-08-2016, 11:45 AM
للتوضيح
سأرفع ملف
http://www.mediafire.com/download/881kwb89g48w2bn/10.rar

عبد الهادي بهاب
03-08-2016, 01:07 PM
وعليكم السلام ورحمةالله وبركاته آخي العزيز..طبت بكل خير
مقصدي كأن تصمم مثلا مشروع لتسجيل بيانات الطلاب ودرجاتهم في إمتحانات ..فيتطلب ذلك كثرة تغيير الباس وورد .
.لضمان سرية البيانات حتى لا يعلم شخص الرقم السري ويقوم بتعديل بعض الدرجات..
أما الحفظ فيكون مثلا قي ملف ini أو xml

فنأخذ النقطة الأولى ..... وهو تغيير الباس وورد بعد التصدير ..وذلك بأن يقوم المستخدم بإدخال الرقم السري القديم واستبداله بالجديد

على السريع .. اذا كان هناك امكلانية تعديل كلمة المرور ....فيمكن الا بعد الدخول الى البرنامج مثلا كالمنتديات مثلا ....
مدامك تستعمل قاعدة بيانات فاحفظ فيها الكلمة
و للتغيير استدع البيانات ثم اعد تعديلها

عبد الهادي بهاب
03-08-2016, 01:25 PM
http://up.harajgulf.com/do.php?id=977881

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

عبد الهادي بهاب
03-08-2016, 01:49 PM
http://up.harajgulf.com/do.php?id=977931

نفس العمل لكن بحفظ كلمة المرور في ملف ini موجود في القرص c

ثامر أبو بلقيس
03-08-2016, 01:50 PM
ما تصعبش الأمور و اجعلها كلمة مرور متغيرة
وفق متغيرات الجهاز نفسه .

محمد سامر
03-08-2016, 04:14 PM
تمام ...تمام...
فهمت المقصد:abc_152:
جزاكم الله خيرا

ثامر أبو بلقيس
03-08-2016, 04:24 PM
و لمن أراد أن يفهم نكتب مثلا :
نريد أن تتغير كلمة المرور للبرنامج كل دقيقة
بحيث اخترت هنا خمسة أصفار ثم أكتب الدقيقة المتوافقة مع ساعة الجهاز
عند الدخول مرة ثانية للتجميعية حتما ستكون كلمة مرور أخرى
أكتفي بهذا التلميح الان
ونزرع في on startup
الكود التالي :
passwrd="00000"..System.GetTime(TIME_FMT_MIN);
p = Dialog.PasswordInput("مرحيا", "أدخل الرقم السري", MB_ICONQUESTION);
if p ~= passwrd then
Application.Exit(0);
else
end
لتحصل على كلمة غير ثابتة يحددها صاحب البرنامج وفق كل دقيقة .

محمد سامر
03-08-2016, 07:56 PM
على فكرة.. أ ثامر.....
حضرتك ماشاء الله تمتلك مَلَكة لا يَمْتَلِكُها أحداً إلا قلة.... فاشكر الله عز وجل عليها...
ربنا يبارك في حضرتك.:abc_144:

عمر والي
03-08-2016, 08:05 PM
و لمن أراد أن يفهم نكتب مثلا :
نريد أن تتغير كلمة المرور للبرنامج كل دقيقة
بحيث اخترت هنا خمسة أصفار ثم أكتب الدقيقة المتوافقة مع ساعة الجهاز
عند الدخول مرة ثانية للتجميعية حتما ستكون كلمة مرور أخرى
أكتفي بهذا التلميح الان
ونزرع في on startup
الكود التالي :
passwrd="00000"..System.GetTime(TIME_FMT_MIN);
p = Dialog.PasswordInput("مرحيا", "أدخل الرقم السري", MB_ICONQUESTION);
if p ~= passwrd then
Application.Exit(0);
else
end
لتحصل على كلمة غير ثابتة يحددها صاحب البرنامج وفق كل دقيقة .


ممكن بعد إذنك أستاذي توضيح الشرح أكثر لهذ الكود؟:abc_088:

عمر والي
03-08-2016, 08:49 PM
وتكملة لهذا الموضوع الشيق ..يوجد سؤال؟
يوجد صفحه بها قاعدة بيانات لملف ini
وتم إكتمال الملف بنجاح بالبيانات.
1 هل يمكن عمل زرار عند الضغط عليه في الصفحة يتم تجميد البيانات ((بالأنبوتات...و labl ..وكومبوكس ...و الليست بوكس ...و botton)))كل شيء في الصفحة وعند الضغط عليه مرة ثانية يتم التعديل على البيانات
2- عند الضغط على الزرار للتجميد يطلب منك باس وورد..وعند الإدخال الصحيح يتم التجميد.
وعند الضغط على الزرار مره آخرى للتعديل يطلب منك باس وورد..وعند الإدخال الصحيح تستطيع إدخال البيانات.. وهكذا كل ذلك في نفس الصفحه..ارجو الإفادة:abc_052:

عبد الهادي بهاب
03-08-2016, 10:21 PM
ممكن بعد إذنك أستاذي توضيح الشرح أكثر لهذ الكود؟:abc_088:

السلام عليكم ورحمة الله وبركاته
بعد اذن استاذنا ثامر

passwrd="00000"..System.GetTime(TIME_FMT_MIN);
p = Dialog.PasswordInput("مرحيا", "أدخل الرقم السري", MB_ICONQUESTION);
if p ~= passwrd then
Application.Exit(0);
else
end

نفرض على البرنامج كلمة سر تتكون من اربعة 0000 + الدقيقة الحالية لتوقيت الجهاز
اذا كان ساعة الجهاز 19.54 يعني الدقائق 54 فكلمة السر هي 000045
اي تتغير 60 مرة .........و الفكرة يمكنك ان تعدلها لتشمل التاريخ او الشهر او اي شيء متغير

تحياتي

محمد سامر
03-08-2016, 10:34 PM
السلام عليكم ورحمة الله وبركاته
بعد اذن استاذنا ثامر

passwrd="00000"..System.GetTime(TIME_FMT_MIN);
p = Dialog.PasswordInput("مرحيا", "أدخل الرقم السري", MB_ICONQUESTION);
if p ~= passwrd then
Application.Exit(0);
else
end

نفرض على البرنامج كلمة سر تتكون من اربعة 0000 + الدقيقة الحالية لتوقيت الجهاز
اذا كان ساعة الجهاز 19.54 يعني الدقائق 54 فكلمة السر هي 000045
اي تتغير 60 مرة .........و الفكرة يمكنك ان تعدلها لتشمل التاريخ او الشهر او اي شيء متغير

تحياتي



منور أستاذنا المحترف...ربنا يبارك في حضرتك:abc_139:

عبد الهادي بهاب
03-08-2016, 10:52 PM
وتكملة لهذا الموضوع الشيق ..يوجد سؤال؟
يوجد صفحه بها قاعدة بيانات لملف ini
وتم إكتمال الملف بنجاح بالبيانات.
1 هل يمكن عمل زرار عند الضغط عليه في الصفحة يتم تجميد البيانات ((بالأنبوتات...و labl ..وكومبوكس ...و الليست بوكس ...و botton)))كل شيء في الصفحة وعند الضغط عليه مرة ثانية يتم التعديل على البيانات
2- عند الضغط على الزرار للتجميد يطلب منك باس وورد..وعند الإدخال الصحيح يتم التجميد.
وعند الضغط على الزرار مره آخرى للتعديل يطلب منك باس وورد..وعند الإدخال الصحيح تستطيع إدخال البيانات.. وهكذا كل ذلك في نفس الصفحه..ارجو الإفادة:abc_052:

السلام عليكم
محاولة للاجابة .....فعل الاضافة Groupe

http://up.harajgulf.com/do.php?id=979000

ستجد الاكود في المثال المفتوح

عمر والي
03-08-2016, 11:38 PM
الله يبارك فيك.....ممكن بعد إذنك عند الضغط على on يطلب كلمة سرإذا تمت كتابتها صحيحة يعمل on ..وأيضا العكسof ....أسف جدا


طبقت الأكواد عندي لكن الأنبوتات لا تستجيب.. ولا الليست بوكس ..ولا الكمبو بوكس ...هل له علاقة بملف ini

عبد الهادي بهاب
04-08-2016, 01:28 AM
الله يبارك فيك.....ممكن بعد إذنك عند الضغط على on يطلب كلمة سرإذا تمت كتابتها صحيحة يعمل on ..وأيضا العكسof ....أسف جدا


طبقت الأكواد عندي لكن الأنبوتات لا تستجيب.. ولا الليست بوكس ..ولا الكمبو بوكس ...هل له علاقة بملف ini

في جزيئة كلمة السر ...ضع الكود في On preload و اي مكان لانه مكان حفظ لكمة السر

pw = Dialog.Input("ÇáÇÕá Çä ßáãÉ ÓÑ ãæÌæÏÉ ÓÇÈÞÇ", "ÇßÊÈ ßáãÉ åäÇ", "", MB_ICONQUESTION);


الان في زر التجميد on off غير الكود التالي

if xButton.GetText(this) == "on" then
confirm = Dialog.Input("ÊäÈíå", "ãÇåí ßáãÉ ÇáÓÑ ÍÊì ÊÌãÏ ", "", MB_ICONQUESTION);
if confirm == pw then
Group.SetEnabled("Group1", false);
xButton.SetText(this , "off");
else
Dialog.Message("ÊäÈíå","ÇäÊ áÕ ÊÑíÏ ÇáÊÌãßíÏ ÇÈÊÚÏ ãä åäÇ ")
end

elseif xButton.GetText(this) == "off" then
Group.SetEnabled("Group1", true);
xButton.SetText(this , "on");
end


ملاحظة ...
لكن الانبوت .....نجعله لا يقبل الكتابة .....الليسبوكس عنصر اظهار فقط و اظن الاضافة group لا تتضمنه

المهم فيه طريقة اخرى لكن تشترط مسميات العناصر لا تتغير تسمياتها
الليس بوكس يبقى ليسبوكس 1 ة 2 ة3
الانبوت يبقى input1 input 2
ثم نلجا الى الحل التقليدي و هو تجميد كل عنصر

حتى يلتحق البقية

ساحاول ان اجد حلا من هنا و هناك
اعذرني ان لم اجد جوابا حاضرا

عبد الهادي بهاب
04-08-2016, 02:37 AM
الله يبارك فيك.....ممكن بعد إذنك عند الضغط على on يطلب كلمة سرإذا تمت كتابتها صحيحة يعمل on ..وأيضا العكسof ....أسف جدا


طبقت الأكواد عندي لكن الأنبوتات لا تستجيب.. ولا الليست بوكس ..ولا الكمبو بوكس ...هل له علاقة بملف ini

السلام عليكم
تعال نفترض ان لكمة السر هي abcd و هي التي اعتمدتها
هذا ملف مفتوح يجمد لك اليسبوكس و الانبوت و الصور و الازرار و xbutton و هي عناصر موجودة في زر التجميد on يمكن اضافة عناصر اخرى

http://up.harajgulf.com/do.php?id=979359

ارجو ان اكون قد افتدك سيدي الكريم

محمد سامر
04-08-2016, 10:33 AM
""كان الله في عون العبد مادام العبد في عون أخيه""
سلمت يداك أخي المحترف.:abc_050:

محمد سامر
04-08-2016, 12:38 PM
أخي المحترف عند ظهور رسالة password وإدخال الرقم السري يظهر الرقم الذي تقوم بكتابته!!! فهل يمكن كتابته على هيئة (****) والتي هي abcd:abc_052:

ياسرهتهت
04-08-2016, 01:03 PM
أخي المحترف عند ظهور رسالة password وإدخال الرقم السري يظهر الرقم الذي تقوم بكتابته!!! فهل يمكن كتابته على هيئة (****) والتي هي abcd:abc_052:

------------------------------
بسم الله الرحمن الرحيم
فقط غير السطر الاول في زر ( on) في ملف اخون المحترف الي

confirm = Dialog.PasswordInput("mot de passe", "Password ???", "", MB_ICONSTOP);

ستحصل على ما تريد

موفق بإذن الله ... لك مني أجمل تحية .

محمد سامر
04-08-2016, 01:20 PM
------------------------------
بسم الله الرحمن الرحيم
فقط غير السطر الاول في زر ( on) في ملف اخون المحترف الي

confirm = Dialog.PasswordInput("mot de passe", "Password ???", "", MB_ICONSTOP);

ستحصل على ما تريد

موفق بإذن الله ... لك مني أجمل تحية .

شكرا أستاذ ياسر... على الإجابه:abc_022:

عبد الهادي بهاب
04-08-2016, 02:51 PM
أخي المحترف عند ظهور رسالة password وإدخال الرقم السري يظهر الرقم الذي تقوم بكتابته!!! فهل يمكن كتابته على هيئة (****) والتي هي abcd:abc_052:

من خصائص input انك تتحكم فيما تريده من ارقام مثلا او اي شيء
اضعط على خصائص الانبوت :


في خصائص input انه يستخدم لادخال كلمكة السر اي علامات فقط
http://i35.servimg.com/u/f35/12/62/73/88/input410.png

و جرب عند الكتابة لا ترى الى علامات

الخاصية الاخرى و هي انك تجعله لا يقبل الا الارقام
http://i35.servimg.com/u/f35/12/62/73/88/input110.png

ثم
http://i35.servimg.com/u/f35/12/62/73/88/input210.png

اخيرا
http://i35.servimg.com/u/f35/12/62/73/88/input310.png

عند كتابة مثلا علامتي ## يعني ان الانبوت لا يقبل اكثر من رقمين و هكذا
مثلا ###\.###\.###\.###
عند كتابة الارقام كل 3 ارقام سيكون بينها خط اليا

اكتشف بقية الميزات بالتجريب

ارجو ان اكون قد اجبت

عبد الهادي بهاب
04-08-2016, 02:54 PM
------------------------------
بسم الله الرحمن الرحيم
فقط غير السطر الاول في زر ( on) في ملف اخون المحترف الي

confirm = Dialog.PasswordInput("mot de passe", "Password ???", "", MB_ICONSTOP);

ستحصل على ما تريد

موفق بإذن الله ... لك مني أجمل تحية .

فيما سبق تحدثت عن الانوبت عادي اي نكتب كلمة السر في الانبوت العادي ....و لم انتبه الى انك تقصد الانبوت مع الديالوج
و الجواب كما شار الاستاذ باسر مشكورا
استخدم Dialog.PasswordInput

محمد سامر
04-08-2016, 06:13 PM
فيما سبق تحدثت عن الانوبت عادي اي نكتب كلمة السر في الانبوت العادي ....و لم انتبه الى انك تقصد الانبوت مع الديالوج
و الجواب كما شار الاستاذ باسر مشكورا
استخدم Dialog.PasswordInput

---------------------------------------------------------------
كنت أقصد أخي المحترف الأنبوت مع الديالوج!!! كما ذكرت؟؟؟
لكن وإن دل ذلك فإنما يدل على حسن سريرتك وطيبتك وتعاونك مع الأخرين..جزاك الله خيرا:abc_026:

محمد سامر
17-08-2016, 06:00 PM
السلام عليكم ورحمة الله
في الملف المرفق
هناك زر لتجميد البيانات وفتحها وذلك برقم سري....وهو abcd
ولكن هناك سؤاااااااااااااااااال ؟؟؟؟
عند تصدير البرنامج .....وفتحه..وعمل تجميد لكافة الكائنات الموجودة....وعمل غلق للبرنامج
فعند فتحه مرة آخرى أجده على خاصية عدم التجميد ...أي على غير ماتركته عليه..
فهل هناك حل لجعله يحتفظ بالأمر حتى بعد غلقه....بحيث أفتحه أجده على ما تركته عليه
((( عند إغلاقه في وضع off ..يفتح أيضا في هذا الوضع ..والعكس))
وجزاكم الله خير
http://up.harajgulf.com/do.php?id=979359

عبد الهادي بهاب
17-08-2016, 07:16 PM
السلام عليكم ورحمة الله
في الملف المرفق
هناك زر لتجميد البيانات وفتحها وذلك برقم سري....وهو abcd
ولكن هناك سؤاااااااااااااااااال ؟؟؟؟
عند تصدير البرنامج .....وفتحه..وعمل تجميد لكافة الكائنات الموجودة....وعمل غلق للبرنامج
فعند فتحه مرة آخرى أجده على خاصية عدم التجميد ...أي على غير ماتركته عليه..
فهل هناك حل لجعله يحتفظ بالأمر حتى بعد غلقه....بحيث أفتحه أجده على ما تركته عليه
((( عند إغلاقه في وضع off ..يفتح أيضا في هذا الوضع ..والعكس))
وجزاكم الله خير
http://up.harajgulf.com/do.php?id=979359

جرب ان تسجل التجميد و عدمه في ملف خارجي ترجع اليه
مثلا تسجل في ini كلمة tajmid = true يعني الوضع عند فتح البرنامج يكون مجمدا و اذا الغيت التجميد تعطيه false ....و عند فتح البرنامج لا يكون
او سجل في الريجسرتي او حتتى txt

ننتظر العمل

محمد سامر
17-08-2016, 07:32 PM
جرب ان تسجل التجميد و عدمه في ملف خارجي ترجع اليه
مثلا تسجل في ini كلمة tajmid = true يعني الوضع عند فتح البرنامج يكون مجمدا و اذا الغيت التجميد تعطيه false ....و عند فتح البرنامج لا يكون
او سجل في الريجسرتي او حتتى txt

ننتظر العمل

إن شاء الله جاري التنفيذ

محمد سامر
17-08-2016, 09:26 PM
:abc_085::abc_085::abc_070:
مكن توضيح أكثر لخيط واحد .....

ثامر أبو بلقيس
18-08-2016, 12:25 PM
:abc_085::abc_085::abc_070:
مكن توضيح أكثر لخيط واحد .....

حتى لا أطيل نعدل كالاتي في ملفك المرسل :
01- on startup
first_name = Application.LoadValue("samer2", "Key2");

02 - on show
list = Page.EnumerateObjects();
if first_name == "1" then
xButton.SetText("xButton1" , "on");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_XBUTTON) then
xButton.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = true});
end
end
elseif first_name == "0" then
xButton.SetText("xButton1" , "off");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_XBUTTON) then
if n ~= "xButton1" then
xButton.SetProperties(n, {Enabled = false});
end
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = false});
end
end
end

03 - في الزر xButton1
confirm = Dialog.Input("mot de passe", "Password ???", "");
if confirm == "abcd" then
if xButton.GetText(this) == "off" then
xButton.SetText(this , "on");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_XBUTTON) then
xButton.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = true});
end
end
elseif xButton.GetText(this) == "on" then
xButton.SetText(this , "off");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_XBUTTON) then
if n ~= "xButton1" then
xButton.SetProperties(n, {Enabled = false});
end
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = false});
end
end
end
else
Dialog.Message("Notice"," انت سريع النسيان ");
end
-----------------------------------------------------
if xButton.GetText("xButton1")=="off" then
Application.SaveValue("samer2", "Key2", "0");
else
Application.SaveValue("samer2", "Key2", "1");
end
----------------------

بالتوفيق سؤالك بهكذا تعديل أضن مجاب :abc_138:

محمد سامر
18-08-2016, 02:45 PM
بالتوفيق سؤالك بهكذا تعديل أضن مجاب:abc_138:

..........................................
جزاك الله خيرا أستاذ ثامر ........ ورزقك من حيث لا تحتسب..

محمد سامر
20-08-2016, 11:18 AM
أستاذ ثامر ..
عند عمل عدة صفحات واستخدام الكود لا يضبط معي
http://up.top4top.net/downloadf-232yt2i1-rar.html
ماالخلل بعد إذنك؟؟؟؟

محمد سامر
20-08-2016, 11:30 AM
فقد إستخدمت هذه الأكواد
01- on startup
first_name = Application.LoadValue("samer2", "Key2");
second_name = Application.LoadValue("samer3", "Key3");
third_name = Application.LoadValue("samer4", "Key4");
fourth_name = Application.LoadValue("samer5", "Key5");
fifth_name = Application.LoadValue("samer6", "Key6");
sixth_name = Application.LoadValue("samer7", "Key7");


02 - on show في الصفحة الأولى

list = Page.EnumerateObjects();
if first_name == "1" then
xButton.SetText("xButton1" , "on");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_XBUTTON) then
xButton.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = true});
end
end
elseif first_name == "0" then
xButton.SetText("xButton1" , "off");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_XBUTTON) then
if n ~= "xButton1" then
xButton.SetProperties(n, {Enabled = false});
end
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = false});
end
end
end

في الصفحة الثانية
list = Page.EnumerateObjects();
if second_name == "1" then
xButton.SetText("xButton1" , "on");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_XBUTTON) then
xButton.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = true});
end
end
elseif second_name == "0" then
xButton.SetText("xButton1" , "off");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_XBUTTON) then
if n ~= "xButton1" then
xButton.SetProperties(n, {Enabled = false});
end
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = false});
end
end
end

وهكذا في الباقي مع تغيير first_nameإلى second_name إلى third_name إلى fourth_name وهكذا


03 - في الزر xButton1 في الصفحة الأولى
confirm = Dialog.Input("mot de passe", "Password ???", "");
if confirm == "55555" then
if xButton.GetText(this) == "off" then
xButton.SetText(this , "on");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_XBUTTON) then
xButton.SetProperties(n, {Enabled = true});
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = true});
end
end
elseif xButton.GetText(this) == "on" then
xButton.SetText(this , "off");
for i, n in pairs(list) do
type = Page.GetObjectType(n);
if (type == OBJECT_INPUT) then
Input.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_LISTBOX) then
ListBox.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_BUTTON) then
Button.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_IMAGE) then
Image.SetProperties(n, {Enabled = false});
end
if (type == OBJECT_XBUTTON) then
if n ~= "xButton1" then
xButton.SetProperties(n, {Enabled = false});
end
end
if (type == OBJECT_LABEL) then
Label.SetProperties(n, {Enabled = false});
end
end
end
else
Dialog.Message("Notice"," انت سريع النسيان ");
end
-----------------------------------------------------
if xButton.GetText("xButton1")=="off" then
Application.SaveValue("samer2", "Key2", "0");
else
Application.SaveValue("samer2", "Key2", "1");
end
----------------------

وهكذا مع تغيير

("samer2", "Key2", "0");
("samer2", "Key2", "1");
في كل صفحة

هل لا يعمل معي جيدا لإني لم أستخدم local ???

ربيع
20-08-2016, 12:26 PM
يعمل جيـــــدا :abc_152:

محمد سامر
20-08-2016, 12:45 PM
يعمل جيـــــدا :abc_152:


زر "on" عند غلقه ب "of" في كل الصفحات لتجميد كافة الكائنات...لا يتم حفظها...
بمعني"" أغلق كل الصفحات "" وعند التصفح من جديد والمفترض أنها مغلقه...أراها مشتته أي ((( بعض الصفحات مغلق-- الأخر مفتوح... المغلق قد تم فتحه..المفتوح تم غلقه وهكذا!!!
كيف أتلاشى هذا التشتت؟؟؟؟
http://up.top4top.net/downloadf-232yt2i1-rar.html

عمر والي
20-08-2016, 07:17 PM
. زر "on" عند غلقه ب "of" في كل الصفحات لتجميد كافة الكائنات...لا يتم حفظها...انتظر المختصين
بمعني"" أغلق كل الصفحات "" وعند التصفح من جديد والمفترض أنها مغلقه...أراها مشتته أي ((( بعض الصفحات مغلق-- الأخر مفتوح... المغلق قد تم فتحه..المفتوح تم غلقه وهكذا!!! ح
كيف أتلاشى هذا التشتت؟؟؟؟
http://up.top4top.net/downloadf-232yt2i1-rar.html

انتظر المختصين راح يفيدوك؟؟:abc_022:

ثامر أبو بلقيس
20-08-2016, 08:13 PM
.

انتظر المختصين راح يفيدوك؟؟:abc_022:
حتى لا أشغلك على متابعتك المميزة لمواضيعك في الموقع ......
ما رأيك تعرض أنت الملف على المختصين وتجلب الفائدة
و يحددوا لك هل يوجد خطأ أم لا و أين ؟؟؟
موفق :abc_138:

محمد سامر
20-08-2016, 08:51 PM
فهمت مقصدك أستاذي ؟؟؟:abc_052:

ثامر أبو بلقيس
20-08-2016, 09:07 PM
بالتوفيق
:abc_138:

ثامر أبو بلقيس
20-08-2016, 09:09 PM
بالتوفيق أخي واذ احتجت شيء لا تتوانى وأطرحه كل المحترفين هنا يكنون لك المحبة:abc_152:
وسنرى مع الأستاذ أبو همام لدراسة امكانية تفعيل كتابة الأكواد على الخاص
:abc_138:

محمد سامر
20-08-2016, 11:03 PM
بالتوفيق أخي واذ احتجت شيء لا تتوانى وأطرحه كل المحترفين هنا يكنون لك المحبة:abc_152:
وسنرى مع الأستاذ أبو همام لدراسة امكانية تفعيل كتابة الأكواد على الخاص
:abc_138:

بارك الله فيك أستاذي الكبير... وبارك فيكم...وأنا أيضا أكن لحضرتك ولهم كل الحب ،، والود،، والقرب..
" الأرواح جنود مجندة فما تعارف منها ائتلف وما تناكر منها إختلف"" :abc_026:

عبد الهادي بهاب
26-08-2016, 12:30 PM
زر "on" عند غلقه ب "of" في كل الصفحات لتجميد كافة الكائنات...لا يتم حفظها...
بمعني"" أغلق كل الصفحات "" وعند التصفح من جديد والمفترض أنها مغلقه...أراها مشتته أي ((( بعض الصفحات مغلق-- الأخر مفتوح... المغلق قد تم فتحه..المفتوح تم غلقه وهكذا!!!
كيف أتلاشى هذا التشتت؟؟؟؟
http://up.top4top.net/downloadf-232yt2i1-rar.html

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

http://up.harajgulf.com/do.php?id=1018082

من اجل عدة صفحات ننقل كود Onshow الى function global

http://up.harajgulf.com/do.php?id=1041715

بالتوفيق

محمد سامر
26-08-2016, 02:59 PM
السلام عليكم ورحمة الله وبركاته
لم اتمكن من رفع الملف
لكن من اجل التجميد من خلال ملف ini من اجل صفحة واحدة

http://up.harajgulf.com/do.php?id=1018082

من اجل عدة صفحات ننقل كود Onshow الى function global

http://up.harajgulf.com/do.php?id=1041715

بالتوفيق

رحلة سعيدة أخي المحترف....وحمد لله على سلامتك..
وشكر الله لك أخي على الإضافة الجميله والرد.. :abc_152:
"لكن الملحوظة ""(( هي عدم حفظ المشروع للفتح والغلق.... بمعني :: إعمل تجميد بزرار""off"" ثم أخرج من التجميعه نهائيا ..ثم إعمل preview
ستجد الزرار في وضع "on" والمفترض أن يكون في وضع "off" كما تركته.

عبد الهادي بهاب
26-08-2016, 07:55 PM
رحلة سعيدة أخي المحترف....وحمد لله على سلامتك..
وشكر الله لك أخي على الإضافة الجميله والرد.. :abc_152:
"لكن الملحوظة ""(( هي عدم حفظ المشروع للفتح والغلق.... بمعني :: إعمل تجميد بزرار""off"" ثم أخرج من التجميعه نهائيا ..ثم إعمل preview
ستجد الزرار في وضع "on" والمفترض أن يكون في وضع "off" كما تركته.

السلام عليكم ورحمة الله وبركاته
الملف يعمل عندي بشكل جميل
المهم راقب انت : في القرص c قيمة 1 او 0 هل تتغير ام لا ؟
و الا فلا اظن المشكل يخرج عن تشغيل المشروع كمسؤؤول
http://www.faclic.com/wp-content/uploads/2014/04/042614_1340_Ouvriruneap1.png

محمد سامر
26-08-2016, 08:19 PM
السلام عليكم ورحمة الله وبركاته
الملف يعمل عندي بشكل جميل
المهم راقب انت : في القرص c قيمة 1 او 0 هل تتغير ام لا ؟
و الا فلا اظن المشكل يخرج عن تشغيل المشروع كمسؤؤول
http://www.faclic.com/wp-content/uploads/2014/04/042614_1340_Ouvriruneap1.png
وعليكم السلام ورحمة الله وبركاته،،
أخي الغالي ..سلمت يداك... وتفكيرك...إشتغل معي مضبوط 100%...:abc_052:

عبد الهادي بهاب
26-08-2016, 08:47 PM
وعليكم السلام ورحمة الله وبركاته،،
أخي الغالي ..سلمت يداك... وتفكيرك...إشتغل معي مضبوط 100%...:abc_052:

من باب النصيحة حاول ان تجعل كل مشاريعك بصيغة مسؤول و خصوصا اذا تعلق الامر بتشجيل قيم خارج المشروع اي كتابة قيم في c او الريجستري

محمد سامر
27-08-2016, 12:28 AM
من باب النصيحة حاول ان تجعل كل مشاريعك بصيغة مسؤول و خصوصا اذا تعلق الامر بتشجيل قيم خارج المشروع اي كتابة قيم في c او الريجستري

:abc_012:شكرا وجزاك الله خيرا أخي على النصيحة الغالية،،،