منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيفية حفظ باسورد برنامجي ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد كود لحفظ الباسورد الخاص ببرنامجي عندما افتحه بعد ما اضع الكود يكون محفوظ ؟
السلام عليكم ورحمة الله ويركاته
اخي الكريم 
ان كان ماتريد هو انشاء شاشة Login للدخول الى البرنامج بكلمة السر واسم مستخدم 
تابع هذا الرابط
https://www.youtube.com/watch?v=KRcBnZdYiQc
اما ان غير ذلك فنرجو الايضاح
(07-07-21, 09:53 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله ويركاته
اخي الكريم 
ان كان ماتريد هو انشاء شاشة Login للدخول الى البرنامج بكلمة السر واسم مستخدم 
تابع هذا الرابط
https://www.youtube.com/watch?v=KRcBnZdYiQc
اما ان غير ذلك فنرجو الايضاح

انا اريد كود لحفظ النص الي في التكست بوكس من فضلك
اخي الكريم 
الحفط عادي مثلما تحفط اي بيانات الى قاعدة البيانات حسب الجدول والحقول عبر Command
(07-07-21, 10:29 PM)ابراهيم ايبو كتب : [ -> ]اخي الكريم 
الحفط عادي مثلما تحفط اي بيانات الى قاعدة البيانات حسب الجدول والحقول عبر Command
انا اقصد حفظ النص الموجود في التكست بوكس
ضع ثلاث متغيرات في السيتنغ اثنان مننوع استرنغ وواحد من نوع بولين .
ضعهم كالتالي :
1- String : UserNameXT
2- String : PasswordXT
3- Boolean : RemmperMe

[attachment=26801]

ضع على فورم إثنين تيكست بوكس و تشك بوكس واحدة .

كالتالي :
TextBox Name : Txt_UserNameXT
TextBox Name : Txt_PasswordXT
CheckBox : Chk_RemmperMe

[attachment=26802]

عند تسجيل الدخول اذا أردت ان تحفظ اسم المستخدم و كلمة لمرور بشكل دائم و لا تقوم بكتابتهم كل مرة تضغط على التشك بوكس ( RemmperMe ) لتعطي اشارة الصح .

كود تسجيل الدخول و حفظ اسم المستخدم و كلمة المرور ليتم ظهورهم بشكل تلقائي دون كتابتهم كل مرة :

PHP كود :
   Private Sub BtnOk_Click(sender As System.ObjectAs System.EventArgsHandles BtnOk.Click
        
'' كود التذكر
        If Chk_RemmperMe
.Checked Then
            My
.Settings.RemmperMe Chk_RemmperMe.Checked
            My
.Settings.UserNameXT Txt_UserNameXT.Text
            My
.Settings.PasswordXT Txt_PasswordXT.Text
            My
.Settings.Save()
 
       Else
            My
.Settings.RemmperMe False
            My
.Settings.UserNameXT ""
 
           My.Settings.PasswordXT ""
 
           My.Settings.Save()
 
       End If
 
       '' كود الاستعلام الخاص بتسجيل الدخول
        If Txt_UserNameXT
.Text "Admin" And Txt_PasswordXT.Text "Admin" Then
            Dim frm 
As New MainFrm
            frm
.Show()
 
           Close()
 
       End If
 
   End Sub 


كود تحميل الفورم عند التشغيل :

PHP كود :
   Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
                
If My.Settings.RemmperMe Then
            Txt_UserNameXT
.Text My.Settings.UserNameXT
            Txt_PasswordXT
.Text My.Settings.PasswordXT
            Chk_RemmperMe
.Checked My.Settings.RemmperMe
        
Else
            Txt_UserNameXT.Clear()
            Txt_PasswordXT.Clear()
        End If
 
   End Sub 

[attachment=26805]
(08-07-21, 12:12 PM)asemshahen5 كتب : [ -> ]شكرا جزيلا   Heart