ادراج كلمة سريه في البرنامج

if text1.text="Hi" then

msgbox "Your Password Is Right"

else

msgbox ئYour Password Is Wrong"

i am sorry

i forget, in the last line you have to write "End if"

اخي العزيز شكراً لك

لا.ليس هذا ما اقصده،اريد ان يدخل المستخدم كلمات السر التي يريدها

مع الشكر

يمكنك استخدام الملفات إن كنت لا تعرف استعمال قواعد البيانات(ويبدوا أنك لا تعرفها)

أي يمكنك تخزين اسم كل مستخدم في Type ويحتوي هذا الـ Type على الاسم وكلمة المرور وعند إدخالها يتم البحث عن كلمة المرور في جميع السجلات وإظهار الاسم إذا كانت صحيحة ويمكنك تغيير كلمة المرور بإعادة كتابة ذلك السجل بكلمة مرور جديدة....

(( إن كنت لا تعرف استخدام الملفات فعليك بتعلمها, وفي بنامجك هذا من الأفضل استخدام الملفات المفتوحة باستعمال Random أو Binary ))

هذا الكود في الـ form_load عشان اول مايشغل البرنامج تجيه الرساله

طيب دحين نقول ان المستخدم يلي اسمه:

محمد له form1

خالد له form2

باغر له form3

دحين لو فكرنا شوية حنوصل لكود والكود عبارة عن مربع حوار يظهر له عن تشغيل البرنامج فإذا كان الباسوورد محمد تفتح له فورم1 وإذا كان الباسوورد خالد تفتح له فورم2 وإذا كان الباسوورد باغر تفتح له فورم3

ملحوظة: قد يكون الكود ملخبط وغير صحيح ولكن المهم يشتغل في النهاية لأني مبتدأ.

PW$ = InputBox("فضلا أدخل الكلمة السرية")

Select Case PW$

Case "محمد"

Form1.Show

Case "خالد"

Form1.Hide

Form2.Show

Case "باغر"

Form1.Hide

Form3.Show

Case Else

MsgBox "كلمة المرور غير صحيحة"

End

End Select

مشكورين

اذا كنت اريد من مستخدم البرنامج ان يغير كلمة السر واليوز نيم فكيف اتصرف

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

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

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

هذا البرنامج من تصميمي بس ما جاهز وإن شاء الله راح تحصل فيه ضالتك وطلبك

البرنامج يحوي الكثير من الأكواد

masna.zip