ورود / ثبت نام
0
0

چگونه یک قفل محلی در ویژوال بیسیک بسازیم ؟

891 بازدید
قفل محلی

قفل محلی

به بخش آموزشی من در رابطه با چگونگی ساخت یک قفل محلی در ویژوال بیسیک خوش آمدید. در واقع منظور از محلی این است که رمز عبور به برنامه hardcoded شده اند و بدون ویرایش سورس کد برنامه قابل تغییر نخواهد بود.

قفل محلی

مراحل ساخت

گام ۱ :

در ابتدا میخواهیم که برنامه ای شامل : textbox1 (شامل رمز عبور) و label1 (برای مشخص کردن جایی که کاربر باید رمز عبور را وارد نماید) و button1 (برای چک کردن رمز عبور)

گام ۲:

سپس میخواهیم مقداری متغیر بسازیم . میخواهیم که رمز عبور را در یک متغیر از نوع رشته قرار دهیم و همچنین تعیین کنیم که آیا حروف بزرگ در textbox1 (رمز عبور ورودی) باید صحیح باشند یا خیر.


Dim password As String = "Yorkiebar"
Dim capsMatter As Boolean = True

گام ۳:

حال بر روی رویداد کلیک button1 ابتدا میخواهیم چک کنیم که رمز عبور وارد شده بصورت رشته تعیین شده باشد . اگر بود سپس میخواهیم چک کنیم که آیا بزرگی یا کوچکی حروف مهم هستند یا خیر ؟


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (Not TextBox1.Text = Nothing) Then
If (capsMatter) Then
Else
End If
End If
End Sub

گام ۴:

در نهایت تنها نیاز داریم که رمز عبور مناسب را چک کنیم و نتیجه نهایی را گزارش دهیم. اگر شما میخواهید که آنها را به فرم دیگری در login هدایت کنید کافیست که نام فرم جدید را پس از .Show() بیاورید.


If (capsMatter) Then
If (TextBox1.Text = password) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
Else
If (TextBox1.Text.ToLower() = password.ToLower()) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
End If

پروژه تکمیل شد !
در زیر سورس کد کامل و فایل های دانلودی پروژه آورده شده است:


Public Class Form1
Dim password As String = "Yorkiebar"
Dim capsMatter As Boolean = True
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (Not TextBox1.Text = Nothing) Then
If (capsMatter) Then
If (TextBox1.Text = password) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
Else
If (TextBox1.Text.ToLower() = password.ToLower()) Then
MsgBox("Unlocked!")
Else : MsgBox("Incorrect Password!")
End If
End If
End If
End Sub
End Class

  • پسورد: www.mspsoft.com
آیا این مطلب را می پسندید؟
https://www.mspsoft.com/?p=13701
اشتراک گذاری:
واتساپتوییترفیسبوکپینترستلینکدین
داریوش فرخی
داریوش فرخی هستم از سال 92 شروع به یادگیری برنامه نویسی و از سال 93 در بخش برنامه نویسی و تولید محتوای سایت mspsoft.com مشغول هستم. فعالیتم نیز بیشتر در زمینه های برنامه نویسی با سی شارپ و asp.net بوده است. اوقات فراغتم را هم غالبا با تماشای فیلم یا بازی های کامپیوتری پر میکنم .
مطالب بیشتر
برچسب ها:

نظرات

2 نظر در مورد چگونه یک قفل محلی در ویژوال بیسیک بسازیم ؟

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *