به نام ایزد منان
با سلام خدمت دوستان
با اطمینان می تونم بگم که جزء اولین چیزهایی که یک برنامه نویس دوست داره یاد بگیره
اینه که بتونه یک برنامه بنویسه که برای انجام مثلا کار a و یا اجرای برنامش پسورد بخواد خوب یکی از ساده ترین راه های نوشتن پسورد رو من برای اون هایی
که تا حالا یاد نگرفتن می زارم . امیدوارم که مفید واقع شود
Dim a, b, c, d As String
b = GetSetting("myproject", "setting", "first", 12445)
If b <> 1 Then
a = InputBox("enter first password", "get setting")
SaveSetting("myproject", "Settings", "Pass", a)
SaveSetting("myproject", "setting", "first", "1")
MsgBox("exit and run the program again")
End
ElseIf b = 1 Then
c = InputBox("Enter Password", "Enter Administrator Password")
d = GetSetting("myproject", "Settings", "Pass")
If c <> d Then
MsgBox("Wrong password")
End
ElseIf c = d Then
Me.Show()
End If
End If
من در این برنامه محل دریافت داده رو inputbox در نظر گرفتم شما میتونید ازtextboxویا هرچیزدیگری استفاده کنید