Poner password a progama

[JR.]

Alguien me puede ayudar y decirme que codigo tengo que poner para que al iniciar un programa me pida un password pero que tambien se pueda actualizar (cambiar, nuevo usuario, etc.)

por su ayuda, de antemano gracias

[culd]

Sin ofender.... Si no sabes hacer eso significa que tu "programa" no es lo suficientemente bueno como para "bloquearlo" con contraseña

[David]

Hola, JR.

Debes guardar esa información en alguna parte, ya sea un archivo de texto, una base de datos, el registro de Windows... etc. Aunque debes tener en cuenta que eso no garantiza seguridad, ya que dependiendo de dónde lo guardes, alguien puede obtener esa información y usarla para ingresar al programa.

[diegofernando]

Si es visual basic 6.0 o incluso visuial basic .net puedes ponerle contraseña con las utilidades que estan a la derecha de la pantalla, una que se llama password.
En ese mismo cuadro apare4cen nombre de objetos etc.Esto en tiempo de diseño,
pero tambien lo puedes hacer en tiempo de ejecucion.

[boluart]

Iniciado por diegofernando

Si es visual basic 6.0 o incluso visuial basic .net puedes ponerle contraseña con las utilidades que estan a la derecha de la pantalla, una que se llama password.

Haber explicame mas al respecto...

[vicentecamesella]

Amigo te coloco un ejemplo de una aplicacion que estoy desarrollando pero va mas alla de lo que pides es el acceso lo unico que te coloco este es uno de los codigos mas basicos que poseo para este tema espero te sirva ah uso base de datos MySql pero funciona con cualquiera
Private Sub Aceptar_click ()

Dim fecha As Date
fecha = Date

If Me.CSTXUSUARIO.Text = "" And Me.CSTXPASSWORD.Text = "" Then 'if1
CSTimer2.Interval = 20
DES
CSLBLERROR.Visible = True

Else

comprobar_rs
rs.Open "SELECT * FROM mpusuario where usu_nombre='" & Me.CSTXUSUARIO.Text & "' and usu_clave = '" & Me.CSTXPASSWORD.Text & "'", cncon, adOpenStatic, adLockBatchOptimistic, adCmdText
'CREO EL RECORDSET
Set RE = New ADODB.Recordset

'ESTABLESCO EL RECORDSET
strsql = " Select * From MPEMPRESA where EMP_CLAVE like '" & "modelpro" & "'"
RE.Open strsql, cncon, adOpenDynamic, adLockOptimistic

If rs.EOF = True Then
CSTimer2.Interval = 20
DES
CSLBLERROR.Visible = True
limpiar_campos

Else
If Val(StrComp(Me.CSTXPASSWORD.Text, rs("usu_clave"), vbBinaryCompare)) <> 0 Then
CSTimer2.Interval = 20
DES
CSLBLERROR.Visible = True
limpiar_campos
Else
Load FRMCARGANDO
FRMCARGANDO.Show
MDIBIENVENIDA.CSLBL = CSTXUSUARIO.Text
MDIBIENVENIDA.NomEmp = RE!emp_nombre
MDIBIENVENIDA.codemp = RE!emp_CLAVE
codemp = RE!emp_CLAVE
End If
End If
End If

End Sub