برای برناتون پسورد بذارید

[john smithair]

به نام ایزد منان
با سلام خدمت دوستان
با اطمینان می تونم بگم که جزء اولین چیزهایی که یک برنامه نویس دوست داره یاد بگیره
اینه که بتونه یک برنامه بنویسه که برای انجام مثلا کار 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ویا هرچیزدیگری استفاده کنید