Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas de programación de VB sobre la detección de contraseñas

Preguntas de programación de VB sobre la detección de contraseñas

No sé si esta es la respuesta que desea:

Primero cree nuevos formularios Form1 y Form2, y agregue un control de etiqueta y un control de TEXTO en el formulario Form1

Un control de comando, copie el siguiente código en Form1 para ver el efecto

Private Sub Command1_Click()

Dim i%

Static n %

Si Text1.Text <> "pasa" Entonces

n = n + 1

Si i = 2 O n = 3 Entonces finaliza

i = MsgBox("La contraseña es incorrecta, todavía tienes" & 3 - n & "oportunidades", , "advertencia")

Text1.Text = ""

Text1.SetFocus

Else

Descargarme

Form2.Show

Finalizar si

Fin Sub

Sub privado Form_Load()

Label1.Caption = "Contraseña:"

Command1.Caption = "Iniciar sesión"

Text1.Text = ""

Text1.PasswordChar = "*"

End Sub

Subtexto privado1_KeyPress(KeyAscii As Integer)

Dim i %

Estático n%

Si Len(Text1.Text) > 8 Entonces

MsgBox "La contraseña no puede tener más de 8 caracteres", "Mensaje de error "

Text1.Text = ""

Else

Si KeyAscii = 13 Entonces

Si Text1.Text <> "pasar" Entonces

n = n + 1

Si i = 2 O n = 3 Entonces finaliza

i = MsgBox("Contraseña incorrecta, todavía la tienes" & 3 - n & "Oportunidad", "Advertencia")

Text1.Text = ""

Text1.SetFocus

Else

Descargarme

Form2.Show

Fin si

Fin Sub