المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : سلام عليكم ممكن مساعده بليز


shabb_shabb
09-04-2005, 04:09 PM
سلام عليكم
اريد مساعده لو سمحتم :08: :08: :08:
اقوم ببناء برنامج اريد اكواد 2 لو سمحتم
الكود الاول هو :-
عندما يريد مستخدم البرنامج من الخروخ وينقر على زر الــ x (زر الخرجوج في الاعلى) يقوم بتنبيه قبل الخروج.
والكود الثاني :-
اضافة رقم سري للبرنامج للخروج من البرنامج وامكانية تغيره لا يكون ثابت طبعا عند التغيير يطلب الرقم القديم .
انشاء الله تساعدوني وشكرا لكم
TeamFlex
10-04-2005, 01:37 AM
الطلب الاول

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


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



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

هذه هي العملية ولكن للاسف لا اعرف كيفية التعامل مع الريجستري
واتمنى ان يضع احد الطريقة. واعتقد انها عملية بسيطة وليسة صعبة
ibn_alqalam
10-04-2005, 03:45 AM
الاخ TeamFlex على حق. و لكن انهاك عن العبث بالرجيستري, اذا تريد بيانات ثابتة, استخدم ملفات عادية. يمكنك انشاء ملف و الكتابة اليه ثم القراءة.
shabb_shabb
13-04-2005, 02:06 PM
سلام عليكم ورحمة الله وبركاته
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
14-04-2005, 01:50 AM
شكرا على الكود ويسعدني مشاركتك المعلومة ولو اني المستفيد الاكبر
والكود قيد الحفظ
ولكن خذ بنصيحة اخي ابن القلم .. الرجستري هو الجهاز العصبي للكمبيوتر
ممكن تقرا اكثر عنه في مواقع مختلفة

تحياتي لك