ايران ويج

سلام
لطفا منو راهنمایی کنید که چطوری رو برنامه ام پسورد بذارم
ممنونم

سلام
به پروژه يك فرم جديد اضافه كنيد و داخل اون يك تكست باكس و يك باتون قرار بديد.
پروژه رو طوري تنظيم كنيد كه در ابتدا اين فرم جديد اجرا بشه.
در داخل كامند بوتون چك كنيد آيا متن نوشته شده در تكست باكس با كلمه رمز مورد نظر شما برابر هست يا خير.
اگر برابر بود ، فرم اصلي برنامه رو لود كرده و نمايش بديد و در غير اين صورت مي تونيد يك پيغام خطا به كاربر نشون بديد.

اين ساده ترين راه قرار دادن پسورد براي برنامه است .

ممنونم از راهنماییتون تو پراپرتی تکست باکسم باید پسودمورد نظرمو بدم یا تو شرط کامند باتون . من پراپرتی تکست رو مثلا دادم 6 بعد تو شرط مقایسه کردم ولی نشد
If Text1.PasswordChar = True Then
Form2.Show
Else
MsgBox ("áØÝÇ ÑãÒ æÑæÏ ÑÇ ÕÍíÍ æÇÑÏ ˜äíÏ ")
Text1.Text = " "
End If
این کد نویسی در هر صورت فرم 2 رو نشون می ده وپیش فرض 6 رو نگه می داره
جور دیگه هم نوشتم نشد
لطفا بگید کجاشو اشتباه کردم

Private Sub Command1_Click()
If Text1.PasswordChar = "6" Then
Form2.Show
Else
MsgBox ("áØÝÇ ÑãÒ æÑæÏ ÑÇ ÕÍíÍ æÇÑÏ ˜äíÏ ")
Text1.Text = " "
End If
End Sub
اینم یه جور دیگه کد نویسی جواب نمی ده؟؟؟

داداش. برای گرفتن متن باید اینجوری بنویسید:
if text1.text="mypass" then

خصوصیت passwordchar یه کار دیگه میکنه.

برای با اول فقط درست میگیره یه با اشتباه می زنم دوباره درست می زنم بازم پیغام می ده
؟؟؟؟

باید بنویسی:
Private Sub Command1_Click()
If Text1.Text = "Password" Then
Text1.Text=""
Form2.Show
Else
MsgBox ("áØÝÇ ÑãÒ æÑæÏ ÑÇ ÕÍíÍ æÇÑÏ ˜äíÏ ")
Text1.Text = ""
End If
End Sub

PasswordChar هم برای اینه که: دیدی وقتی جایی پسورد می ذنی، به جاش * می ذاره؟ این همونه!!! می پرسه من به جای چیز هایی که کاربر وارد می کنه چی نشون بدم

سلام.
این روش به راحتی کرک میشه. پسوردتو انکریپت کن.

Payman62 نوشته است:سلام.
این روش به راحتی کرک میشه. پسوردتو انکریپت کن.

بابا بنده خدا هنوز اول راهه تا انکریپت و از این چیزا خیلی راه داره

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

خیلی ممنونم
همین اندازه برای برنامه من کافیه