Pasos
1_Abri el vb6
2_pone Exe estandar (En ingles: Standar EXE )
3_Agrega un Form
4_Pone un label en caption pones "Clave:" (en la barra de propiedades)
5_pone un Text Box y en PasswordChar pones " * " (en la barra de propiedades)
6_Agrega un boton y llamalo como quieras,para que quede bien yo pondria: Iniciar Sesion o Entrar o Iniciar.
7_ Entra en el codigo del Command1 borra todo y pone:
Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox "Escriba la contraseña" ,vbExclamation
If Text1.Text = "" Then MsgBox "Escriba la contraseña", vbExclamation
If Text1.Text = "tu clave entre estas comillas" Then form2.Show
If Text1.Text = " tu clave entre estas comillas" Then MsgBox "Acceso concedido", vbInformation Else msgbox "Acceso denegado" ,vbcritical
End Sub
8_Ejecuta el programa y probalo.
La contraseña que escribas en el codigo anterior tiene que ser la misma para que ande bien.
1_Abri el vb6
2_pone Exe estandar (En ingles: Standar EXE )
3_Agrega un Form
4_Pone un label en caption pones "Clave:" (en la barra de propiedades)
5_pone un Text Box y en PasswordChar pones " * " (en la barra de propiedades)
6_Agrega un boton y llamalo como quieras,para que quede bien yo pondria: Iniciar Sesion o Entrar o Iniciar.
7_ Entra en el codigo del Command1 borra todo y pone:
Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox "Escriba la contraseña" ,vbExclamation
If Text1.Text = "" Then MsgBox "Escriba la contraseña", vbExclamation
If Text1.Text = "tu clave entre estas comillas" Then form2.Show
If Text1.Text = " tu clave entre estas comillas" Then MsgBox "Acceso concedido", vbInformation Else msgbox "Acceso denegado" ,vbcritical
End Sub
8_Ejecuta el programa y probalo.
La contraseña que escribas en el codigo anterior tiene que ser la misma para que ande bien.