سلام عليكم ممكن مساعده بليز

[shabb_shabb]

سلام عليكم
اريد مساعده لو سمحتم
اقوم ببناء برنامج اريد اكواد 2 لو سمحتم
الكود الاول هو :-
عندما يريد مستخدم البرنامج من الخروخ وينقر على زر الــ x (زر الخرجوج في الاعلى) يقوم بتنبيه قبل الخروج.
والكود الثاني :-
اضافة رقم سري للبرنامج للخروج من البرنامج وامكانية تغيره لا يكون ثابت طبعا عند التغيير يطلب الرقم القديم .
انشاء الله تساعدوني وشكرا لكم

[TeamFlex]

الطلب الاول

ضع هذا الكود في الفورم في حالة unload

 DIM cheekout as string 
cheekout = msgbox ("هل انت متاكد؟",vbyesno)
if cheekout = vbno then
cancel = 1
endif

اما بخصوص الطلب الثاني فانت بحاجة ان تتعامل مع الريجستري
بحيث في بداية تشغيل البرنامج سيطلب منك الرقم السري الجديد
وعندما تضعه سينشئ ملف في الرجستري و يخزن هذا الرقم فيه
وعند محاولتك تغيره سيطلب ان تضعه اولا وعند ادخالك الرقم السري
ثم سيقارنه مع الرقم الموجود في الرجيستري فاذا توافقا سيسمح لك بتغير الرقم
و يحفظ الرقم الجديد مكان القديم في الرجيستري

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

[ibn_alqalam]

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

[shabb_shabb]

سلام عليكم ورحمة الله وبركاته
TeamFlex اخي شكرا لك على الكود
وشكرا لك اخي ibn_alqalam على مشاركتك في الموضوع
اخي TeamFlex لقد عرفت كيف اتعامل مع الرجستري ولك الكود الان

هنا كود التغيير

 
Private Sub Command3_Click()
If Text2 = Text3 Then
SaveSetting "khaled", "PassWord", "pass", Text2
S = MsgBox("áÞÏ Êã ÊÛííÑ ßáãÉ ÇáãÑæÑ ÈäÌÇÍ!", vbMsgBoxRight, "ÈÑäÇãÌ .....!", vbInformation, vbOKOnly)
Form1.Visible = True
Form2.Visible = False
Form1.Text1.Text = ""
Form1.Text1.SetFocus
Else
S = MsgBox("íÌÈ Ãä ÊÊØÇÈÞ ßáãÉ ÇáãÑæÑ Ýí ßáÊÇ ÇáÎÇäÊíä", 1572880, "ÎØÃ")
End If
End Sub

وهنا كود التشغيل

 
Private Sub Command1_Click()
'åÐÇ ÇáÌÒÁ ãä ÇáÈÑäÇãÌ íÞæã ÈÇÓÊÏÚÇÁ ßáãÉ ÇáãÑæÑ ÇáÊí ÓÈÞ ÍÝÙåÇ ãä ÇáÑíÌÓÊÑí
KhaPass = GetSetting("khaled", "PassWord", "pass")
' KhaPass åÐÇ ãÊÛíÑ
If KhaPass = Text1 Then
MsgBox "ßáãÉ ÇáãÑæÑ ÕÍíÍÉ"
Else
MsgBox "ÚÝæÇð ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ"
Text1.Text = ""
End If
End Sub

[TeamFlex]

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

تحياتي لك