+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية حفظ باسورد برنامجي ؟ (/showthread.php?tid=38879)
كيفية حفظ باسورد برنامجي ؟ - 4545Mohamed - 07-07-21
اريد كود لحفظ الباسورد الخاص ببرنامجي عندما افتحه بعد ما اضع الكود يكون محفوظ ؟
RE: كيفية حفظ باسورد برنامجي ؟ - ابراهيم ايبو - 07-07-21
السلام عليكم ورحمة الله ويركاته
اخي الكريم
ان كان ماتريد هو انشاء شاشة Login للدخول الى البرنامج بكلمة السر واسم مستخدم
تابع هذا الرابط
https://www.youtube.com/watch?v=KRcBnZdYiQc
اما ان غير ذلك فنرجو الايضاح
RE: كيفية حفظ باسورد برنامجي ؟ - 4545Mohamed - 07-07-21
(07-07-21, 09:53 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله ويركاته
اخي الكريم
ان كان ماتريد هو انشاء شاشة Login للدخول الى البرنامج بكلمة السر واسم مستخدم
تابع هذا الرابط
https://www.youtube.com/watch?v=KRcBnZdYiQc
اما ان غير ذلك فنرجو الايضاح
انا اريد كود لحفظ النص الي في التكست بوكس من فضلك
RE: كيفية حفظ باسورد برنامجي ؟ - ابراهيم ايبو - 07-07-21
اخي الكريم
الحفط عادي مثلما تحفط اي بيانات الى قاعدة البيانات حسب الجدول والحقول عبر Command
RE: كيفية حفظ باسورد برنامجي ؟ - 4545Mohamed - 08-07-21
(07-07-21, 10:29 PM)ابراهيم ايبو كتب : اخي الكريمانا اقصد حفظ النص الموجود في التكست بوكس
الحفط عادي مثلما تحفط اي بيانات الى قاعدة البيانات حسب الجدول والحقول عبر Command
RE: كيفية حفظ باسورد برنامجي ؟ - asemshahen5 - 08-07-21
ضع ثلاث متغيرات في السيتنغ اثنان مننوع استرنغ وواحد من نوع بولين .
ضعهم كالتالي :
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.Object, e As System.EventArgs) Handles 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.Object, e As System.EventArgs) Handles 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]
RE: كيفية حفظ باسورد برنامجي ؟ - 4545Mohamed - 08-07-21
(08-07-21, 12:12 PM)asemshahen5 كتب : شكرا جزيلا