Como criar uma keygen para o Brasfoot 2012

Inscrevam-se no canal !!

BOTÃO GERAR



Dim key As Integer
key = (Rnd() * 4)
Select Case key
Case 1
TextBox1.Text = "Iago Ramiro da Cunha"
TextBox2.Text = "44751076"
Case 2
TextBox1.Text = "Marcos Oliveria Piriz"
TextBox2.Text = "55885680"
Case 3
TextBox1.Text = "Antonio Carlos Pires Alberici"
TextBox2.Text = "101815564"
Case 4
TextBox1.Text = "Gabriel Richard Loppnow"
TextBox2.Text = "69563968"
End Select

BOTÃO SAIR