گذاشتن پسورد

[amir200h]

سلام به همه ی دوستان
میخواستم کمکم کنین
یه برنامه می خوام بنویسم که اولش پسورد بگیره و اون پسورد ذخیره بشه بعد با اون پسورد بتونی وارد برنامه بشی.
یکی دیگه هم اینکه می خوام تعداد دفعاتی که برنامه اجرا شده رو بگه

مرسی از همه تون
یا حق

[xxxxx_xxxxx]

http://barnamenevis.org/forum/showthread.php?t=155624
ده ها تاپیک در این مورد وجود داره. جستجو کنید

[amir200h]

ممنون از جوابت دوست من
ولی نمی خوام تو بانک اظلاعاتی باشه
می خوام از روش savesetting ya getsetting ذخیره کنه

[nima_8m]

از این کد در ماژول استفاده کن

Sub Main()
If App.PrevInstance = True Then
MsgBox " ÈÑäÇãå ÏÑ ÍÇá ÇÌÑÇ ÈæÏå æ ÇÌÑÇí åãÒãÇä Âä æÌæÏ äÏÇÑÏ ", vbCritical, "Error"
End
End If
On Error GoTo MediaERR
dbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase\db.mdb;Jet OLEDB:Database Password=amina;"
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = dbPath
Cnn.Open
A = GetSetting("Media Soft", "Setting", "Pass")
If A = "" Then
SaveSetting "amina Soft", "Setting", "Pass", "amina"
SaveSetting "amina Soft", "Setting", "Qusetion_Count", "10"
SaveSetting "amina Soft", "Setting", "Answer_Time", "40"
SaveSetting "amina Soft", "Setting", "T_Emtiyaz", "3"
SaveSetting "amina Soft", "Setting", "F_Emtiyaz", "1"
MsgBox "Ali Media : " & "˜áãå ÚÈæÑ Çæáíå ÔãÇ ", vbInformation, ""
End If
LoginForm.Show
Exit Sub
MediaERR:
MsgBox " ÇíÇå ÏÇÏå ÈÑäÇãå ύÇÑ ãÔ˜á ÔÏå æ Çã˜Çä ÇÌÑÇí ÈÑäÇãå æÌæÏ äÏÇÑÏ ", vbCritical, ""
End
End Sub

این کدم تو فرمت استفاده کن تغغیراتش با خو شما
موفق باشید

Private Sub OpenProgram()
If UCase(Text1) = UCase(GetSetting("amin Soft", "Setting", "Pass")) Then
MainForm.Show
Unload Me
Else
MsgBox " ãÊÇÓÞÇäå ˜áãå ÚÈæÑ ÔãÇ ÝÇÞÏ ÇÚÊÈÇÑ ÇÓÊ ", vbCritical, " "
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End If
End Sub

[amir200h]

مرسی از پاسخت نیما جان
من این کدهارو گذاشتم تو ولی با پیغام خطا روبه رو می شه

فایل رو ضمیمه کردم اگه می تونی تصحیحش کن بزار.
مرسی از بابت کمکت
یا حق

[nima_8m]

گفتم که تغییرات و خودت انجام بده !
باشه کل پروژه رو دادم این خلاف قوانینه ولی ....
کلی نکات آموزشی داره
موفق باشی

[amir200h]

نیما جام منظور منو متوجه نشدی
می خوام اول از کاربر یه پسورد بگیره و اون پسورد ذخیره بشه و از دفعات بعد اگه اون پسورد رو زد وارد برنامه بشه.

بازم ممنون که زحمت کشیدی و جوابمو دادی :بوس:

[nima_8m]

نیما جام منظور منو متوجه نشدی
می خوام اول از کاربر یه پسورد بگیره و اون پسورد ذخیره بشه و از دفعات بعد اگه اون پسورد رو زد وارد برنامه بشه.

بازم ممنون که زحمت کشیدی و جوابمو دادی :بوس:
به نظرم کار منطقی نیست
تو این برنامه بعد از زدن پسورد و ورود به برنامه کاربر میتونه واسه خودش پسورد بزاره
این مثل رمز سوپروایزور میمونه (این رمز که نباید عوض بشه)
ولی اگه بازم اسرار به تغییر داری خوب یکم سورس رو تغییر بده منم اگه به نتیجه ای رسیدم خبرت میکنم

[amir200h]

کسی نیست کمکم کنه
خفن احتیاج دارم
می خوام وقتی که برنامه اجرا شد از کاربر یه پسورد بگیره
اون پسورد با حالت savesettin و getsetting ذخیره بشه
وهربار که برنامه اجرا شد با پسوردی که که کاربر اول وارد کرده بود وارد بشه

و امکان تغییر پسورد از داخل برنامه هم وجود داشته باشه.

دوستان اگه میتونن کمک کنن

یا حق

[vbhamed]

سلام

اينم يك نمونه
فقط اينكه از 1 دونه كاراكتر 255 تنها نمي تونيد به عنوان پسورد استفاده كنيد چون به جاي عدم وجود پسورد استفاده شده

[amir200h]

مرسی از کمکت vbhamed دقبقا همینو میخواستم
این سورسی که گذاشتی بصورت inputbox پسورد رو از کاربر می خواد
نمیشه کاریش کرد که توی فرم که کاربر پسندتر باشه پسورد بخواد؟
اگه میشه سورسشو واسم بذاری ممنونت میشم.
فعلا یا حق

[vbhamed]

سلام

گرفتن پسورد با InputBox هست و تغييرش با فرم طراحي شده خودمون يعني هر دو حالت بكار رفته
تبديلش ديگه فكر نكنم كار سختي باشه

[amir200h]

سلام. خوبی
من یه آماتورم زیاد حرفه ای نیستم که
من یه تغییری دادم توش ولی همه ش پیغام میده پسورد اشتباه است
سورس تغییر شده ش رو میزارم اگه تونستی درستش کن
مرسی از کمکت

فعلا یا حق

[vbhamed]

سلام

اينم اصلاح شده

[amir200h]

مرسی. واقعا ممنونم.
خیلی بهم کمک کرد
دمت گرم.

راستی یه سوال دیگه هم داشتم. اگه بخوام بدونم یه برنامه ای که نوشتم چندبار اجرا شده باید چیکار کنم؟

فعلا یا حق

[vbhamed]

سلام
اينم براي تشخيص تعداد دفعات اجرا
البته اگر براي قفل مي خواي راه امني نيست


Dim rc%

rc = Val(GetSetting("MyApp", "MySection", "Run", 1))
SaveSetting "MyApp", "MySection", "Run", rc + 1

MsgBox rc