كيف أحفظ الاسم وكلمة السر

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

أهلا بك في عالم الفيجوال بيسيك المليء بالمتاعب

في الحقيقة إن فكرتك هذه يمكنك تنفيذها بطرق عديدة غير استخدام قواعد البيانات

يمكنك مثلا تخزين كلمة المرور في ملف نصي (Text) أو ثنائي (binary) و استرجاعها ومن تلك الملفات متى تريدين

عموما يسهل التعامل مع الملفات مع الفيجوال بيسيك

مرفق مثال للتوضيح

يرجى فهم الكود جيدا و عدم الإكتفاء بالقص واللصق

ونحن في الخدمة

Password.zip

اعتقد يوجد طريقة ثالثه !

وهي تخزين اسم المستخدم وكلمه المرور في مفتاح خاص بالبرنامج في مسجل النظام Registry ,,,,ولكني لم اجرب هذه الطريقة

تحياتي

اخوي بن حسن ما فهمت شي من الكود حقك

وانا ابي افهم ما ابي اقص والصق على كلامك

ممكن توضح الكود حقك لو سمحت

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

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

الأخت الكريمه :

سأحاول توضيح الكود قدر استطاعتي والله المستعان

لكن اولا أكرر لك نصيحتي بالخوض أولا في مباديء و أساسيات اللغه قبل محاولة تنفيذ تلك الأفكار التي قد تكون متقدمة عليكي قليلا

أنصحك بالقراءة عن الأسايات أولا

صدقيني يا اختي انا شخصيا - مع اني لا أصلح لأن أكون مثلا على الإطلاق- عانيت كثيرا في تعلمي للفيجوال بيسيك بسبب التسرع وعدم التمهل و التدرج في التعلم

صدقيني التدريج مهم جدا جدا إن كنتي تريدين أن تعلمي بطريقه صحيحه

لو أنك مازلتي في البداية فابدائي بالتعرف على المتغيرات و انواعها

ثم تعرفي على جمل التحكم في سير البرنامج مثل IF و الحلقات التكراريه Loops

و Select Case وما إلى ذلك ثم تعرفي على أدوات التحكم الموجوده في صندوق الأدوات

أيضا عليك بالرجوع دائما إلى MSDN فهي مكتبه غنية جدا ولا غنى عنها لأي مبرمج أو مطور او مبتديء ويمكنك من خلالها استيضاح الأكواد الغير مفهومه

يمكنك وضع مؤشر الفأرة على أي كلمة غير مفهومه بالكود لتجدي شرحا وافيا لها بالأمثله

آسف على الإطالة والأسلوب الممل

عموما سأحاول توضيح الكود قليلا

اخوي انا اعرف اساسيات بسيطة

بس لما شفت الاكواد حسيتها غير بصراحة عن اللي درستة

ممكن توضح لي بس الكود حقك ؟؟؟؟

dim stinput as string

stinput=inputbox("enter your name","log-in","noname")

قصدي لما يسجل المستخدم اسمة وكلمة السر مثلا

كيف اخليها بيانات ثابته يقدر يترجعها

ولما يسجل واحد ثاني يقدر يسترجع معلوماته

؟؟؟

-09

الاخ الفاضلة :

فى البداية سوف اقم بتوضيح هذا الكود :

اقتباس

Dim stinput As String

stinput = InputBox("enter your name", "log-in", "noname")

هنا نريد ان نقوم ان نحصل على بيانات من العميل و هناك اشياء كثيرة وطرق كثرة اسهلها هى استخدام الــ input box , و بما اننا نريد ان نحصل على بيانات من العميل فيجب ان نضع البيانات فى مكان و على هذا لكى نستخدم ال inputbox يجب ان نضع القيمة الخاصة التى سوف نحصل عليها فى متغير و هذا م قم بة الاخ الفاضل ::

اقتباس

Dim stinput As String

حيث قام بتعريف متغير يدعى stinput و عرفى على انة من نوع نصى String

و فى السطر الثانى سوف نقم بتقسيم هذا السطر الى قسمين الاول و هو ما قبل التساوى و الثانى ما بعد التساوى

- الجزء الاول : ( ما قبل التساوى )

حيث قما بوضع المتغير لكى يستقبل القية و يكون متساوى مع القيمة التى سوف

تأتى من الinputbox

- الجزء الثانى : ( ما بعد التساوى )

و هنا تكمن طريقة كتابة صيغى الـ inputbox و هى على هذا المنوال ::

InputBox = المفتاح و سوف نسمية هنا شاشة الادخال ( مأقتأ )

"enter your name"  = الرسالة التى سوف تاطب من خلالها العميل و هى  سوف تكون المطلب

"log-in"  = بمأننا  فرضنا انها شاشة ادخال فيجب لهذة الشاشة ان يكون لها عنوان

"noname" = كما تعرفين ان عند عرض شاشة الادخال نجد ان هنا textbox لكتابة الاسم و فيمكن ان نضع اى جملة تردين ان تبدأ بها شاشة الادخال

