ساخت رمز عبور که فقط یکبار پرسیده شود

[javad122367 12]

سلام بر دوستان و اساتید محترم :

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

چه طوری میشه رمزی برای برنامه بزاریم که بعد از نصب اولین بار از کاربر پرسیده بشه و تو دفعات بعدی اجرای برنامه دیگه اون رمز پرسیده نشه و برنامه بدون رمز اجرا شه متشکرم از جوابها و راهنمایی های حکیمانتون ؟

[esmaeil57 64]

سلام

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

موفق باشین

[javad122367 12]

ببخشید میشه در قالب مثال یک فایل متنی کد هاشو برام بنویسید یه خورده تو کد نویسی مشکل دارم اگه میشه با مثال برام توضیح بدید

[ali2 115]

این کدهارو ببین شاید به دردت خورد

Sub Globals
Private txtval As EditText
End Sub


Sub Activity_Create(FirstTime As Boolean)



If myLibrary.getSettingBoolean("first") = False Then ToastMessageShow("رمز عبور پیش فرض 00 میباشد",False) myLibrary.setBoolean("first",True)End If





Sub btnlogin_ClickDim pn As Stringpn = myLibrary.getSetting("pn")
If pn.Length = 0 Then pn = "00"End If
If pn <> txtval.Text Then ToastMessageShow("رمز عبور اشتباه هست",False) ReturnEnd If

[esmaeil57 64]

دوست عزیز ، در زمینه نوشتن و خواندن فایل متنی توی انجمن زیاد بحث شده اگه سرچ کنید:

این دستور نوشتن داخل یه فایل متنیه:

File.WriteString(File.DirInternal,"Text.txt",0)

بوسیله دستور فوق شما داخل فایل متنی به نام Text.txt یه مقدار 0 رو ذخیره میکنید.

این دستور هم واسه خوندن فایل متنیه البته درصورت وجود فایل:

Code=File.GetText(File.DirInternal,"Text.txt")

که میاد و مقدار شما رو داخل متغیر استرینگ Code بارگذاری میکنه.

[javad122367 12]

دوست عزیز ، در زمینه نوشتن و خواندن فایل متنی توی انجمن زیاد بحث شده اگه سرچ کنید:

این دستور نوشتن داخل یه فایل متنیه:

File.WriteString(File.DirInternal,"Text.txt",0)

بوسیله دستور فوق شما داخل فایل متنی به نام Text.txt یه مقدار 0 رو ذخیره میکنید.

این دستور هم واسه خوندن فایل متنیه البته درصورت وجود فایل:

Code=File.GetText(File.DirInternal,"Text.txt")

که میاد و مقدار شما رو داخل متغیر استرینگ Code بارگذاری میکنه.

بابا به خاطر خدا تو که بلدی این مطلبو یه سورس ساده در اختیار ما بزار و قال قضیه رو بکن

[javad122367 12]

بسیار بسیار ممنون و سپاسگزارم زحمت کشیدی

[esmaeil57 64]

بسیار بسیار ممنون و سپاسگزارم زحمت کشیدی

قابلی نداشت. از دکمه تشکر میتونستید استفاده کنید.;)

[esmaeil57 64]

دوست عزیز گفتم که اصل مطلب رو ولی باز هم چشم

بفرما این هم سورس. خودت ببین متوجه میشی چقدر ساده بوده. این پایه کاره و باقیش دست خودتون. بعد نصب فقط یک بار میپرسه و دیگه رمز نمیخواد. باز اگه برنامه رو حذف و مجدد نصب کنید رمز میخواد.*like*

Password.rar