Es posible colocarle contraseña a un ejecutable cosa que cuando se ejecute te pida contraseña y si es la correcta se ejecuta y sino no se ejecuta :huh:
ehh si es posible eso como seria?
Tendrias que crear un formulario, establecerlo como inicial, que te pida la clave, la controle y si es correcta muestre el formulario principal del programa y si no, que salga.
Si es posible..Aqui tienes la idea:
Private Sub Form_Load()
dim pass as string
If Pass = " Password_que_quieras" then
nuevoform.show
then
end
End Sub
Por cierto, el text donde los usuarios pongan el pass le puedes poner un "*" en la propiedad passwordchar o algo asi para que escriba asteriscos en el password y quede mas profesional.
SaLUDOS.
Cita de: skapunky en 12 Abril 2006, 22:57 PM
Si es posible..Aqui tienes la idea:
Private Sub Form_Load()
dim pass as string
If Pass = " Password_que_quieras" then
nuevoform.show
then
end
End Sub
Por cierto, el text donde los usuarios pongan el pass le puedes poner un "*" en la propiedad passwordchar o algo asi para que escriba asteriscos en el password y quede mas profesional.
SaLUDOS.
DUDA donde pongo la contraseña que yo quiero tendria que asignarsela a pass??
pass= (ala contraseña que quiero) seria asi ono?
tambien me tira error en el ultimo then
Private Sub Command1_Click()
If Text1 = "hola" Then
MsgBox "osii"
End If
End Sub
Private Sub Form_Load()
Dim pass As String
pass = hola
End Sub
********************************************
gracias ya lo hice lo puse asi Private Sub Command1_Click()
If Text1 = "hola" Then
MsgBox "osii"
End If
End Sub
Private Sub Form_Load()
Dim pass As String
pass = hola
End Sub
hice la comparacion en un boton que le puse aceptar si es la correcta le puse un msgbox pa probarlo no mas pero si no es correcta como le hago pa mostrar un mensaje??
If Text1 = "hola" Then
MsgBox "osii"
else
MsgBox "oNoo"
End If
else era LA HUEA JAJAAJ GRACIAS ;Dse me havia olvidado por completo
Citarelse era LA HUEA JAJAAJ
Claro que si