Código AntiBot

Acá les dejaré un programa que capta el código antibot, en caso de ser correcto, larga un mensaje diciendo que el código fue correcto, de lo contrario dice que es incorrecto.

Primero hacemos un diseño en el formulario, como muestra la siguiente imagen:



Le podemos cambiar la font al label para que quede mas lindo. Yo le puse una letra "Microsoft Sans Serif", estilo negrita, y tamaño 12.

Bueno, después en el FORM_LOAD (Evento que dispara cuando carga el formulario) escribimos:

Dim random As New Random 'esto sirve para hacer numeros aleatorios
Dim numero As Integer 'Declaramos "numero" como numero entero
numero = Math.Round(random.Next(1, 10)) 'redondeamos numero del 1 al 10
Label1.Text = numero ' Escribimos el numero random en label1
Randomize() ' Esto sirve para volver a cargar los numeros, y asi obtener numeros diferentes cada vez
numero = Math.Round(random.Next(1, 10)) ' Repetimos procesos de ahora en mas
Label2.Text = numero
Randomize()
numero = Math.Round(random.Next(1, 10))
Label3.Text = numero
Randomize()
numero = Math.Round(random.Next(1, 10))
Label4.Text = numero

Luego de esto, en el botón verificar, evento "CLICK" escribimos el siguiente código:

If Trim(TextBox1.Text) = Label1.Text & Label2.Text & Label3.Text & _
Label4.Text Then
MsgBox("Código AntiBot correcto", MsgBoxStyle.Information, "Fekaa (:")
Exit Sub
Else
MsgBox("Captcha incorrecto", MsgBoxStyle.Critical, "Fekaa (:")
End If

Esto lo paso a código reducido:

Si sacándole los espacios vacíos de su derecha y de su izquierda al texto escrito en textbox1, se hace igual a lo que hay dentro de label1 juntandolo con label2, juntandolo con label3, juntandolo con label4, entonces salta un mensaje diciendo "Código antibot correcto", de lo contrario, salta un mensaje diciendo "Código antibot incorrecto".

Imagen del resultado:





Descarga del proyecto:

Rapidshare: http://rapidshare.com/files/163993020/Codigo_Antibot_by_Fekaa.rar.html
Badongo: http://www.badongo.com/file/12104984
Sendspace: http://www.sendspace.com/file/qqxcwp
Megaupload: http://www.megaupload.com/?d=Z8RBKUF9

Un saludo, Fekaa.-