MMM que raro, no se que pueda ser (a lo mejor es por la version del Vb). Y para interpretar mas variables pues con mas Ifs?, o con un Select (que es como un switch en c).

Saludos

Wenas estoy tratando de crear un form de identificacion ( user & pass ), ¿como puedo hacer para que el programa al 3º fallo en la pass se cierre? ¿es haciendo un bucle?, de todas formas no tengo ni idea, si alguien me da una pistilla se lo agradezco jejej

Saludos


PD:Pc Mac al final no pude averiguar lo de poder iniciar un .exe desde el vb :( , si teneis alguna sugerencia este es el momentooo !!!

Para el tercer intento lo puedes hacer con una variable que lleve el numero de intentos, cada vez que presiones el boton de Aceptar sumas un intento cuando esa variable sea igual a 3 cierras la ventana.

Sobre lo del exe, pues lo que te pase deberia funcionar bien, ahorita ando algo ocupado, pero podrias buscar en google, seguro que viene.

Saludos

ok buscare, pc mac tengo el vb6 y no se como reinstalar el msdn, le doy a instalar, pero lo del msdn no me dice nada y lo he instalado 2 veces y no surge efecto ( version de 22mb, es la buena ? ). Y me da el error de siempre "no se encuentra msdn.." <Please Help> ( Este si he miradooo pero no veo naaah!! )

Voy a probar lo de las variables aver que tal y ya posteo..

grax


PD: Lo logre, me ha salido bien

Aqui ta el code, que por cierto es el primero que pongo en este lenguaje , x si alguien lo quiere:

-Crear un form y poner 1 Label & 1 Command button


Dim A As Byte 'Declaramos la variable

Private Sub contar() 'Para ir quitando -1 Y en el caso de que sea 0 cerrar el form
A = A - 1
If A = 0 Then
Label1.Caption = "Intentos >" & Val(A) 'intentos..
MsgBox "Has alcanzado el maximo de fallos, la aplicacion se cerrara", vbNo
End
Else
Label1.Caption = "Intentos >" & Val(A)
End If
End Sub


Private Sub Command1_Click() 'Para hacerlo rapido xD
Call contar 'Llamamos al procedimiento Contar y q este haga el trabajo sucio..
End Sub

Private Sub form_load() 'La variable hay que ponerla fuera del procedimiento "contar", y que mejor sitio que este!
A = 3 'variable inicial
Label1.Caption = "Intentos >" & Val(A)
End Sub

Espero que ahora no de errores ajajajaj
saludos

Wenas estoy intentando crear un generador de pass ( es el principio..), y aqui mis dudas:

-Estoy un poco "bloqueado", lo que quiero es que se genere un numero entre 10 y 0, X veces y luego al terminar el bucle sacar el password a la pantalla, ¿alguna idea? aqui pongo este que he hecho mirando x ahi..



Option Explicit

Private Sub Command1_Click()
Dim Num As Long
Dim Letra As String
Dim Letra2 As String
Dim Letra3 As String
Dim Letra4 As String
Dim Letra5 As String
Randomize ' para que no nos de siempre la misma cadena
Num = Rnd * 5 'al 5 lo tenes que cambiar por la cantidad de letras que hay
Select Case Num
Case "1" 'si el numero aleatorio (Num) es 1
Letra = "F" 'la Letra es F
Case "2"
Letra2 = "xZ"
Case "3"
Letra3 = "j"
Case "4"
Letra4 = "B2"
Case "5"
Letra5 = "r"
End Select
Text1.Text = (Letra) + (Letra2) + (Letra3) + (Letra4) + (Letra5)
End Sub


Enfin si alguien me pone un ejemplo porq esto no me saleee!
Grax

Wenas!!! ya he creado mi generador de passwords, aunque creo que es un poco "grotesco"...^^, lo colgare en algun lado y pondre el enlace ( con proyecto..)y si lo veis decirme que os parece .

Sigo comiendo el coco con esto :
yo creo una carpeta que se llama "F" y quiero crear un form que cuando se intente acceder a dicha carpeta, el form (hecho exe ) se abra y la carpeta no se pueda ver su contenido sin la pass correspondiente.
¿Alguna idea?

Grax y saludos!

wenas aqui esta el programa del generador de pass --->descargar generador ( viene con proyecto ).

ahora ando un poco liado viendo las funciones api y no me sobra mucho tiempo!! de todas maneras tengo un par de preguntas :

-¿Como registro un programa al inicio del sistema desde visual basic 6? ( no piensen mal ee )


- Este code lo intento usar para abrir un archivo pero me da error (error 13 " no coinciden los tipos"), el error que me da lo señala en (*) .. ¿¿alguien me exa una mano??

Private Sub abrir()
(*)separador = Chr$(13) And Chr$(10) 'aqui ta el fallo
Open "C:\x.txt" For Input As #200
Do
Input #200, f
Text1.Text = Text1.Text + separador + f
Loop Until EOF(200) = True
Close #200
End Sub

Las variables separador y f las declaro string.

Si elimino del code esto "separador = Chr$(13) And Chr$(10)" lee el archivo, pero no es capaz de saltar de renglon al ponerlo en el text1, de tal forma que sale todo junto y sin espacios.

Graxxxx