Hola de hecho no posteo mucho en este foro por que mis cosas no serian de gran utilidad xD pero es raro que postee xD solo veo los temas y tengo una duda
si alguein sabe que significa este codigo porq ue lo veo en un keygen de visual basi 2008 express TextBox1.Text = Int(Rnd() * 5) si alguien me podria explicar para que sirve o comofunciona el Int el Rnd
por ejemplo en este codigo
Select TextBox1.Text
Case 0 TextBox1.Text = "ClAve"
Case 1 TextBox1.Text = "clave"
Case 2 TextBox1.Text = "clave"
Case 3 TextBox1.Text = "clave"
Case 4 TextBox1.Text = "clave"
Case 5 TextBox1.Text = "clave"
End Select
Puedes añadir mas copiando 1 y cambiarle el numero.
ejemplo:
Case 6
Codigo para el boton salir:
Me.close
TextBox1.Text = "clave"
lo lleva pero no se donde y para que funciona espero que me ayuden si no pues nimodos detodas maneras muchas gracias
aunque es un disque keygen no generra codigos pero muestra los que tengo puesto con las sentencia case xD espero gracias
Hasta donde yo veo hay dice que el Texto del TextBox1 es "Clave" estas seguro que es un Keygen?
A menos que sea para hacer un "Keygen" y pongas tu mismo los Seriales en ese espacio sin usar algoritmos ni cosas complicadas y luego mostrarlos en un textbox.
al Select Case le falta el Case...y ese codigo es raro que ande , le faltan los 2 puntos para poder escribir todo en una sola linea..quedaria asi:
Select Case TextBox1.Text
Case 0 : TextBox1.Text = "ClAve"
Case 1 : TextBox1.Text = "clave"
Case 2 : TextBox1.Text = "clave"
Case 3 : TextBox1.Text = "clave"
Case 4 : TextBox1.Text = "clave"
Case 5 : TextBox1.Text = "clave"
End Select
aparte el codigo se podria simplificar, hay opciones que son siempre iguales:
Select Case TextBox1.Text
Case 0 : TextBox1.Text = "ClAve"
Case 1, 2, 3, 4, 5 : TextBox1.Text = "clave"
End Select
el codigo para el boton salir lo lleva en el en evento click me imagino, pero lo que esta medio raro ahi es porque le asiga un valor al textbox despues de cerrarlo XD..
saludos.