meerdere inlogcode´s in 1 keer maken

[ido435]

hallo
ik heb een vraag
is het mogelijk om meerdere in log code`s te maken in 1 keer dit script gebruik ik er al voor

        If TextBox1.Text = "gebruikersnaam" And TextBox2.Text = "wachtwoord" And textbox3.text = "" Then
            TextBox1.Text = "klikosoft"
            TextBox2.Text = ""
            TextBox3.Text = ""
            Me.Hide()

            aanmelden_voor_overleg.Show()
        Else
            MsgBox("foute inlog code", MsgBoxStyle.Critical)
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
        End If

maar dan wil ik graag nog 1 gebruikers naam er bij maken maar niet dat iedereen het kan alleen ik zonder dat ik eerst het programma moet openen
maar ook als ik weer dit er in zet

else end if

dan kan het niet
hoe moet ik dit oplossen

 

[MartinJM]

Ik snap je vraag niet helemaal...

Is het gewoon de bedoeling om er nog een gebruiker bij te zetten?? Dat kan namelijk zo:

If TextBox1.Text = "gebruikersnaam" Or TextBox1.Text = "gebruikersnaam2" And TextBox2.Text = "wachtwoord" And TextBox3.Text = "" Then
            TextBox1.Text = "klikosoft"
            TextBox2.Text = ""
            TextBox3.Text = ""
            Me.Hide()

            aanmelden_voor_overleg.Show()
        Else
            MsgBox("foute inlog code", MsgBoxStyle.Critical)
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
        End If

Als dit niet was wat je bedoelde, moet je het nog even een keertje uitleggen....


Dan is er nog een klein puntje:
Je moet nooit wachtwoorden zo in je code hebben staan. Het liefst helemaal niet hardcoded, maar als dat toch moet, encrypt ze dan eerst met b.v. SHA1 of MD5.



Succes!:thumb:



*EDIT*
Als de andere gebruiker ook een ander wachtwoord heeft, dan kan het zo:

If TextBox1.Text = "gebruikersnaam" And TextBox2.Text = "wachtwoord" And TextBox3.Text = "" Then
            TextBox1.Text = "klikosoft"
            TextBox2.Text = ""
            TextBox3.Text = ""
            Me.Hide()

            aanmelden_voor_overleg.Show()
        ElseIf TextBox1.Text = "gebruikersnaam2" And TextBox2.Text = "wachtwoord2" And TextBox3.Text = "" Then
            TextBox1.Text = "klikosoft"
            TextBox2.Text = ""
            TextBox3.Text = ""
            Me.Hide()

            aanmelden_voor_overleg.Show()
        Else
            MsgBox("foute inlog code", MsgBoxStyle.Critical)
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
        End If

 

[ido435]

oke dit is precies wat ik zocht
bedankt