و ارجوا ان أكون و فقت فى الشرح الخاص بشاشة الادخال او inputbox

------------------------------

و نرجع الى طرق حفظ البيانات .

فى البداية برنامج الفيجوال بيزك لا يقم بحفظ البيانات بل هو موصل لحفظ البيانات

- طرق حفظ البيانات هى :

1- عن طريق المتغيرات :

و هى حفظ مأقت من خلال البرنامج فقط ( وسوف نحتاج التعامل بها فى الكثير

من البرامج نظرا للسرعة )

2- عن طرق استخدام الـ ملفات الtext

كانت مستخدمة فى القديم فى قواعد البيانات و لكن لكرة البيانات الرهيبة لم

يعمل بها أحد الان الا فى القليل ( كما قال الاخ العزيز بن حسن من قبل )

3- عن طريق الregistry :

كما تعرفين ان الـرجيسترى هى قاعدة بيانات الخاصة بالوندوس و هى ايضا

لنا و هى سهلة جدأ جدأ و سوف تجدين وصلة لطريقة التعامل مع الرجيسترى

فى توقيعى

4- عن طريق استخدام برنامج الـ access

هذة الطريقة يتم من خلالها حفظ الكثير و الكثير و يمكن من خلال هة الطريقة

عمل برامج قواعد بيانات لمحل او مصنع صغير (( حسب كمية البيانات

المستخدمة ) "" access97 يتحمل 1G "" - ""access xp يتحمل 2G "" و سوف تجدين وصلة فى توقيعى عن طرق الربط مع الـ access

5- عن طريق استخدام الـ sql server - oracle

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

التعامل من القاعدتين سوف يكون معقد بعض الشئ بس طريقة الربط واحدة من

الـ access مع أختلاف بسيط بيت الثلاث ( المبادئ واحدة ) و تنفع

القاعدتان فى المشاريع الكبيرة جداً

فى النهاية ارجوا ان أكون وفقت و ان شاء الله فى الشرح و اسف على الاطالة

شكرا

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

مشكور يا أخ code finder على شرحك

في الحقيقة لقد لخصت لها كل الطرق الممكنة لتنفيذ تلك الفكرة

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

عموما سأحاول فقط أن أضيف للأخت مثال بسيط قمت بشرحه

يرجى تحميل الملف المرفق أولا

فكرة البرنامج ببساطه :

يتم تخزين كلمة المرور في ملف نصي

عند بداية تشغيل البرنامج يعرض محتوى الملف في صندوق النص Text1

عند الضغط على زر الأمر المكتوب عليه حفظ كلمة المرور والمعروف داخل البرنامج باسم Command1 يتم حفظ القيمة المكتوبه في صندوق النص

داخل ذلك الملف الذي نخزن فيه كلمة المرور

البرنامج يتكون من إجرائين إثنين فقط

الإجراء الأول يتم تنفيذه عند بداية تشغيل البرنامج او بمعنى أدق عند تحميل النافذة كما هو واضح من الجمله Form Load

الإجراء الثاني يتم تنفيذه عند الضغط على زر الأمر المكتوب عليه حفظ كلمة المرور والمعروف داخل البرنامج باسم Command1

الإجراء الأول :

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

الخطوات :

1 - فتح ملف في نفس مسار البرنامج(App.path) يحمل إسم pwd.txt ونعطيه رقم #1 ويكون الغرض من فتح ذلك هو القراءة من الملف (Input)

Open App.Path & "\pwd.txt" For Input As #1

2 - تعريف متغير من النوع String باسم S .

Dim S as String

3 - وضع محتوى الملف الذي أعطيناه الرقم #1 داخل المتغير S

Input #1, S

4 - عرض قيمة المتغير S داخل صندوق النص Text1

Text1.Text = S

5 - غلق الملف وهي خطوة مهمه لاعتبارات تتعلق بالذاكرة

Close

الإجراء الثاني :

الهدف منه حفظ النص المكتوب في صندوف النص Text1 والذي يكتب فيه المستخدم داخل الملف ذي الإسم pwd.txt والمحفوظ في نفس مسار البرنامج(App.path)

الخطوات :

1 - فتح ملف في نفس مسار البرنامج(App.path) يحمل إسم pwd.txt ونعطيه رقم #1 ويكون الغرض من فتح ذلك هو الكتابة في الملف (Output)

Open App.Path & "\pwd.txt" For Output As #1

2 - تخزين النص الموجود داخل صندوق النص Text1 في الملف الذي أعطيناه الرقم #1

Print #1, Text1.Text

3 - غلق الملف وهي خطوة مهمه لاعتبارات تتعلق بالذاكرة

Close

4 - عرض رسالة توضح للمستخدم أنه قد تم تخزين القيمة الجديدة داخل الملف

MsgBox "تم تخزين الكلمة الجديدة", vbInformation

5 - إنهاء البرنامج

End

أرجو أن أكون وفيت و أسأل الله التوفيق لنا و لك إن شاء الله

Password.zip

الف الف شكر

ما قصرت اخوي

جعله الله في ميزان حسناتكم

عهود