login

[mostafaserial]

با سلام چجوري ميشه يه لاگ اين درست كرد كه بعد از اينكه رمز عبور را وارد كرديم و درست بود وارد برنامه بشود و بعد از بستن برنامه و اجراي مجدد ديگه از ما رمز نخواد.

[singel]

در مورد login کردن به برنامه خیلی توضیحات داده شده
اما برای ورود دوباره میخوای برای همیشه دیگه ازت رمز نخواد

[jahanmanesh]

سلام خوب تو باید یوزر پسورد برنامت رو با یکی از این روشا چک کنی دیگه!
1.یه فیال رو باز کنی و بخونی و با محتویات اون چکش کنی
2.با دستوری تو ریجستری چکش کنی
3.مثلا برنامت 2تا فایل رو باهم دیگه مقایسه کنه(مثلا میای 2تا فایل رو با هم مقایسه میکنی،اگه 2تا کاملا از نظر سایز،نوع و ... یکی بودن برنامت لوگ این میشه)
و
.
.
.
در این روشا کاملا مشخصه چیکار کنی!
روش اول(وقتی طرف یوزر پسورد رو وارد کرد فایل رو دوباره بساز و خط اول رو مثلا بزار Ok و بعد هر دفعه برنامت باز میشه اول چک کنه اگه فایل خط اولش OK هستش خود به خود لوگ این بشه)
روش دوم 1 خط به ریجستری اضافه کن
روش سوم که مشخصه

[jahanmanesh]

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

[mostafaserial]

سلام
كد ميخوام

[karim orooji]

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

اگه مشکلت حل نشد بگو برات یک نومنه مثال رای شما بزنم

[mostafaserial]

سلام
يه كد ساده و قابل فهم ميخوام كه با ديتا بيس نباشه
ممنون

[Hossis]

در اولين بار اجرا
Savesetting("Myapp","MyCompany","User",txtPassword.text

Savesetting("Myapp","MyCompany","Pass",txtUser.text
اين کد در اولين بار اجرا سراغ آدرس فوق در رجيستري مي ره و چون هنوز اين کليد ايجاد نشده،‌فرم لوگين رو نمايش مي ده به کد زير نگاه کنيد
sub Main
dim Usr as string=getsetting("..
dim Pass as String =Getsetting("...
if pass=Yourpass And Usr=UserName then
FrmMain.show
else
frmLogin.Show
end if
end sub

[mostafaserial]

سلام
میشه اینو به صورت یه فایل vb6 در بیارین ؟