Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CARRY-ON en 12 Abril 2006, 22:17 pm



Título: Duda
Publicado por: CARRY-ON en 12 Abril 2006, 22:17 pm
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?


Título: Re: Duda
Publicado por: Ironhorse en 12 Abril 2006, 22:48 pm
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.





Título: Re: Duda
Publicado por: skapunky en 12 Abril 2006, 22:57 pm
Si es posible..Aqui tienes la idea:

Código:
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.



Título: Re: Duda
Publicado por: CARRY-ON en 12 Abril 2006, 23:31 pm
Si es posible..Aqui tienes la idea:

Código:
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


Título: Re: Duda
Publicado por: CARRY-ON en 12 Abril 2006, 23:39 pm
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??


Título: Re: Duda
Publicado por: ReViJa en 13 Abril 2006, 00:31 am
Código:
If Text1 = "hola" Then
      MsgBox "osii"
else
      MsgBox "oNoo"
End If


Título: Re: Duda
Publicado por: CARRY-ON en 13 Abril 2006, 00:36 am
else era LA HUEA JAJAAJ GRACIAS ;Dse me havia olvidado por completo


Título: Re: Duda
Publicado por: _Sergi_ en 13 Abril 2006, 05:24 am
Citar
else era LA HUEA JAJAAJ

Claro que si