Buenas Tardes a todos..queria saber como hago para ponerle a un programa q yo cree un login antes de q entre el programa como podria hacer.? Desde ya gracias
ok suponiendo que tu formulario principal es forminicial.frm
lo que haces es:
2 opciones:
1° opcion:
1-crear un formulario de nombre frmlogin.frm
2-colokas dos kampos de texto (txtusr, y txtpwl) al campo txtpwl le pones en la propiedad maskpasswd (o algo asi) *, osea para que muestre * cuando vos tecleas algo, luego colokas un boton (btnaceptar)
3- en el evento click del boton pones:
' el pwl esta de esa manera como para despistar
usr = "admin" : pwl = "admin":pwl1="007"
IF txtUsr !="" And txtPwl !="" THEN
IF txtUsr = usr AND txtPwl = (pwl & pwl1) THEN
formincial.Show
ELSE
msgbox "Error en los datos ingresados"
end 'salimos
END IF
END IF
' para que funcione esto lo que hacesmos es modificar las propiedades del proyecto, y le decimos que el formulario que se inicia primero es frmlogin.frm
2° opcion
1- agregamos un modulo y ponemos
Sub Main()
Usr = inputbox("Nombre de usuario")
Pwl = inputbox("Password")
Usr0 = "admin"
Pwl0 = "admin": Pwl1 = "007"
If Usr = Usr0 AND Pwl = (Pwl0 & Pwl1) Then
frminicial.show
Else
End ' Salimos
End if
End Sub
Espero que te sirva saluds!!
Otra forma es creando una condicion para 2 terminos
ejemplo:
CitarPrivate Sub Command1_Click()
If Text1.Text = "manuel" And Text2.Text = "manuel" Then
MsgBox "bienvenido"
Else
MsgBox "eres un ratero hijo de @@@@@@@@@@"
End If
End Sub
EL programa que ha puesto Robokop, lo puede crackear hasta un ciego xD
No creo que esto sea un login muy seguro, ademas, lo suyo seria tener algun sitio donde se guarden los datos, por si se quiere modificar.
Un saludo
es por eso que uso varias variables separadas!!!
CitarEL programa que ha puesto Robokop, lo puede crackear hasta un ciego xD
Si lo se ,pero lo puse de esta forma porque no creo que su programa vaya a ser de uso publico porque en ese caso tendria que crear una BD para almacenar los datos y contraseñas
yo tmb kise crear un login pero la vdd esk este codigo esta mal y nose pork no funciona los login se guardan en 2 tablas en una base de datos a ver si me pueden ayudar es una copea k le envie a un amigo.... :huh:
'wey la base de datos esta ponla en (mis documentos)
Private Sub Command1_Click()
Dim a As Integer
For a = 1 To 6
If ax1.Text = txtUsuario.Text Then 'esta condicion no me la cumple me muestra el form2 pork???
If ax2.Text = txtContraseña.Text Then
Form2.Show
MsgBox "paco"
End If
Else
ab.rsa1.MoveNext
ab.rsa2.MoveNext ' quiero si la condicion si se cumple las 2 pues ya no tome en cuenta el for nose komo aserlo
' lo de ab.rsa1.movenext y el otro son para k mueva los dos registro y no compare el mismo con el bucle
End If
Next
End Sub
' nose pork no funcionaa
'en el form 1 los 2 textbox con numeros son los de la base de datos con los k los compara la base de datos solo tiene ese registro
Cita de: ®ØßÖkÖÞ en 11 Abril 2006, 21:34 PM
CitarEL programa que ha puesto Robokop, lo puede crackear hasta un ciego xD
Si lo se ,pero lo puse de esta forma porque no creo que su programa vaya a ser de uso publico porque en ese caso tendria que crear una BD para almacenar los datos y contraseñas
No hace falta crear una bd para un programa seguro...existen Crackmes, que debes introducir user y pass, y es practicamante imposible de saltarlos.
XD, Si lo se pero me referia a una BD para muchos usuarios y contraseñas no para unos cuantos ,puse el programa de esa forma porque creo conveniente enseñar de la forma mas simplificada la programacion para que luego con los ejemplos ellos puedan crear un programa mas elaborado
my buena lo q dices ... pero haber si esto te ayuda ....
este es un pequeño cod espero q te surva ;D
para Grabar el pass y el ID
Private Sub Command1_Click()
Dim ruta As String
Dim i As Integer
ruta = "c:\log.log"
i = FreeFile()
Open ruta For Output As #i
Print #i, TxtID.Text
Print #i, txtpass.Text
Close #i
End Sub
Para Abrir
Private Sub Command2_Click()
Dim ruta, Var1, Var2 As String
Dim i As Integer
ruta = "c:\log.log"
i = FreeFile()
Open ruta For Input As #i
Line Input #i, Var1
Line Input #i, Var2
Close i
If (Var1 = TxtID.Text) And (Var2 = txtpass.Text) Then
MsgBox "ok"
Else
MsgBox "El Pass Ingresado es Incorrecto", vbQuestion, "Error"
End If
End Sub
si quieres q el pass y el Id este biien protegida te recomiendo q lo encriptes al momento de guardar y al momento de abrir desencriptarlo
este es otro lick de info...
http://foro.elhacker.net/index.php/topic,117713.0.html (http://foro.elhacker.net/index.php/topic,117713.0.html)