vb set a password to prevent login software problems

'Let's say your login window has a textbox control called text1 that you use to enter your password; A button, called CMDOK, is used to click to log in; Form form1 is the form to be displayed after you enter the password, then use the following **.

private sub cmdok_click()if = "password" then 'Change password to your password.

unload me

elsemsgbox "The password is incorrect, please re-enter it. "

end if

end sub

private sub cmdok_click()if = "vb01" and = "123" thent1 = msgbox("VB01 landed successfully", ,"System prompts")elseif ="vb02" and = "123" thent2 = msgbox("VB02 landed successfully", ,"System prompts")else

t2 = msgbox("The username or password is incorrect", ,"System prompts")end if

end sub

That's a problem with the charging system of the Internet café.,Can you continue to play on it? If you don't log in, you can't log in, you can't pick up the account at the bar, and you can't open a card.

It's hard to find this kind of source file, and I think you want to use it to the worst of it, huh?

This kind of source file can be said to say that unless the respondent makes up one himself, 95% of the people don't have this thing, and it takes months or even a year to compile this, do you think someone will be stupid to give you the fruits of hard work for a long time to do so many bad things? Think for yourself!

Set the passwordchar property of the text box to"*"

This can be set directly in the properties window or in the program.

private sub form_load()= "*"

end sub

Set the passwordchar of your text control to *

MD5 Common encryption method MD5 (string).

MD5 module.

Add a verification before executing the main program.

Or do a verification project on its own.

After the passage of another file is executed.

Otherwise, it will not be executed.

Let's say it's just a fixed password, simple encryption.

Set a form 2 to start, then add a text box to form 2, and use a button to compare the content of the text box and the password set, and start form 1 in the same way

Strange question, you ** write directly as: whether the password entered in the text box ="password"Isn't that enough?

Add double quotation marks at both ends'', because inside is the format of a string.

Weird...

Direct input. if <>"password"

msgbox "Wrong password"

end if

It's not easy, and you don't have to query the database.