Duda con funcionalidad de un codigo

[gutyfa]

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

Código (vbnet) [Seleccionar] Expandir


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:

Código (vbnet) [Seleccionar] Expandir

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

[Braayhaan]

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.

[seba123neo]

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:

Código (vbnet) [Seleccionar] Expandir

        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:

Código (vbnet) [Seleccionar] Expandir

        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.